Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.491 ]
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.
Coleta de dados de alunos em Pascal
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
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?
Warcraft II Remastered no Linux? (6)
O programa assinador digital (5)









