Exercice
myles
-
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
Je vous prie de m'aider: Ecrire l'agorithme qui lit un entier positif inférieur a 999( coposé de3 chiffres au maxium) et permet d'afficher le nobre de centaines,de dizaines et d'unités et de donner aussi le nombre issu de la lecture inversée du mee entier
1 réponse
-
Salut,
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]$
