Lbl 4 1→A Goto 9 Lbl 5 2→A Lbl 9 Menu("CALCUL BASE","RAYON",10,"DIAMETRE",11,"AIRE BASE",12) Lbl 10 Input "RAYON:",B Input "HAUTEUR:",C Output(4,1,"VOLUME:" If A=1 'La condition fonctionne ici, elle modifie uniquement le calcul et, par conséquent, le résultat affiché Then Output(4,8,2B^2*π*C*(1/3) Else 'On n'a pas besoin de remettre un If car A n'a que deux valeurs possibles en arrivant ici : 1 ou 2 Output(4,8,2B^2*π*C End Goto 0 Lbl 11 Input "DIAMETRE:",B Input "HAUTEUR:",C Output(4,1,"VOLUME:" If A=1 'Même principe pour la condition Then Output(4,8,2(B/2)^2*π*C*(1/3) Else Output(4,8,2(B/2)^2*π*C End Goto 0 Lbl 12 Input "AIRE BASE:",B Input "HAUTEUR:",C Output(4,1,"VOLUME:" If A=1 'Une autre condition Then Output(4,8,BC*(1/3) Else Output(4,8,BC End Goto 0