L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source QuickPascal suivant:
Program SamplesCircleArea;
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'aire d'un cercle de rayon de 1 cm est 3.14159265358979cm2l'aire d'un cercle de rayon de 5 cm est 78.5398163397448cm2
l'aire d'un cercle de rayon de 8 cm est 201.061929829747cm2
l'aire d'un cercle de rayon de 10 cm est 314.159265358979cm2
Dernière mise à jour : Dimanche, le 4 mai 2014