Pascalzim programação
Criar um programa que receba a altura, a idade e o peso de uma pessoa. Classificá-la de acordo com a tabela a seguir:
Criar um programa que receba a altura, a idade e o peso de uma pessoa. Classificá-la de acordo com a tabela a seguir:
More Questions From This User See All
Lista de comentários
Resposta:
program classificacao;
var
altura, peso: real;
idade: integer;
categoria: char;
begin
writeln('Informe a altura (em metros): ');
readln(altura);
writeln('Informe a idade: ');
readln(idade);
writeln('Informe o peso (em kg): ');
readln(peso);
if idade <= 15 then
begin
if altura <= 1.6 then
begin
if peso <= 50 then
categoria := 'A'
else
categoria := 'B';
end
else
begin
if peso <= 50 then
categoria := 'C'
else
categoria := 'D';
end;
end
else if idade <= 20 then
begin
if altura <= 1.6 then
begin
if peso <= 50 then
categoria := 'E'
else if (peso > 50) and (peso <= 80) then
categoria := 'F'
else
categoria := 'G';
end
else if (altura > 1.6) and (altura <= 1.8) then
begin
if peso <= 50 then
categoria := 'H'
else
categoria := 'J';
end
else
begin
if peso <= 60 then
categoria := 'K'
else if (peso > 60) and (peso <= 90) then
categoria := 'L'
else
categoria := 'M';
end;
end
else
begin
if (altura > 1.8) then
begin
if peso <= 60 then
categoria := 'N'
else if (peso > 60) and (peso <= 90) then
categoria := 'O'
else
categoria := 'P';
end;
end;
writeln('Categoria: ', categoria);
end.