Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Géométrie - Calcul l'air d'un cercle Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

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

  1. #!/usr/bin/perl
  2.  
  3. use Math::Trig;
  4.  
  5. sub CircleArea() {
  6.    my($r) = @_;
  7.    return pi * ($r * $r);
  8. }
  9.  
  10. print "L'air d'un cercle de rayon de 1 cm est ".&CircleArea(1)."cm2\n";
  11. print "L'air d'un cercle de rayon de 5 cm est ".&CircleArea(5)."cm2\n";
  12. print "L'air d'un cercle de rayon de 8 cm est ".&CircleArea(8)."cm2\n";
  13. print "L'air d'un cercle de rayon de 10 cm est ".&CircleArea(10)."cm2\n";

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: Vendredi, le 23 décembre 2011