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 PL/1 suivant:

Corps: PROC options(main);       display("L'air d'une surface de prisme rectangulaire de 10x5x5 est "                || RcPrSuA(10, 5, 5) || "cm2");     display("L'air d'une surface de prisme rectangulaire de 2x3x4 est "                || RcPrSuA(2, 3, 4) || "cm2");     display("L'air d'une surface de prisme rectangulaire de 1x3x7 est "                || RcPrSuA(1, 3, 7) || "cm2");  END Corps;  RcPrSuA: PROC(h, w, l) RETURNS (fixed);       DCL (h, w, l) fixed;      RETURN((2 * h * w) + (2 * h * l) + (2 * l * w));  END RcPrSuA;

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