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