Calculadora feita utilizando algoritmo.

 

Copie e cole no VisualG

 

 

// Seção de Declarações

var

n1:inteiro

n2:inteiro

o:inteiro

r:real

inicio

escreval (" Escreva um número. ")

leia(n1)

escreval (" Escreva outro número. ")

leia(n2)

escreval ("---------------------------------------")

escreval (" Entre com o número da opção abaixo ")

escreval (" 1- soma ")

escreval (" 2- subitração")

escreval (" 3- multiplicação ")

escreval (" 4- divisão ")

escreval("5-sair")

escreval ("---------------------------------------")

leia(o)

escolha o

caso 1

  r<-n1+n2

caso 2

  r<-n1-n2

caso 3

  r<-n1*n2

caso 4

  r<-n1/n2

outrocaso

  escreval (" Opção inválida! ")

  r<-o

fimescolha

escreval ("---------------------------------------")

escreval (" O resultado é ",r)

fimalgoritmo