Calculadora Em Portugol E Comandos Com System

ETAPA 1

Relatório 1 – Planejamento Inicial. Contendo um esboço do programa em português

estruturado, com uma descrição das ações e variáveis necessárias ao aplicativo básico.

Relatório 2 – Comando system(). Listagem com as opções da função system( ) que

podem ser utilizadas no aplicativo de forma criar uma interface mais agradável.

algoritimo "Calculadora"

Inicio {

inteiro: val1, val2, res;

real: vari1, vari2, res1;

caracter: op;

val1=0;

val2=0;

res=0;

res1=0;

vari1=0;

vari2=0;

escreva ("Calculadora");

escreva (" (+)Soma (-)Subtracao (*)Multiplicacao (/)Divisao (E)Exponenciacao (R)Raiz (P)Procentagem (S)Sair");

leia (op);

escolha (op)

caso +: escreva ("Soma");

escreva("Primeiro Numero");

leia (val1);

escreva ("Segundo Valor");

leia (val2);

res=val1+val2;

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso -: escreva("Subtracao");

escreva("Primeiro Valor");

leia (val1);

escreva ("Segundo Valor");

leia (val2);

res=val1-val2;

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso *: escreva("Multiplicacao");

escreva("Primeiro Valor");

leia (val1);

escreva ("Segundo Valor");

leia (val2);

res=val1*val2;

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso /: escreva("Divisao");

escreva("Primeiro Valor");

leia (val1);

escreva ("Segundo Valor");

leia (val2);

res=val1/val2;

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso E: \* nota-se que não existe o comando break entre as opções de letras minúsculas e maiúsculas, isso faz com que o comando siga para o próximo passo *\

caso e:

escreva("Exponenciacao");

escreva("Base");

leia (val1);

escreva ("Expoente");

leia (val2);

res=pot(val1,val2);

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso R:

caso r:

escreva("Raiz Quadrada");

escreva("Valor");

leia (val1);

res=rad(val1);

escreva ("Resultado = "res);

quebra \* quebra o fluxo de escolhas e segue para próximo comando, no caso deste programa ele se encerrará *\

caso P: \* nota-se que não existe o comando break entre as opções de letras minúsculas e maiúsculas,