...célèbre palindrome (se lit pareil dans les 2 sens, de gauche à droite et de droite à gauche, une fois les mots arrangés correctement bien sûr ... --")

Bon le but ici est de trouver tous les nombres palindromiques entre 1 et N, N étant un nombre donné au programme.
Les nombres à 1 chiffre sont considérés comme palindromiques

Par exemple entre 1 et 100, il y a
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99
soit 18 nombres palindromiques

O_o
Intéressant.

On peut le faire avec Maple ?

si tu veux :p

Ca doit pas être super dur...

Code:

0->total
For i,1,n
  string(i)->temp
  For j,1,int(dim(temp)/2+0.5)
      if (mid(temp,j,1)=mid(temp,dim(temp)-j,1))
        total+1->total
  EndFor
EndFor
Disp total

Non testé, mais ça devrait marcher

On cherche les palindromes, et non pas leur nombre.

oui mais bon on peut en déduire l'un de l'autre
ProgVal ton code est bizarre, la boucle for ne fait pas ce qu'il faut
par exemple si je prends en entrée le nombre 33333, qui est un palindrome, il comptera 2 ou 3 fois le même nombre, il faudrait plutôt une variable, par exemple oui, qui prend la valeur 1 (true) par défaut, puis ensuite on entre dans la boucle "For j,1,int(dim(temp)/2+0.5)" et si 1 chiffre et son "symétrique" sont différents, on modifie oui qui prend la valeur 0. Après la boucle, si oui vaut toujours 1, on augmente total, et/ou on le stocke dans une liste

donc ça donnerait un truc du genre :


Pareil, non testé, mais c'est plus pour le principe, pour illustrer ce que j'ai dit avant

Ah oui, effectivement... je comprend pas pourquoi j'ai écris ça...

Code:

0->total
For i,1,n
  string(i)->temp
  int(dim(temp)/2+0.5)->arret
  For j,1,arret
      if (mid(temp,j,1)=mid(temp,dim(temp)-j,1))
        Exit
  EndFor
  if j<arret+1
      total+1->total
EndFor
Disp total

non, ces lignes sont fausses :

Code:

  if j<arret+1
      total+1->total

c'est plutôt

Code:

 if j=arret
    total + 1->total

puisque si ça s'arrête avant d'avoir terminé la boucle, ça veut dire que j est strictement inférieur à arret+1

Remarque je sais plus si c'est arret, ou arret+1 quand une boucle termine :
Que vaut A à la fin de ce code ?

Code:

For A,1,100
End

Vaut-il 100 ou 101 ?

arret+1, donc 101

oui donc voilà, c'est le même code sauf que c'est
if j=arret+1

Salut, excuser moi de rompre avec le Basic, voilà mon code
#include
_main(){
char buf[12];
int n,iterat=-1,i,j,k;
n=atoi(gets(buf));
if(n<10){
for(i=1;i<=n;i++){
printf("palind=%d",i);
ngetchx();
}}
else if(n>=10){
for(i=1;i<10;i++){ printf("palind=%d",i);
ngetchx();
}
for(j=1;j<=n;j++){
iterat++;
for(k=0;k<=9;k++){iterat++;
if(j==k&&iterat<=n){
printf("palind=%d%d",j,k);
}}}} }
j ai pas testé, j ai mon ticonnect qui me joue des tours

C est juste une approche...

hmm, marrant ta présentation, j'sais pas si tu présentes tes programmes comme ça tout le temps ... enfin bon ^^



Bizarre cette portion de code, c'est sûrement optimisable à mon avis ^^
En fait, on peut fusionner ça en 1 seule boucle for :





euh ... comment ça marche ça ?

Nan, je tape sur un téléphone, c est pas aisé de faire le beau avec... Pfff je me suis bourré

Lorsque j execute le code de progval j ai un domain error après la ligne
for j,1,arret





Eureka !!! J ai la solution en C.
Plus que tama veut que je poste un code propre, je le poste lundi car là je suis sur phone.

non mais c'est pas grave, tu peux poster comme tu veux ^^
(au passage, évite le triple post, même si t'es sur phone, j'ai fusionné les messages :))

Pour le code de ProgVal, ça doit être à cause du mid(...) ... à voir

Je suis désolé pour les multi postes, je ne pouvais pas m'en empecher. Le probleme était trop interressant...

Voici le code "testé"

// C Source File
// Created 1/8/2009; 9:31:50 PM
//programme affichant les palindromes de 1 a N
#include

void main(void)
{
int flag=0,i,j=0,tab[50],res=0,n;
char saisi[50];
puts("Saisir la valeur de n");
n=atoi(buf);
char buf[50];
buf[j]='1';
while(flag!=1){
tab[0]=atoi(buf);
for(i=1;i<=9;i++){
res=tab[0]*i;
if(res>n){
flag=1;
ngetchx();
exit(0);
}
printf(" Palindrom = %d\n",res);
}//Fin for
j++;
buf[j]='1';
ngetchx();
}//Fin while
}

hmm...comment il marche ce code ?
et pis il faut aussi les compter, mais ça se fait en 2/3 lignes

Salut, en fait je multiplie au fur et à mesure 1, 11, 111, 1111, ... avec les nombres 1, 2, 3, 4, ... pour obtenir la liste de tous les nombres palindromes. C'est plutot simple, je trouve, ...
En 2/3 lignes !!! C'est possible ca ? je vais voir ca ...

bah non, c'est pas si simple que ça, là t'auras que les palindromes de la forme xx...xx (avec autant de fois le chiffre x que tu veux)
mais les palindromes, y en a d'autres, par exemple de la forme xxyxx (11311 par exemple) et ça ça peut pas s'obtenir avec la multiplication comme ça ...

J'avoue, j'ai pas lu la première partie de l'énoncé...
ok

tiens p'tite question annexe :
Pour n>1, déterminer le nombre de palindromes à n chiffres

hein? Le nombre de palindromes?

oui .... ?