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 Fortran suivant :

  1. FUNCTION CircleArea(r)
  2.    INTEGER :: r
  3.    REAL PI
  4.    PARAMETER (PI = 3.14159265358979323)
  5.    CircleArea = PI * (r * r)
  6. END FUNCTION   
  7.  
  8. PROGRAM CIRCLEAREASAMPLES
  9.     PRINT*, 'L''air d''un cercle de rayon de 1 cm est ', CircleArea(1), 'cm2'
  10.     PRINT*, 'L''air d''un cercle de rayon de 5 cm est ', CircleArea(5), 'cm2'
  11.     PRINT*, 'L''air d''un cercle de rayon de 8 cm est ', CircleArea(8), 'cm2'
  12.     PRINT*, 'L''air d''un cercle de rayon de 10 cm est ', CircleArea(10), 'cm2'
  13. END

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 : Dimanche, le 23 novembre 2014