salut
qui peux me corriger cet exercice??
Ecrire un prog qui permet de saisir le sexe, la taille(cm), et le poids d'une personne et d'afficher:
-PI, le poids idéal d'une personne, sachant que ce poids théorique est donné par la formule de Lorenz comme suit:
Pour un homme: PI=(taille-100)-(taille-150)/4
Pour une femme: PI=(taille-100)-(taille-120)/4
-BMI, l'indicateur d'obésité ou BMI=poids/taille au carré avec taille en metre.
-si une personne est considérée comme: normale(BMI=<27) ou obèse(BMI>27) ou malade(BMI>=32)

mon travail:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program ideal;
uses wincrt;
var
pi,p,t,bmi:real;
s:string;
begin
writeln('donner le sexe, la taille et le poids de la personne');
readln(s,t,p);
if(s:='homme') then write('homme');
readln(p);
pi:=(t-100)-(t-150)/4
if(p=pi) then write('poids ideal');
else if(s:='femme') then write('femme');
pi:=(t-100)-(t-120)/4;
if(p=pi) then write('poids ideal');
bmi:=p/sqr(t);
if(bmi<27) then write('normale');
else if(bmi>27 then write('obèse');
else if(bmi>=32) then write('malade');
End.