Section courante

A propos

Section administrative du site

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 :

  1.  Corps: PROC options(main); 
  2.     display("L'air d'un cercle de rayon de 1 cm est " ||
  3.              CirArea(1) || "cm2");
  4.      display("L'air d'un cercle de rayon de 5 cm est " ||
  5.              CirArea(5) || "cm2");
  6.      display("L'air d'un cercle de rayon de 8 cm est " ||
  7.              CirArea(8) || "cm2");
  8.      display("L'air d'un cercle de rayon de 10 cm est " ||
  9.              CirArea(10) || "cm2");
  10.  END Corps; 
  11.  
  12.  CirArea: PROC(r) RETURNS(float);
  13.      DCL (r) float; 
  14.       DCL (PI) float INIT (3.14159265358); 
  15.      RETURN(Pi * (r * r));
  16.  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


Dernière mise à jour : Mercredi, le 15 octobre 2014