Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.487 ]
Calculadora utilizando until e case.
Operações:
+ soma
- subtração
* multiplicação
/ divisão por inteiro
program calculadora;
uses
crt;
var
num,resultado:integer;
sinal:char;
begin
clrscr;
writeln ('+ Soma');
writeln ('- Subtracao');
writeln ('* Multiplicacao');
writeln ('/ Divisao');
writeln ('q para sair',chr(10));
writeln ('Aperte enter para iniciar');
readln;
clrscr;
readln (resultado);
clrscr;
repeat
begin
writeln(resultado);
sinal := readkey;
if (sinal = 'q') then
begin
writeln ('Deseja sair? s/n');
readln (sinal);
end
else
begin
writeln (' ',sinal,' ');
readln (num);
end
;
case sinal of
'+':resultado := (resultado + num);
'-':resultado := (resultado - num);
'*':resultado := (resultado * num);
'/':resultado := (resultado div num);
end;
end
until (sinal = 's');
writeln ('Resultado igual a :',resultado);
end.
Gerador de senha Pascal/Lazarus
Soma dois Valores e exibe o resultado
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Nenhum comentário foi encontrado.
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
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
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (2)
O programa assinador digital (3)
Warcraft II Remastered no Linux? (2)









