16 lines
425 B
Perl
Executable file
16 lines
425 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 saisi par l'utilisateur.
|
||
|
||
print "Entrez le rayon d'un cercle afin d'en calculer la circonférence : ";
|
||
my $radius = <STDIN>;
|
||
chomp $radius;
|
||
$radius += 0 or die "$radius n'est pas un nombre !\n";
|
||
|
||
my $circ = 2 * pi * $radius;
|
||
|
||
print "La circonférence d'un cercle de rayon $radius est : $circ\n";
|