"Calculadora" utilizando Case

Publicado por NewLinuxer 14/12/2005

[ Hits: 11.860 ]

Download exemplo19b.pas




exemplo de calculadora bem simples utilizando Case

  



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.

Scripts recomendados

Fator

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Tratar campos not null

Matrix

Calculo de la Moda


  

Comentários
[1] Comentário enviado por doradu em 09/02/2010 - 16:30h

alguns caracteres, como o 'ç' não aparecem

[2] Comentário enviado por doradu em 09/02/2010 - 16:33h

e só sai do programa após apertar enter pela segunda vez


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts