Calculadora utilizando until e case

Publicado por Rosiney Gomes Pereira (última atualização em 08/12/2009)

[ Hits: 5.259 ]

Download calculadora.pas




Calculadora utilizando until e case.

Operações:

+ soma
- subtração
* multiplicação
/ divisão por inteiro

  



Esconder código-fonte

program calculadora;

uses
   crt;

var
   num,resultado:integer;
   sinal:char;

begin
   clrscr;
   writeln ('+ Soma');
   writeln ('- Subtracao');
   writeln ('* Multiplicacao');
   writeln ('/ Divisao');
   writeln ('q para sair',chr(10));
   writeln ('Aperte enter para iniciar');
   
   readln;
   
   clrscr;
   readln (resultado);
   clrscr;
   
   repeat
      begin
         writeln(resultado);
         sinal := readkey;
         if (sinal = 'q') then
            begin
               writeln ('Deseja sair? s/n');
               readln (sinal);
            end
         else
            begin
               writeln (' ',sinal,' ');
               readln (num);
            end
         ;
         
         case sinal of
            '+':resultado := (resultado + num);
            '-':resultado := (resultado - num);
            '*':resultado := (resultado * num);
            '/':resultado := (resultado div num);
         end;
      end
   until (sinal = 's');
   writeln ('Resultado igual a :',resultado);
end.

Scripts recomendados

Calculo do Fatorial Utilizando-se de for

Hello World!!!

Fibonacci (Pascal)

Calculadora básica no Lazarus

Cáculo de Fatorial, utilizando-se de Repeat - Until


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts