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 GFA-Basic suivant:

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"

Function CircleArea (r)
  Return PI * (r * r)
EndFunc

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 : Samedi, le 5 août 2017