Calculadora usando procedures
Publicado por Gabriel Duarte Guimarães Costa 06/11/2005
[ Hits: 8.123 ]
Homepage: http://kinuxlinux.org/gabriel_duarte
Essa é uma caculadora básica, mas usa procedures, oque organiza o programa e deixa mais leve, porque são sub-programas.
Esse programa pode ser alterado, redistribuido, mas mantendo os direitos do Autor.
{Esse programa foi desenvolvido por Gabriel Duarte, você tem o direito de alterar, redistribuir e personalizar o programa, mas mantendo os Copyrighs do Autor} Program caluladora_Hot; uses crt; var opcao:char; r,a,b:real; {sub-rotinas de entrada e sa¡da} Procedure entrada; Begin clrscr; Write('Entre com o primeiro valor:');readln(a); Write('Entre com o segundo valor :');readln(b); end; Procedure saida; Begin Writeln; Writeln('O resultado de A com B =',r:2:0); Writeln('Pressione qualquer tecla para retorna ao menu'); readkey; end; {sub-rotinas de calculo} Procedure Rotsoma; Begin Writeln('Rotina de Soma'); entrada; r:=a+b; saida; end; Procedure Rotsubtracao; Begin Writeln('Rotina de SubtraÆo'); entrada; r:=a-b; saida; end; Procedure Rotmultiplicacao; Begin Writeln('Rotina de MultiplicaÆo'); entrada; r:=a*b; saida; end; Procedure Rotdivisao; Begin Writeln('Rotina de DivisÆo'); entrada; r:=a/b; saida; end; {Programa principal} Begin opcao:='0'; While opcao <> '5' Do Begin clrscr; Writeln('1..........AdiÆo'); Writeln('2..........SubtraÆo'); Writeln('3..........MultiplicaÆo'); Writeln('4..........DivisÆo'); Writeln('5..........Fim do Programa'); Write('Escolha uma opÆo:');readln(opcao); If opcao <> '5' Then Begin case opcao of '1':Rotsoma; '2':Rotsubtracao; '3':Rotmultiplicacao; '4':Rotdivisao; Else Writeln('Opcao invalida - Tente novamente'); end; end; end; end.
Existência de triângulo, em Pascal
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
armazenar o nome de um aluno e suas notas
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
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
pacotes 32 bit no void 64 bit (1)
erro ao clonar repo github (7)
ASRock H310CM-HG4 vs Linux (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[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