Calculadora utilizando until e case

Descriçã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.