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 LotusScript suivant:

Function RectangularPrismSurfaceArea (h As Double, w As Double, l As Double) As Double      RectangularPrismSurfaceArea = (2 * h * w) + (2 * h * l) + (2 * l * w) End Function Sub Main()      Print "L'air d'une surface de prisme rectangulaire de 10x5x5 est " &Str$(RectangularPrismSurfaceArea(10, 5, 5)) &"cm2"      Print "L'air d'une surface de prisme rectangulaire de 2x3x4 est " &Str$(RectangularPrismSurfaceArea(2, 3, 4)) &"cm2"      Print "L'air d'une surface de prisme rectangulaire de 1x3x7 est " &Str$(RectangularPrismSurfaceArea(1, 3, 7)) &"cm2"  End Sub

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