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

Function CircleArea (r As Double) As Double      CircleArea = Pi * (r * r) End Function Sub Main()      Print "L'air d'un cercle de rayon de 1 cm est " &Str$(CircleArea(1)) &"cm2"      Print "L'air d'un cercle de rayon de 5 cm est " &Str$(CircleArea(5)) &"cm2"      Print "L'air d'un cercle de rayon de 8 cm est " &Str$(CircleArea(8)) &"cm2"      Print "L'air d'un cercle de rayon de 10 cm est " &Str$(CircleArea(10)) &"cm2"  End Sub

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