Discussion :

[1001100111]

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.

É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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[droggo]

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.

[1001100111]

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.

[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.

[mick605]

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

[1001100111]

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

[M.Dlb]

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