flyingscorpio/efrei
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Do ex 1

Browse source
This commit is contained in:
flyingscorpio@clevo 2022-07-08 08:34:59 +02:00
parent 01b1b888e9
commit 5c97792f79
2 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
scripting/perl/circonference.pl Executable file
View file

@ -0,0 +1,13 @@
#!/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";

4
scripting/perl/exercice.tex
View file

@ -13,9 +13,11 @@
\begin{enumerate}
\item Écrire un programme qui calcule la circonférence d’un cercle avec le rayon de 12.5.
\item Écrire un programme qui calcule la circonférence d’un cercle de rayon de 12.5.
La circonférence est $2\pi$ fois le rayon de la circonférence (la valeur de $\pi$ est approximativement 3.141592654).
\lstinputlisting{./circonference.pl}
\item Modifiez le programme précédent pour permettre à l’utilisateur du programme de saisir la valeur du rayon.
\item Modifiez le programme précédent en sorte que si l’utilisateur saisit le nombre inférieur à 0, la valeur reportée sera 0 (plutôt que négative).