Bonjour,
Je doit faire un algorithme qui vérifie si le mot est un palindrome ou non
Voila mon algo, si quelqu'un peut me dire c'est juste ou non, je suis pas encore un programmeur c'est pourquoi je sais pas comment tester mes travaux

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
T:Tableau[1..n]:Car
Var nl,i:Entier
Début
 Ecrire("Entrer le nombre des lettres dans le mot:")
 Lire(nl)
 Redim(T[nl])
 Pour i<--1 à nl Faire
  Lire(T[i])
 FinPour
 Pour i<--1 à nl Faire
  Si T[i]=T[nl] Alors
   nl<--nl-1
    Si i=nl OU nl=i+1 Alors
     Ecrire("Bravo! ce mot est un palindrome")
    FinSi
  Sinon
   Ecrire("Désolé, ce mot n'est pas un palindrome")
   i<--nl
  FinSi
 FinPour
Fin
un autre problème:
Je sais que normalement il ne faut pas demander a l'utilisateur de donner le nombre de lettres dans le mot, je sais pas comment faire (je suis un débutant ), dans mes recherches j'ai trouvé des fonctions prédéfinis tel que Len() et Mid() , est-ce que je peut les utilisés?

PS: désolé si vous trouvé des erreurs d'orthographe, je suis pas français =)