"Calculadora" utilizando Case

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.722 ]

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

intercalar dois arrays (vetores)

Hello World!!!

cadastro de um cliente com registro

escreve os números de 1 a 9 com repeat - until

Funções strings e matemáticas


  

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
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts