Algorithme d'un nombre janus

sympas88 a écrit:

Je commence ce topic qui demande de faire un algorithme d'un nombre janus.

Un nombre janus c'est comme palindrome en chaine de caractères c-a-d que ça valeur initial = ça miroire.

EXP.::. 11,121,35453

1//Question: Ecrire dans un 1er temps un algorithme simple.
2//Question: Ecrire une version Itératif à l'aide des fonctions.
3//Question: Ecrire la version récursive.

Je posterai la solution finale après une tentative de votre part.
Bonne chance.

BY MYDI MHAMDI YOUSSEF DEV INFO

Marhbé bik Youssef,
si tu veux présente-toi pour qu'on t'accueille et qu'on une idée sur tes centres d'intérêts etc... peu être tu seras modérateur parmi nous

BY MYDI MHAMDI YOUSSEF DEV INFO

Je te propose de faire une signature automatique, c'est plus pratique. Choisis aussi une image Avtar. Ce sont justes des propositions de ma part

Finalement je te remercie pour le sujet, il est très intéressant, et posé au bon endroit, à la bonne rubrique!

Bon courage.

Voici ma tentative :


algorithme janus;
var T: tableau[1..20] de entier; x,m,taille,i,r,j:entier;
b:booleen;
debut
ecrir('Donnez votre nombre :');
lire(x);
m<--x;
taille<--1;
Tantque (m<>0) faire
r<--(m mod 10);
m<--(m div 10);
T[taille]<-- r;
taille<--taille+1;
fintantque;
taille<--taille-1;
b<--true;
i<--1;
j<--taille;
Tantque ((i < j) et (b=true)) faire
Si (T[i]<>T[j]) alors
b<--false;
finsi;
i<--i+1;
j<--j-1;
fintantque;
Si (b=true) alors
ecrire(x,' est un nombre janus !');
Sinon
ecrire(x,' n"est pas un nombre janus !');
finsi;
fin.

Cadeau :

# String.sub "janus" 1 4;;