Calculadora utilizando until e case.

Operações:

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

• Download calculadora.pas
• Enviar nova versão

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.

Menu

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

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

pares ou impares

Gerador de senha Pascal/Lazarus

Nenhum comentário foi encontrado.