L'énigmatique PI et l'aire d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source QuickBASIC/QBasic suivant :
- DECLARE FUNCTION CircleArea! (r!)
- CONST PI = 3.141592653589793#
-
- PRINT "l'aire d'un cercle de rayon de 1 cm est " + STR$(CircleArea(1)) + "cm2"
- PRINT "l'aire d'un cercle de rayon de 5 cm est " + STR$(CircleArea(5)) + "cm2"
- PRINT "l'aire d'un cercle de rayon de 8 cm est " + STR$(CircleArea(8)) + "cm2"
- PRINT "l'aire d'un cercle de rayon de 10 cm est " + STR$(CircleArea(10)) + "cm2"
-
- FUNCTION CircleArea (r)
- CircleArea = PI * (r * r)
- END FUNCTION
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 : Mercredi, le 14 septembre 2016