2022-07-08 08:34:59 +02:00
|
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
|
use warnings;
|
|
|
|
|
|
use Math::Trig;
|
|
|
|
|
|
|
|
|
|
|
|
# Programme qui calcule la circonférence d’un cercle de rayon de 12.5.
|
|
|
|
|
|
|
|
|
|
|
|
my $radius = 12.5;
|
|
|
|
|
|
my $circ = 2 * pi * $radius;
|
|
|
|
|
|
|
2022-07-08 08:40:14 +02:00
|
|
|
|
print "La circonférence d'un cercle de rayon $radius est $circ\n";
|
