Question

Someone Help me Please i need this :
With the entry height and sex of a person , build an algorithm to calculate and print your ideal weight, using the following formulas : - For men : ( 72.7 * H) -58 - For women : ( 62.1 * H) -44.7

Answer 1

Yes bro,i will help you with that.


Program ex_08;
char;h,pm,pf:real;
Begin
Writeln('Write your height');
read(h);
Writeln('Write your gender (M or F)'); 
read(s); 
if s = 'M' then
begin
pm:=(72.7 * h)-58;
write('Your ideal weight is ' , pm :2:2 ,  ' KG ');end
else
begin
pf:=(62.1*h)-44.7;
write(' Your ideal weight is' , pf :2:2 , ' KG ' ); end
End.