"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 11.998 ]
exemplo de calculadora bem simples utilizando Case
Program exemplo; {"Calculadora" utilizando Case} uses crt; Var opcao,n1,n2: integer; resultado:real; Begin clrscr; write('digite um numero...: '); readln(n1); write('Digite outro n£mero: '); readln(n2); writeln; Repeat ClrScr; writeln('N£mero 1: ',n1,' N£mero 2: ',n2); Writeln('Operaäes:'); Writeln('0 - Sair'); Writeln('1 - Somar'); Writeln('2 - Subtrair'); Writeln('3 - Multiplicar'); writeln('4 - Dividir'); writeln; write('OpÆo: '); Readln(opcao); Writeln; Case opcao of 0:writeln('Saindo'); 1:resultado:=n1 + n2; 2:resultado:=n1 - n2; 3:resultado:=n1 * n2; 4:resultado:=n1 / n2; else writeln('OpÆo Inv lida'); End; if ((opcao = 1) or (opcao = 2) or (opcao = 3) or (opcao = 4)) then writeln('Resultado: ',resultado:3:2); readkey; Until (opcao=0); end.
Cáculo de Fatorial, utilizando-se de Repeat - Until
Calculadora de décimo terceiro salário em Pascal
Operações básicas da matemática
cadastro de multiplos clientes com registro
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Quebra de linha na data e hora no Linux Mint
Organizando seus PDF com o Zotero
tentando instalar em um notebook antigo o Linux LegacyOS_2023... [RESO... (9)
Problema com Conexão Outlook via Firewall (OpenSUSE) com Internet Fibr... (5)