Exercice
Fermé
myles
-
13 avril 2006 à 18:27
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 13 avril 2006 à 19:53
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 13 avril 2006 à 19:53
1 réponse
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
13 avril 2006 à 19:53
13 avril 2006 à 19:53
Salut,
comme tu n'as pas précisé le language, voilà un bout de code en Perl
comme tu n'as pas précisé le language, voilà un bout de code en Perl
#! /usr/bin/perl
use warnings;
use strict;
my ($c,$d,$u);
print "Entrez un entier positif inférieur a 999 : ";
chomp(my $n = <STDIN>);
die "En dehors de la plage 0 .. 999\n" if $n < 0 or $n > 999;
SWITCH:{
length $n==1 && do { print "Le nombre $n contient $n unités.\n";
print "Le nombre $n écrit en sens inverse : $n\n";
last SWITCH;};
length $n==2 && do { ($d,$u)=split "",$n;print "Le nombre $n contient $d de disaines et $u unités.\n";
print "Le nombre $n écrit en sens inverse : $u$d\n";
last SWITCH;};
length $n==3 && do { ($c,$d,$u)=split "",$n;print "Le nombre $n contient $c centaines, $d de disaines et $u unités.\n";
print "Le nombre $n écrit en sens inverse : $u$d$c\n";
last SWITCH;};
}
Et les différents résultats[lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 0 Le nombre 0 contient 0 unités. Le nombre 0 écrit en sens inverse : 0 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 2 Le nombre 2 contient 2 unités. Le nombre 2 écrit en sens inverse : 2 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 24 Le nombre 24 contient 2 de disaines et 4 unités. Le nombre 24 écrit en sens inverse : 42 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 30 Le nombre 30 contient 3 de disaines et 0 unités. Le nombre 30 écrit en sens inverse : 03 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 999 Le nombre 999 contient 9 centaines, 9 de disaines et 9 unités. Le nombre 999 écrit en sens inverse : 999 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : 1000 En dehors de la plage 0 .. 999 [lamitest@localhost corbeille]$ perl ccm_myles_cdu.pl Entrez un entier positif inférieur a 999 : -1 En dehors de la plage 0 .. 999 [lamitest@localhost corbeille]$