Calculadora no visual G

calculadora.alg

Algoritmo "Calculadora"
// Disciplina  : Lógica de Programação
// Professor   : Maransatto
// Descrição   : Faz cálculo

Var
// Seção de Declarações das variáveis 
numero: real
operador: caracter
proximoNumero: real


Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 

escreval("-------------------------------------------------------------")
escreval("--------- PROTÓTIPO DE CALCULADORA v1.0 - BEM VINDO ---------")
escreval("-------------------------------------------------------------")
escreval()
escreval("Operadores aceitos:")
escreval("(+) Soma | (-) Subtração | (/) Divisão | (*) Multiplicação")
escreval("-------------------------------------------------------------")
escreval()


// escreva("Informe um número: ")
leia(numero)

repita
    operador := ""
    proximoNumero := 0

   // escreva("Informe o operador:")
    leia(operador)
    
    se (operador <> "") entao
    
     //  escreva("Próximo número: ")
       leia(proximoNumero)

       se (proximoNumero > 0) entao
          escolha operador
          caso "+"
               numero := numero + proximoNumero
          caso "-"
               numero := numero - proximoNumero
          caso "/"
               numero := numero / proximoNumero
          caso "*"
               numero := numero * proximoNumero
          fimescolha
       fimse
       
       escreval("----")
       escreval(numero)
    fimse



ate (proximoNumero = 0) ou (operador = "")


Fimalgoritmo