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.

• Download calc.pas
• Enviar nova versão

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.

Registro

Script Copa do Mundo

Primo_for

Programa que realiza o reajuste salarial de acordo com o cargo

maior elemento de uma matriz

Nenhum comentário foi encontrado.