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 BASICA/GWBASIC suivant:

10 DEF FNRECTANGULARPRISMSURFACEAREA(H, W, L) = (2 * H * W) + (2 * H * L) + (2 * L * W) 20 PRINT "L'air d'une surface de prisme rectangulaire de 10x5x5 est " + STR$(FNRECTANGULARPRISMSURFACEAREA(10, 5, 5)) + "cm2" 30 PRINT "L'air d'une surface de prisme rectangulaire de 2x3x4 est " + STR$(FNRECTANGULARPRISMSURFACEAREA(2, 3, 4)) + "cm2" 40 PRINT "L'air d'une surface de prisme rectangulaire de 1x3x7 est " + STR$(FNRECTANGULARPRISMSURFACEAREA(1, 3, 7)) + "cm2"

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