Limites du programme -------------------- Poids (p) 50 - 150 taille (t) 100 - 250 âge (a) 18 - 120 poignet 15 - 25 Variables du programme ---------------------- d=choix, t=taille, p=poids, s=sex, a=âge, m=masse, g=morphologie, b=poignet, i=compteur ===================================================================== Indice de masse corporelle (IMC) Interprétation (d'après l'OMS) moins de 18,5 Insuffisance pondérale (maigreur) 18,5 à 25 Corpulence normale 25 à 30 Surpoids 30 à 35 Obésité modérée 35 à 40 Obésité sévère plus de 40 Obésité morbide ou massive ===================================================================== Define poids_idéal()= Prgm :Local c,t,p,s,a,m,r,b,i :0→c:0→t:0→p:0→s:0→a:0→m:0→g:0→r:0→b :setMode(5,2) :Disp " Calcul de son IMC ou poids idéal " :Disp " Choissez votre formule et [enter]" :Disp "1....Indice de masse Corporel.....: 1" :Disp "2 :..............De Broca..................: 2" :Disp "3 :.............De Lorentz................: 3" :Disp "4 :..............De Creff...................: 4" :Disp "5 :....De Monnerot-Dumaine.....: 5" :getKey(1) :Request "Votre choix",c :If c>0 and c<6 Then : Disp "Hors limites" : Goto lab0 :Else : Goto fin3 :EndIf :©-------------------------------0 :Lbl lab0 :If c=1: Goto lab1 :If c=2: Goto lab2 :If c=3: Goto lab3 :If c=4: Goto lab4 :If c=5: Goto lab5 :©-------------------------------1 :Lbl lab1 :Disp "" :Disp " Pour le calcul de l'IMC j'ai besoin" :Disp " de connaître votre poids et votre" :Disp " taille en centimètres, la réponce devrait" :Disp " se situer entre 18.5 et 25" :Disp " Fiable pour les adultes de 18 à 65 ans" :Disp "" :Disp " [enter] pour continuer " :Disp "" :getKey(1) :Request "Combien mesurez-vous ",t :Request "Combien pesez-vous ",p :If t<100 or t>250 and p<50 or p>150 Then : Disp "Hors limites" : Goto fin3 :EndIf :((p)/(t^(2)))*10000→m :round(m,1)→m : :Goto fin1 :©-------------------------------2 :Lbl lab2 :Disp "" :Disp "" :Disp " Pour le calcul de Broca j'ai besoin de" :Disp " connaître votre taille en centimètres" :For i,1,3 : Disp "" :EndFor :Disp " [enter] pour continuer " :Disp "" :getKey(1) :Request "Combien mesurez-vous ",t :If t<100 or t>250 Then : Disp "Hors limites" : Goto fin3 :EndIf :t-100→r :Goto fin2 :©-------------------------------3 :Lbl lab3 :Disp "" :Disp "" :Disp " pour le calcul de Lorentz j'ai besoin de" :Disp " connaître votre taille en centimètres et" :Disp " si vous êtes une femme ou un homme" :Disp "valable pour les adultes entre 18 et 65 ans" :Disp "" :Disp " [enter] pour continuer " :Disp "" :getKey(1) :Request "Combien mesurez-vous ",t :Request "1 pour masculin, 2 pour féminin ",s :If s<1 or s>2 Then : Disp "Hors limites" : Goto fin3 :EndIf :If s=1 : t-100-((t-150)/(4))→r :If s=2 : t-100-((t-150)/(2.5))→r :Goto fin2 :©-------------------------------4 :Lbl lab4 :For i,1,2 : Disp "" :EndFor :Disp " Pour le calcul de Creff j'ai besoin de" :Disp " connaître votre taille en centimètres" :Disp " de votre âge et de votre morphologie" :Disp "" :Disp "" :Disp " [enter] pour continuer " :Disp "" :getKey(1) :Request "Combien mesurez-vous ",t :Request "Quel âge avez-vous ",a :Request "Fin 1, Moyen 2, Fort 3 ",g :If t<100 or t>250 and a<18 or a>120 and g<1 or g>3 Then : Disp "" : Disp "Hors limites" : Goto fin3 :EndIf :If g=1 :t-100+((a)/(10))*0.9*0.9→r :If g=2 :t-100+((a)/(10))*0.9→r :If g=3 :t-100+((a)/(10))*0.9*1.1→r :round(r,1)→r :Goto fin2 :©-------------------------------5 :Lbl lab5 :Disp "" :Disp "" :Disp " Pour le calcul de Monnerot-Dumaine" :Disp " j'ai besoin de connaître votre taille en" :Disp " centimètres, et le tour de votre poignet" :Disp " en centimètres" :Disp "" :Disp " [enter] pour continuer " :Disp "" :getKey(1) :Request "Combien mesurez-vous ",t :Request "Votre tour de poignet ",b :If t<100 or t>250 and b<15 or b>25 Then : Disp "Hors limites" : Goto fin3 :EndIf :((t-100+b*4)/(2))→r :Goto fin2 :©-----------------------------aff1 :Lbl fin1 :Disp "" :Disp "" :Disp " Pour l'indice de masse corporel la réponce" :Disp " devrait se situer entre 18.5 et 25" :Disp "" :Disp " Votre masse corporel 'IMC' est de ▶ ",m :Disp "" :Disp "" :Goto fin3 :©-----------------------------aff2 :Lbl fin2 :For i,1,3 : Disp "" :EndFor :Disp " Votre poids idéal devrait être ▶ ",r :For i,1,4 : Disp "" :EndFor :©-----------------------------aff3 :Lbl fin3 :Disp " Entrer pour sortir !" :getKey(1) :EndPrgm