Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.472 ]
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.
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
programa pra carregear duas matrizes e achar o maior
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como vencer a procrastinação? (2)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (9)