Portugol da calculadora

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "calc"
// Função : Calcular
// Autor : Barbieri
// Data : 30/03/2017
// Seção de Declarações 
var
n1,n2,resultado:real
operador:caracter
inicio
// Seção de Comandos
escreval ( " n Digite o primeiro numero:")
leia (n1)
escreval("n Digite o segundo numero:")
leia (n2)
escreval(" n Digite o operador + - / * :")
leia(operador)
se (operador="+") entao
resultado <- (n1+n2)
escreval("O resultado e:",resultado)
fimse
se (operador="-") entao
resultado <- (n1-n2)
escreval("O resultado e:",resultado)
fimse
se (operador="/") entao
resultado <- (n1/n2)
escreval("O resultado e:",resultado)
fimse
se (operador="*") entao
resultado <- (n1*n2)
escreval("O resultado e:",resultado)
fimse
fimalgoritmo