Amusant pour certain, calculer l'aire d'une surface de prisme rectangulaire. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Fortran suivant :
- FUNCTION RectangularPrismSurfaceArea(H,W,L)
- REAL :: H,W,L, RectangularPrismSurfaceArea
- RectangularPrismSurfaceArea = (2.0*H*W)+(2.0*H*L)+(2.0*L*W)
- END FUNCTION
-
- PROGRAM RECTPRISMSURFACEAREASAMPLES
- PRINT*, 'L''air d''une surface de prisme rectangulaire de 10x5x5 est ', RectangularPrismSurfaceArea(10.0,5.0,5.0), 'cm2'
- PRINT*, 'L''air d''une surface de prisme rectangulaire de 2x3x4 est ', RectangularPrismSurfaceArea(2.0,3.0,4.0), 'cm2'
- PRINT*, 'L''air d''une surface de prisme rectangulaire de 1x3x7 est ', RectangularPrismSurfaceArea(1.0,3.0,7.0), 'cm2'
- END
on obtiendra le résultat suivant :
L'aire d'une surface de prisme rectangulaire de 10x5x5 est 250.000000 cm2L'aire d'une surface de prisme rectangulaire de 2x3x4 est 52.0000000 cm2
L'aire d'une surface de prisme rectangulaire de 1x3x7 est 62.0000000 cm2
Dernière mise à jour : Dimanche, le 23 novembre 2014