12 lines
256 B
Perl
Executable file
12 lines
256 B
Perl
Executable file
#!/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 $circ\n";
|