Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.471 ]
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.
escreve os números de 1 a 9 com repeat - until
encontrar o menor valor em um vetor
Coleta de dados de alunos em Pascal
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
SAMBA parou de compartilhar (2)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (8)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)