Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.343 ]
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.
vendas de uma empresa em matriz
encontrar o menor valor em um vetor
Crivo de Eratóstenes Simples em Ada 95
Nenhum comentário foi encontrado.
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Posso instalar usar o grub sem ter linux instalado, para iniciar o win... (2)
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (6)
Problemas com adaptadores wifi no Zorin (0)