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

Program circlearea; Const  PI = 3.1415926535897932384626433832795029; Function CircleArea(r:Real):Real;Begin  CircleArea:=PI * (r * r); End; BEGIN   WriteLn('L''air d''un cercle de rayon de 1 cm est ',CircleArea(1),'cm2');  WriteLn('L''air d''un cercle de rayon de 5 cm est ',CircleArea(5),'cm2');  WriteLn('L''air d''un cercle de rayon de 8 cm est ',CircleArea(8),'cm2');  WriteLn('L''air d''un cercle de rayon de 10 cm est ',CircleArea(10),'cm2'); 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