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

10 PI = 3.141592653589793# 20 DEF FNCIRCLEAREA(R)=PI*(R*R) 30 PRINT "L'air d'un cercle de rayon de 1 cm est " + STR$(FNCIRCLEAREA(1)) + "cm2" 40 PRINT "L'air d'un cercle de rayon de 5 cm est " + STR$(FNCIRCLEAREA(5)) + "cm2" 50 PRINT "L'air d'un cercle de rayon de 8 cm est " + STR$(FNCIRCLEAREA(8)) + "cm2" 60 PRINT "L'air d'un cercle de rayon de 10 cm est " + STR$(FNCIRCLEAREA(10)) + "cm2"

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