"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 12.127 ]
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.
Calculadora de décimo terceiro salário em Pascal
Calculo do Fatorial Utilizando-se de for
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Eu queria adicionar a incon do wifi e deixa transparente no fluxbox no... (0)









