CAL BASICA (1)

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

algoritmo "CALC_BASICA"
var
NUM_1, NUM_2, TOTAL : REAL
SINAIS : CARACTERE
inicio
ESCREVAL ("INFORME UM NUMERO")
LEIA (NUM_1)
//
ESCREVAL (" MENU ")
ESCREVAL ("ADIÇÃO = ( + ) ")
ESCREVAL ("SUBTRAÇÃO = ( - ) ")
ESCREVAL ("MULTIPLIC = ( * ) ")
ESCREVAL ("DIVISÃO = ( / ) ")
LEIA (SINAIS)
//
ESCREVAL ("INFORME OUTRO NUMERO")
LEIA (NUM_2)
//
ESCOLHA SINAIS
 CASO "+"
 TOTAL <- NUM_1 + NUM_2
 CASO "-"
 TOTAL <- NUM_1 - NUM_2
 CASO "*"
 TOTAL <- NUM_1 * NUM_2
 CASO "/"
 SE (NUM_2 = 0) ENTAO
 ESCREVAL ("")
 SENAO
 TOTAL <- NUM_1 / NUM_2
 FIMSE
 OUTROCASO
 ESCREVAL ("OPERAÇÃO INCORRETA")
FIMESCOLHA
ESCREVAL ("RESULTADO É:", TOTAL)
fimalgoritmo