Inverser les mots d'une chaîne

Bonjours a tous.
J'ai un petit problème avec un exercice et je cherche un coup de main pour l'algorithme pour que je puisse le faire.

Citation:

---

Écrire un programme pascal et un algorithme permettant de lire une chaine qui contient 3 mot séparer par un espace et l'afficher a l'inverse.
Exemple: Section informatique 2010 Après traitement: 2010 informatique Section
Le programme ne doit contenir aucune boucle ni procédure ou fonction.

---

Je pense que ça sera un truc comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Program Ex; Uses wincrt; Var Phrase,mot1,mot2,mot3:String ; p:Integer; Begin Readln(Phrase); p:=(pos(' ',Phrase)); mot1:=(copy(Phrase,1,p-1)); mot2:=(copy(phrase,p,[JE BLOQUE ICI])); mot3:=(copy(Phrase,length(mot1)+length(mot2),[JE BLOQUE ICI]); Write(mot3,mot2,mot1); END.

---

Merci de me donner quelques indices pour résoudre ce problème.

Hoa,

Pour t'y retrouver avec les indices, retour au papier + crayon, tu écris une phrase avec 3 mots séparés par des espaces (très courts les mots ...), et tu notes ce que tu obtiens.

Et paf, tu sais comment faire. :)

Merci pour ta réponse droggo.
J'ai bien essayé ça tu sais mais je bloque toujours pour connaitre la longueur du deuxième mot de la chaine.

Citation:

---

[INIT]
-Lire(Phrase);
-P=>Position de ' ' dans phrase.
-Mot1=>Du caractére 1 jusqu'à (P).
-Mot2=>De (P) 'jusqu'à[???]
-Mot3=>De[???] jusqu'à Longueur(phrase).
Écrire(mot3,mot2,mot1);
Fin.

---

Pour info, il existe une fonction PosEx qui permet de chercher la premiere occurence d'une chaine dans une autre a partir d'un caractere donné ...

Donc, tu pourrais rechercher l'espace (' ') suivant a partir du premier espace ...

Bonne chance ;)

La fonction PosEx ne fonctionne pas pour TPW 1.5 (hé oui je suis obligé d'utilisé cet ancêtre).
En tout cas merci de m'avoir répondu mick :D

C'est la fonction Pos, et non PosEx, pour Turbo Pascal ;)

Ton code n'est pas si mauvais que ça:

Citation:

---

Uses wincrt;
Var
Phrase,mot1,mot2,mot3:String ; p:Integer;
Begin
Readln(Phrase);
p:=(pos(' ',Phrase));
mot1:=(copy(Phrase,1,p-1));
mot2:=(copy(phrase,p,[JE BLOQUE ICI]));
mot3:=(copy(Phrase,length(mot1)+length(mot2),[JE BLOQUE ICI]);
Write(mot3,mot2,mot1);
END.

---

Là où tu bloques:
Copie le reste de la chaîne(Phrase) dans mot3.(à partir de p+1 jusqu'à lenght(phrase); p+1 pour ne pas copier l'espace avant)
Recherche la position p du nouvel espace dans mot3.
Copie le mot avant l'espace dans la chaîne mot2.
Copie le reste de mot3 dans mot3.(à partir de p+1 jusqu'à lenght(mot3) ;p+1 pour ne pas copier l'espace avant)
la chaîne finale sera : chainefinale:=mot3+ ' '+ mot2 + ' '+mot1

Merci beaucoup Moncef pour ton aide :ccool:
Voilà ce que ca donne finalement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Program Ex; Uses wincrt; Var Phrase,mot1,mot2,mot3:String ; p:Integer; Begin Readln(Phrase); p:=(pos(' ',Phrase)); mot1:=(copy(Phrase,1,p-1)); mot3:=(copy(Phrase,p+1,length(phrase))); p:=(pos(' ',mot3)); mot2:=(copy(mot3,1,p-1)); mot3:=(copy(mot3,p+1,length(phrase))); Write(mot3,' ', mot2,' ',mot1); END.

---