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

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 3

Menu("BASE PYRAMIDE","RECTANGLE",7,"TRIANGLE",8)



Lbl 7

Input "COTE 1 B:",A

Input "COTE 2 B:",B

Input "HAUTEUR:",C

Output(4,1,(1/3)*ABC

Goto 0



Lbl 8

Input "COTE 1 B:",A

Input "COTE 2 B:",B

Input "COTE 3 B:",C

Input "HAUTEUR:",D

(A+B+C)/2→E

√(E(E-A)(E-B)(E-C))→F

Output(5,1,"VOLUME:"

Output(5,8,FD*(1/3)

Goto 0



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

Then

Output(4,8,2B^2*π*C*(1/3)

Else

Output(4,8,2B^2*π*C

End

Goto 0



Lbl 11

Input "DIAMETRE:",B

Input "HAUTEUR:",C

Output(4,1,"VOLUME:"

If A=1

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

Then

Output(4,8,BC*(1/3)

Else

Output(4,8,BC

End

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