"Calculadora" utilizando Case
Publicado por NewLinuxer 14/12/2005
[ Hits: 12.120 ]
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.
vendas de uma empresa em matriz
Criptografador(Conceito criptografia)Lazarus
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
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
O programa assinador digital (1)
PIP3 - erro ao instalar módulo do mariadb para o Python (9)
É normal não gostar de KDE? (8)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)









