0→A Effécran Menu("FIGURE","CUBE",1,"PAVE DROIT",2,"PYRAMIDE",3,"CONE",4,"CYLINDRE",5,"SPHERE",6,"ANNULER",0) Lbl 1 Input "ARRETE:",A Output(3,1,"VOLUME:" Output(4,1,"AIRE LAT:" Output(3,8,A^3 Output(4,10,A^2*6 Goto 0 Lbl 2 'Pour cette portion, on utilise plusieurs variables car cela est nécéssaire pour la formule Input "LONGUEUR:",A Input "LARGEUR:",B Input "HAUTEUR:",C Output(5,1,"VOLUME:" Output(6,1,"AIRE LAT:" Output(5,8,ABC Output(6,10,2AB+2AC+2BC Goto 0 Lbl 6 Input "RAYON:",A Output(3,1,"VOLUME:" Output(5,1,"AIRE LAT:" Output(3,8,(4/3)*π*A^3 Output(5,10,4πA^2 Lbl 0 Pause 'On rajoute cette fonction pour pouvoir lire le résultat