Volume du cone

[rexacont]

Salut
calcul de volume du cone HP 41
v=H/3 x PI X R ^3
merci

[hpmaniac]

v=H/3 x PI X R ^3

Il y a une petite erreur dans la formule : ce n’est pas R^3 mais R^2.

Voici tout d’abord une version courte en 8 pas de programme qui suppose que la hauteur est dans Y et le rayon dans X :

Code : Tout sélectionner

001 LBL"VC       'H dans Y, R dans X
002 x^2          'Calcul de R^2 
003 *            'Calcul de H*R^2
004 3            
005 /            'H/3 x R^2
006 Pi
007 *            'H/3 x PI x R^2
008 RTN

Utilisation: ‘hauteur’ ENTER ‘rayon’ XEQ"VC, par ex. 4 ENTER 3 XEQ"VC donne comme volume : 37,699

Et avec 4 pas de plus une version interactive qui demande les paramètres hauteur et rayon lors de l'exécution:

Code : Tout sélectionner

001 LBL"VC
002 "H ?
003 PROMPT
004 "R ?
005 PROMPT		
002 x^2          'Calcul de R^2 
003 *            'Calcul de H*R^2
004 3            
005 /            'H/3 x R^2
010 Pi
011 *            'H/3 x PI x R^2
012 RTN

Utilisation: 
 Entrer :       Affichage :
 XEQ"VC         H ?
 hauteur R/S    R ?
 rayon R/S      volume