Calculadora usando procedures
Publicado por Gabriel Duarte Guimarães Costa 06/11/2005
[ Hits: 8.295 ]
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.
Operações básicas da matemática
Cálculadora de décimo terceiro
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (2)
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (1)
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)