Calculadora usando procedures

Publicado por Gabriel Duarte Guimarães Costa 06/11/2005

[ Hits: 7.707 ]

Homepage: http://kinuxlinux.org/gabriel_duarte

Download calc.pas




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.

  



Esconder código-fonte

{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.

Scripts recomendados

Eleições 2006

Calculo do Fatorial Utilizando-se de for

script para ler um vetor e mostrar o conteúdo

Coleta de dados de alunos em Pascal

Números primos (usando arrays)


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts