Exercício 02 Estrutura de Seleção - Pascal

2) Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo que calcule
seu peso ideal, utilizando as seguintes fórmulas:
• Para homens: (72,7 x h) – 58
• Para mulheres: (62,1 x h) – 44,7

Program Cond02 ;
var
 peso,alt: real;
 sexo: char;
 Begin
   Write('Informe Sexo m ou f: ');
   readln(sexo);
   Write('Informe Altura: ');
   readln(alt);
    if (sexo = 'm') then
     Begin
      peso := (72.7*alt) - 58;
     end
    else
     if (sexo = 'f') then
     Begin
      peso:= (62.1*alt)-44.7 ;
     end;       
    Writeln('Peso Ideal: ',peso:3:3);
  Writeln('                          by Marcus Vinicius');  
    
 End.

Categories: Pascal , Programação