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 Delphi/Kylix/Lazarus suivant :

  1. Program ComputeCircleArea;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses Math,SysUtils;
  5.  
  6. Function CircleArea(r:Real):Real;Begin
  7.  CircleArea:=PI * (r * r);
  8. End;
  9.  
  10. BEGIN 
  11.  WriteLn('L''air d''un cercle de rayon de 1 cm est ',CircleArea(1),'cm2');
  12.  WriteLn('L''air d''un cercle de rayon de 5 cm est ',CircleArea(5),'cm2');
  13.  WriteLn('L''air d''un cercle de rayon de 8 cm est ',CircleArea(8),'cm2');
  14.  WriteLn('L''air d''un cercle de rayon de 10 cm est ',CircleArea(10),'cm2');
  15. END.

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 : Dimanche, le 17 août 2014