Calculadora Visualg

algoritmo "calculadora"

// Função : Protótipo calculadora.

// Autor : Jonas Nascimento

// Data : 13/09/2013

var

o: caracter

n1, n2, r: real

inicio

escreval(" CALCULADORA")

escreval

escreval("(+) - Soma")

escreval("(-) - Subtração ")

escreval("(*) - Multiplicação")

escreval("(/) - Divisão")

escreval("(E) - Exponenciação")

escreval("(R) - Raiz Quadrada")

escreval("(P) - Porcentagem")

escreval("(S) - Sair")

escreval

escreva("Opção: ")

leia(o)

escolha o

caso "+"

escreval

escreval("S O M A")

escreval

escreva("Primeiro valor: ")

leia(n1)

escreva("Segundo valor: ")

leia(n2)

r <- n1+n2

escreval

escreval(n1," +",n2," =",r)

caso "-"

escreval

escreval("S U B T R A Ç Ã O")

escreval

escreva("Primeiro valor: ")

leia(n1)

escreva("Segundo valor: ")

leia(n2)

r <- n1-n2

escreval

escreval(n1," -",n2," =",r)

caso "*"

escreval

escreval("M U L T I P L I C A Ç Ã O")

escreval

escreva("Primeiro valor: ")

leia(n1)

escreva("Segundo valor: ")

leia(n2)

r <- n1*n2

escreval

escreval(n1," *",n2," =",r)

caso "/"

escreval

escreval("D I V I S Ã O")

escreval

escreva("Primeiro valor: ")

leia(n1)