quarta-feira, agosto 17, 2011

LP - Loop Repeat com Estrutura de decisão IF - Pascal


program P_menu;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var opcao,num1,num2,soma:integer;
    area,base,altura,imc,peso:real;
begin
Repeat
  Begin
  writeln('=============================');
  writeln('|  1 - hello word !!!       |');
  writeln('|  2 - soma 2 numeros       |');
  writeln('|  3 - area de um retangulo |');
  writeln('|  4 - imc                  |');
  writeln('|  5 - sair                 |');
  writeln('=============================');
  read(opcao);
  if (opcao=1) then
    begin
      writeln ('hello world !!!');
      readln;
    end;
  if (opcao=2) then
    begin
      write('Digite o primeiro numero....: ');
      readln (num1);
      write('Digite o segundo  numero....: ');
      readln (num2);
      soma:=num1+num2;
      write('A soma dos dois numeros e...: ',soma);
      readln;
    end;
  if (opcao=3) then
    Begin
      write('digite a base....: ');
      readln(base);
      write('Digite a altura..: ');
      readln(altura);
      area:=base*altura;
      write('A area e.........: ',area:2:2);
      readln;
    End;
  if (opcao=4) then
   Begin
      write('digite a peso....: ');
      readln(peso);
      write('Digite a altura..: ');
      readln(altura);
      imc:=peso/(altura*altura);
      write('O imc e..........: ',imc:2:2);
      readln;
    End;
  if (opcao=5) then
    begin
      write('tchau...');
      readln;
    end;
  End;
Until (opcao=5);
readln;
end.

Nenhum comentário:

Postar um comentário