Calculadora Visualg

algoritmo "CALCULADORA"
// Função :
// Autor : DEIVID, TÁVILA, GABRIEL
// Data : 26/06/2013
// Seção de Declarações

PROCEDIMENTO menu

inicio escreval(" ****************************** CALCULADORA *******************************") escreval(" | |") escreval(" | |") escreval(" | [+]Soma [fat] Fatorial [bin] Binário |") escreval(" | [-]Subtração [pot] Potenciação [oct] Octal |") escreval(" | [*]Multiplicação [raiz] Raiz quadrada [dec] Decimal |") escreval(" | [/]Divisão [sec] Secante em graus [hex] Hexadecimal |") escreval(" | [tan] Tangente em graus [base] Conversão de Base |") escreval(" | [r]Reiniciar [cos] Coseno em graus 2 a 36 |") escreval(" | [s]Sair [sen] Seno em graus |") escreval(" ") escreval(" ") escreval("** Valor em memória: ", primeiroNumero) escreval("") escreval("** Opção escolhida: ", opcao) escreval("") escreval(" |------------------------------------------------------------------------|") escreval("") FIMPROCEDIMENTO

//INICIO FUNÇÕES

FUNCAO soma (n1, n2: real):real inicio //FUNÇÃO SOMA
RETORNE n1 + n2
FIMFUNCAO

FUNCAO subtracao (n1, n2: real):real inicio RETORNE n1 - n2 //FUNÇÃO SUBTRAÇÃO
FIMFUNCAO

FUNCAO multiplicacao (n1, n2: real):real inicio RETORNE n1 * n2 //FUNÇÃO MULTIPLICAÇÃO
FIMFUNCAO

FUNCAO divisao (n1, n2: real):real inicio enquanto (n2 = 0) faca limpatela menu escreval("Impossível dividir por 0") //NEGATIVA PARA DIVISÃO POR 0 escreval("Informe