Calculadora utilizando until e case

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

[ Hits: 5.262 ]

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

Calculadora de notas (Pascal)

Exemplo de for que mostra 6 números em ordem crescente

intercalar dois arrays (vetores)

Calculadora usando procedures

Cálculadora de décimo terceiro


  

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