Section courante

A propos

Section administrative du site

L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Turbo Pascal suivant :

  1. Program SamplesCircleArea;
  2.  
  3. Function CircleArea(r:Real):Real;Begin
  4.  CircleArea:=PI * (r * r);
  5. End;
  6.  
  7. BEGIN
  8.  WriteLn('L''air d''un cercle de rayon de 1 cm est ',CircleArea(1):1:8,'cm2');
  9.  WriteLn('L''air d''un cercle de rayon de 5 cm est ',CircleArea(5):1:8,'cm2');
  10.  WriteLn('L''air d''un cercle de rayon de 8 cm est ',CircleArea(8):1:8,'cm2');
  11.  WriteLn('L''air d''un cercle de rayon de 10 cm est ',CircleArea(10):1:8,'cm2');
  12. END.

on obtiendra le résultat suivant :

l'aire d'un cercle de rayon de 1 cm est 3.14159265cm2
l'aire d'un cercle de rayon de 5 cm est 78.53981634cm2
l'aire d'un cercle de rayon de 8 cm est 201.06192983cm2
l'aire d'un cercle de rayon de 10 cm est 314.15926536cm2

Dernière mise à jour : Dimanche, le 17 janvier 2016