"Calculadora" utilizando Case

Descrição

Esconder código-fonte

Program exemplo;

{"Calculadora" utilizando Case}

uses crt;

Var
  opcao,n1,n2: integer;
  resultado:real;

Begin
  clrscr;

  write('digite um numero...: ');
  readln(n1);

  write('Digite outro n£mero: ');
  readln(n2);

  writeln;

  Repeat
    ClrScr;

    writeln('N£mero 1: ',n1,' N£mero 2: ',n2);

    Writeln('Opera‡äes:');
    Writeln('0 - Sair');
    Writeln('1 - Somar');
    Writeln('2 - Subtrair');
    Writeln('3 - Multiplicar');
    writeln('4 - Dividir');
    writeln;

    write('Op‡Æo: ');
    Readln(opcao);
    Writeln;

    Case opcao of
      0:writeln('Saindo');
      1:resultado:=n1 + n2;
      2:resultado:=n1 - n2;
      3:resultado:=n1 * n2;
      4:resultado:=n1 / n2;
      else writeln('Op‡Æo Inv lida');
    End;

    if ((opcao = 1) or (opcao = 2) or (opcao = 3) or (opcao = 4)) then
    writeln('Resultado: ',resultado:3:2);
    readkey;

  Until (opcao=0);

end.