Gladir.com - DarkBASIC - Géométrie - Calcul l'air d'un cercle


L'énigmatique PI et l'air d'un cercle. Vous trouverez la réponse que vous souhaitez, à l'aide du code source DarkBASIC suivant:
PRINT "L'air d'un cercle de rayon de 1 cm est ";CircleArea(1);"cm2"
PRINT "L'air d'un cercle de rayon de 5 cm est ";CircleArea(5);"cm2"
PRINT "L'air d'un cercle de rayon de 8 cm est ";CircleArea(8);"cm2"
PRINT "L'air d'un cercle de rayon de 10 cm est ";CircleArea(10);"cm2"
WAIT KEY

FUNCTION CircleArea(r#)
   PI# = 3.141592653589793
   ReturnValue# = PI# * (r# * r#)
ENDFUNCTION ReturnValue#
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: Mardi, le 7 février 2006