Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo que calcule o peso ideal
Homens: (72,7 * altura ) – 58;
Mulheres: (62,1 * altura) – 44,7;
Pseudocódigo:
programa exercicio4
var
altura, sexo, peso : real;
sexo : caractere;
inicio
leia altura;
leia sexo;
se (sexo = "F") ou (sexo = "f") entao
peso ← (62,1 * altura) - 44,7;
escreva peso
senao
peso ← (72,7 * altura) - 58;
escreva peso;
fim_se;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 25/03/2010
Program exercicio4;
uses crt;
var
altura, peso : real;
sexo : string;
Begin
writeln('Insira a Altura. Ex. 1.80');
readln(altura);
writeln('Insira o Sexo. Ex: F ou M');
readln(sexo);
if (sexo = 'F') or (sexo = 'f') then
begin
peso := (62.1 * altura) - 44.7;
writeln('O Peso Ideal Feminino = ', peso);
end
else
begin
peso := (72.7 * altura) - 58;
writeln('O Peso Ideal Masculino = ', peso);
end;
writeln('Pressione para fechar');
readkey;
End.