Section courante

A propos

Section administrative du site

L'énigmatique PI et l'aire 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'aire d'un cercle de rayon de 1 cm est ".&CircleArea(1)."cm2\n";
  11. print "l'aire d'un cercle de rayon de 5 cm est ".&CircleArea(5)."cm2\n";
  12. print "l'aire d'un cercle de rayon de 8 cm est ".&CircleArea(8)."cm2\n";
  13. print "l'aire d'un cercle de rayon de 10 cm est ".&CircleArea(10)."cm2\n";

on obtiendra le résultat suivant :

l'aire d'un cercle de rayon de 1 cm est 3.14159265358979cm2
l'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 : Jeudi, le 17 janvier 2019