Amusant pour certain, calculer l'air d'une surface de prisme rectangulaire. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Quick Pascal suivant:

Program Rect; Function RectangularPrismSurfaceArea(h,w,l:Real):Real;Begin  RectangularPrismSurfaceArea:=(2 * h * w) + (2 * h * l) + (2 * l * w); End; BEGIN  WriteLn('L''air d''une surface de prisme rectangulaire de 10x5x5 est ',RectangularPrismSurfaceArea(10, 5, 5):0:2,'cm2');  WriteLn('L''air d''une surface de prisme rectangulaire de 2x3x4 est ',RectangularPrismSurfaceArea(2, 3, 4):0:2,'cm2');  WriteLn('L''air d''une surface de prisme rectangulaire de 1x3x7 est ',RectangularPrismSurfaceArea(1, 3, 7):0:2,'cm2'); END.

on obtiendra le résultat suivant:

L'air d'une surface de prisme rectangulaire de 10x5x5 est 250cm2 L'air d'une surface de prisme rectangulaire de 2x3x4 est 52cm2 L'air d'une surface de prisme rectangulaire de 1x3x7 est 62cm2