• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

annapaula

[Pascal] Calculadora

1 mensagem neste tópico

program Calculadora;

uses Crt;

var numero1,numero2:real;
  operador:char;

begin

clrScr;
write('introduza o numero: ');
readln(numero1);

repeat

  repeat

    write('Qual operador? +, -, *, / ou T para terminar? ');
    operador := readKey;
    write(operador);
    writeLn;

  until (operador = '+') or (operador ='-') or (operador='*') or
        (operador = '/') or (upCase(operador)='T');

  if upCase(operador) <> 'T' then
  begin

    write('introduza o segundo numero: ');
    readln(numero2);

    if operador = '+' then numero1 := numero1 + numero2
      else if operador = '-' then numero1 := numero1 - numero2
        else if operador = '*' then numero1 := numero1 * numero2
          else if operador = '/' then numero1 := numero1 / numero2;

    writeln('o resultado ‚: ', numero1:10:0);

  end;

until upCase(operador) = 'T'

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora