PROGRAM:POIDS ------------- 0→T:0→P:0→S 0→A:0→M:0→R:0→B EffÉcran Disp " CALCUL DE SON IMC OU" Disp " DE SON POIDS IDEAL" Disp "--------------------------" Disp " Choisissez votre formule" Disp "1Indice de Masse Corporel1" Disp "2 DE BROCA 2" Disp "3 DE LORENTZ 3" Disp "4 DE CREFF 4" Disp "5 DE MONNEROT-DUMAINE 5" Input " Votre choix= ",C If C>0 et C<6:Then Goto 0 Else EffÉcran:Stop End Lbl 0 EffÉcran If C=1:Goto 1 If C=2:Goto 2 If C=3:Goto 3 If C=4:Goto 4 If C=5:Goto 5 Lbl 1 EffÉcran Disp " pour le calcul de l'IMC" Disp " J'ai besoin de connaître" Disp " votre poids et" Disp "votre taille en centimètre" Disp "la réponce devra se situer" Disp " entre 18,5 et 25" Disp "--------------------------" Input "Combien mesurez-vous ?",T Input "Combien pesez-vous ?",P P/(T²)*10000→R:arrondir(R,1)→R Goto F1 Lbl 2 EffÉcran Disp " Pour le calcul de BROCA" Disp " J'ai besoin de connaître" Disp "votre taille en centimètre" Disp "--------------------------" Input "Combien mesurez-vous ?",T T-100→R Goto F2 Lbl 3 EffÉcran Disp "Pour le calcul de LORENTZ" Disp " J'ai besoin de connaître" Disp "votre taille en centimètre" Disp " et votre sexe" Disp "--------------------------" Input "Combien mesurez-vous ?",T Input "Mâle 1 ou Femelle 2 ?",S If S=1:((T-100)-((T-150)/4)→R If S=2:((T-100)-((T-150)/2,5)→R Goto F2 Lbl 4 EffÉcran Disp " Pour le calcul de CREFF" Disp " J'ai besoin de connaître" Disp "votre taille en centimètre" Disp " votre âge" Disp " et votre morphologie" Disp "--------------------------" Input "Combien mesurez-vous ?",T Input "Quel âge avez-vous ?",A Input "Fin 1, Moyen 2, Fort 3 ?",M If M=1:(T-100)+(A/10)*0.9*0.9→R If M=2:(T-100)+(A/10)*0.9→R If M=3:(T-100)+(A/10)*0.9*1.1→R Goto F2 Lbl 5 EffÉcran Disp " Pour le calcul de" Disp " MONNEROT-DUMAINE" Disp " J'ai besoin de connaître" Disp "votre taille en centimètre" Disp " le tour de votre" Disp " poignet en centimètre" Disp "--------------------------" Input "Combien mesurez-vous ?",T Input "Votre tour de poignet ?",B ((T-100)+B*4)/2→R Goto F2 Lbl F1 EffÉcran Output(1,6,"Pour l'Indice de") Output(2,7,"Masse Corporel") Output(3,1,"la réponce devra se situer") Output(4,5,"entre 18,5 et 25") Output(5,4,"et votre IMC est de:") Output(7,12,R) Pause Goto F3 Lbl F2 EffÉcran Output(1,5,"Votre poids idéal") Output(2,7,"devrait être:") Output(4,12,R) Pause Lbl F3 EffÉcran