L'énigmatique PI et l'air d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source PL/1 suivant:

Corps: PROC options(main);      display("L'air d'un cercle de rayon de 1 cm est " ||              CirArea(1) || "cm2");      display("L'air d'un cercle de rayon de 5 cm est " ||              CirArea(5) || "cm2");      display("L'air d'un cercle de rayon de 8 cm est " ||              CirArea(8) || "cm2");      display("L'air d'un cercle de rayon de 10 cm est " ||              CirArea(10) || "cm2");  END Corps;     CirArea: PROC(r) RETURNS(float);      DCL (r) float;        DCL (PI) float INIT (3.14159265358);       RETURN(Pi * (r * r));  END CirArea;

on obtiendra le résultat suivant:

L'air d'un cercle de rayon de 1 cm est 3.14159265358979cm2 L'air d'un cercle de rayon de 5 cm est 78.5398163397448cm2 L'air d'un cercle de rayon de 8 cm est 201.061929829747cm2 L'air d'un cercle de rayon de 10 cm est 314.159265358979cm2