Calculadora usando procedures
Publicado por Gabriel Duarte Guimarães Costa 06/11/2005
[ Hits: 8.591 ]
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.
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Visualizador de imagem Pascal/Lazarus
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (2)
O programa assinador digital (3)
Warcraft II Remastered no Linux? (2)









