14 lines
271 B
Perl
14 lines
271 B
Perl
|
#!/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;
|
|||
|
|
|
|||
|
|
print "La circonférence d'un cercle de rayon $radius est :\n";
|
|||
|
|
print " $circ\n";
|