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 Liberty BASIC suivant :

  1. PRINT "l'aire d'un cercle de rayon de 1 cm est " + STR$(CircleArea(1)) + "cm2"
  2. PRINT "l'aire d'un cercle de rayon de 5 cm est " + STR$(CircleArea(5)) + "cm2"
  3. PRINT "l'aire d'un cercle de rayon de 8 cm est " + STR$(CircleArea(8)) + "cm2"
  4. PRINT "l'aire d'un cercle de rayon de 10 cm est " + STR$(CircleArea(10)) + "cm2"
  5.  
  6. FUNCTION CircleArea(r)
  7.   PI = 3.141592653589793
  8.   CircleArea = PI * (r * r)
  9. END FUNCTION

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 : Samedi, le 23 août 2014