O aprendizado é como o horizonte, não há limites. Este Blog tem fins pedagógicos voltados a área de Informática.
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.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário