Calculadora utilizando until e case
Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)
[ Hits: 5.147 ]
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.
Cálculadora de décimo terceiro
calculo da somatoria da diagonal principal
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Reinstalei o Debian 12 e a particao /home foi formatada: recuperando s... (7)
Debian Bookworm para a versão beta Debian 13 Trixie (6)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba