Ti80.Online
Pour plus de programmes
http://www.ti80.online.fr
ti80@citeweb.net
Envoyé par Maxime Plourde
Ce programme vous aide à trouver le Volume d'un Solide à partir
de ses différentes mesures. Il est important de faire les pro-
grammes dans l'ordre qu'ils sont présentés. Pour faire fonc-
tionner le programme, exec: VOLUME
PROGRAM: BOULE
:CLRHOME
:DISP "RAYON (CM
)"
:INPUT "R=",Z
:DISP (4*PI*Z^3)
/3
PROGRAM: CONE
:CLRHOME
:DISP "RAYON DE
LA BASE (CM)"
:INPUT "R=",H
:DISP "HAUTEUR",
"(CM)"
:INPUT "H=",H
:DISP ((PI*G²)*H
)/3
PROGRAM: CUBE
:CLRHOME
:DISP "LONGUEUR
D UN","COTE (CM)
"
:INPUT "C=",B
:
DISP B^3
PROGRAM: CYLINDR
:CLRHOME
:DISP "RAYON (CM
)"
:INPUT "R=",E
:DISP "HAUTEUR (
CM)"
:INPUT "H=",F
:DISP (PI*E²)*F
PROGRAM: PRISME
:CLRHOME
:DISP "LONGUEUR
(CM)"
:INPUT "L=",C
:DISP "LARGEUR (
CM)"
:INPUT "L=",D
:DISP "HAUTEUR (
CM)"
:INPUT "H=",E
:DISP C*D*E
PROGRAM: PYRAMID
:CLRHOME
:DISP "COTE DE L
A BASE","(CM)"
:INPUT "C=",I
:DISP "HAUTEUR (
CM)"
:INPUT "H=",J
:DISP (I²*J)/3
PROGRAM: VOLUME
:CLRHOME
:DISP "1:CUBE","
2:PRISME","3:CYL
INDRE","4:CONE",
"5:PYRAMIDE","6:
BOULE"
:INPUT A
:IF A=1:PRGM_CUB
E
:IF A=2:PRGM_PRI
SME
:IF A=3:PRGM_CYL
INDR
:IF A=4:PRGM_CON
E
:IF A=5:PRGM_PYR
AMID
:IF A=6:PRGM_BOU
LE