Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.152 ]
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
Calculadora de décimo terceiro no Lazarus
programa pra carregear duas matrizes e achar o maior
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Sistema da Coréia do Norte - Red Sar OS (3)
iso de sistema 32 bit em atividade (26)
redirecionando saida de comando touch para o AWK[AJUDA] (15)