Algoritmo Calculadora, Notas de estudo de Algoritmos

Baixe Algoritmo Calculadora e outras Notas de estudo em PDF para Algoritmos, somente na Docsity! Algoritmo Calculadora; FUNÇÃO Soma( NEUTRO ) : REAL; FUNÇÃO Subtrair( NEUTRO ) : REAL; FUNÇÃO Multiplicar( NEUTRO ) : REAL; FUNÇÃO Dividir( NEUTRO ) : REAL; {------------------------------------------------------------------------------} Principal( NEUTRO ) VAR: Rec_OpUser : INTEIRO; INICIO ESCREVA( "Bem-vindo a Calculadora! " ); ESCREVA( "O que você deseja fazer? " ); ESCREVA( "1- Somar." ); ESCREVA( "2- Subtrair." ); ESCREVA( "3- Multiplicar." ); ESCREVA( "4- Dividir." ); LEIA( Rec_OpUser ); CASO Rec_OpUser : INICIO SEJA 1: Somar( ); SEJA 2: Subtrair( ); SEJA 3: Multiplicar( ); SEJA 4: Dividir( ); SEJA_NENHUM: ESCREVA( "A opção escolhida é invalida!!" ); Principal( ); FIM RETORNE( 0 ); FIM {------------------------------------------------------------------------------} FUNÇÃO Soma( NEUTRO ) : REAL VAR: SomRecNum1, SomRecNum2 : REAL; SomRecResul : REAL; INICIO ESCREVA( "Digite um numero: " ); LEIA( SomRecNum1 ); ESCREVA( "Digite outro numero: " ); LEIA( SomRecNum2 ); SomRecResul <-- SomRecNum1 + SomRecNum2; ESCREVA( "O resultado da SOMA é: ", SomRecResul ); RETORNE( 0 ); FIM {------------------------------------------------------------------------------} FUNÇÃO Subtrair( NEUTRO ) : REAL VAR: SubRecNum1, SubRecNum2 : REAL; SubRecResul : REAL; INICIO ESCREVA( "Digite um numero: " ); LEIA( SubRecNum1 ); ESCREVA( "Digite outro numero: " ); LEIA( SubRecNum2 ); SubRecResul <-- SubRecNum1 + SubRecNum2; ESCREVA( "O resultado da SOMA é: ", SubRecResul ); RETORNE( 0 ); FIM {------------------------------------------------------------------------------} FUNÇÃO Multiplicar( NEUTRO ) : REAL