Novo A Documento Do Microsoft Word

var a,b,c,d,f:real inicio

escreval ("Bem Vindo à calculadora #2") escreval ("Aperte ESC para encerrar o programa.") escreval escreval ("1) (---- Soma ----)") escreval ("2) (---- Subtração ----)") escreval ("3) (---- Multiplicação ----)") escreval ("4) (---- Divisão ----)") escreval ("5) (---- Potenciação ----)") escreval ("6) (---- Raízes ----)") leia (a)
//--------------------------//
enquanto (a>6) ou (a<1) faca limpatela escreval ("Aperte ESC para encerrar o programa.") escreval ("Comando digitado inválido, digite o número correspondente à:") escreval escreval escreval ("1) (---- Soma ----)") escreval ("2) (---- Subtração ----)") escreval ("3) (---- Multiplicação ----)") escreval ("4) (---- Divisão ----)") escreval ("5) (---- Potenciação ----)") escreval ("6) (---- Raízes ----)") leia (a) fimenquanto //---------------- escolha a caso 1 limpatela escreval ("Digite 0, ou aperte ESC para encerrar.") escreval ("Digite seu valor a somar (+)") leia (b) limpatela escreval ("Você digitou ",b) d:=b enquanto (b<>0) faca escreval ("+") leia (b) d:=d+b escreval ("Resultado: ",d) fimenquanto

caso 2 limpatela escreval ("Digite 0 ou aperte ESC para encerrar.") escreval ("Digite seu valor a subtrair (-)") leia (b) limpatela escreval ("Você digitou ",b) d:=b enquanto (b<>0) faca escreval ("-") leia (b) d:=d-b escreval ("Resultado: ",d) fimenquanto