Le calcul de l'aire de la surface d'un prisme rectangulaire constitue l'un des problèmes classiques de la géométrie tridimensionnelle. Bien qu'il puisse sembler simple à première vue, ce calcul est utilisé dans de nombreuses situations concrètes, notamment dans les domaines de l'architecture, de la construction, de la fabrication industrielle, de l'emballage et même de l'infographie. Un prisme rectangulaire, parfois appelé pavé droit ou parallélépipède rectangle, est un solide formé de six faces rectangulaires dont les dimensions sont définies par sa hauteur, sa largeur et sa longueur. Déterminer son aire totale consiste à additionner la surface de chacune de ses faces afin de connaître la superficie extérieure complète de l'objet. Cette information est particulièrement utile lorsqu'il faut estimer la quantité de peinture nécessaire pour recouvrir une boîte, calculer la surface d'un emballage ou évaluer les matériaux requis pour fabriquer un contenant. La formule utilisée repose sur l'addition des aires des trois paires de faces opposées, chacune étant présente deux fois sur le solide. Le programme QuickBASIC/QBasic présenté ci-dessous met en oeuvre cette formule géométrique de manière simple et efficace au moyen d'une fonction dédiée nommée RectangularPrismSurfaceArea. À partir de la hauteur, de la largeur et de la longueur du prisme, cette fonction calcule automatiquement la surface totale du solide. Les exemples fournis illustrent le calcul pour plusieurs dimensions différentes, permettant de vérifier rapidement l'exactitude des résultats obtenus. Cet exemple démontre également comment une formule géométrique couramment utilisée peut être facilement intégrée dans un programme informatique, offrant ainsi une solution pratique pour les calculs scientifiques, techniques ou éducatifs nécessitant la manipulation d'objets tridimensionnels.
Vous trouverez la réponse que vous souhaitez, à l'aide du code source QuickBASIC/QBasic suivant :
- DECLARE FUNCTION RectangularPrismSurfaceArea! (h!, w!, l!)
-
- PRINT "L'aire d'une surface de prisme rectangulaire de 10x5x5 est " + STR$(RectangularPrismSurfaceArea(10, 5, 5)) + "cm2"
- PRINT "L'aire d'une surface de prisme rectangulaire de 2x3x4 est " + STR$(RectangularPrismSurfaceArea(2, 3, 4)) + "cm2"
- PRINT "L'aire d'une surface de prisme rectangulaire de 1x3x7 est " + STR$(RectangularPrismSurfaceArea(1, 3, 7)) + "cm2"
-
- FUNCTION RectangularPrismSurfaceArea (h, w, l)
- RectangularPrismSurfaceArea = (2 * h * w) + (2 * h * l) + (2 * l * w)
- END FUNCTION
on obtiendra le résultat suivant :
L'aire d'une surface de prisme rectangulaire de 10x5x5 est 250cm2L'aire d'une surface de prisme rectangulaire de 2x3x4 est 52cm2
L'aire d'une surface de prisme rectangulaire de 1x3x7 est 62cm2