Trouver une lettre dans un mot

Version imprimable

Bonjour

Je suis novice dans la programmation.

Je voudrais savoir comment faire pour trouver la première et la dernière lettre d'un mot sous Turbo Pascal. Voici ce que j'ai fait mais il y a une erreur car ça ne fonctionne pas. Merci pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 var mot : string I : bye begin write ('Entrez votre mot: '); readln; for I:=1 to length(mot) do mot[I]:= upcase (mot[I]); writeln ('Votre mot est :',mot,'il commence par : et se termine par'); readln end.
Ensuite je voudrais prendre les 2 premières lettre d'un mot et les 2 dernières d'un autre mot et faire un nouveau mot avec ces 4 lettres.

Merci à tous de votre aide :)

02/11/2009, 17h21
mick605

Salut

Je ne sais pas a quoi sert cette boucle for ...
La première lettre du mot est Mot[1], et la dernière est Mot[Length(Mot)]
De même, la deuxieme lettre est Mot[2], et l'avant derniere est Mot[Length(Mot)-1] ....

Je pense qu'avec ca tu devrais t'en sortir ...

Bonne chance !

Mick605

Edit : et pour enregistrer le mot, il faut faire ReadLn(Mot) et pas ReadLn tout court ...
02/11/2009, 19h28
lediamant

Citation:

Envoyé par mick605

Salut

Je ne sais pas a quoi sert cette boucle for ...
La première lettre du mot est Mot[1], et la dernière est Mot[Length(Mot)]
De même, la deuxieme lettre est Mot[2], et l'avant derniere est Mot[Length(Mot)-1] ....

Je pense qu'avec ca tu devrais t'en sortir ...

Bonne chance !

Mick605

Edit : et pour enregistrer le mot, il faut faire ReadLn(Mot) et pas ReadLn tout court ...

Merci pour la réponse
En fait la boucle sert à écrire le mot en majuscule.
Ce que tu m'as donné ne fonctionne pas. :cry:
02/11/2009, 19h34
mick605

Je ne programme qu'en Delphi, mais existe-t-il la fonction UpperCase ? Parce que grace a ca, tu peux mettre le mot directement en majuscule.

Sinon, peut tu me dire ce qui ne marche pas ?
02/11/2009, 20h01
lediamant

Citation:

Envoyé par mick605

Je ne programme qu'en Delphi, mais existe-t-il la fonction UpperCase ? Parce que grace a ca, tu peux mettre le mot directement en majuscule.

Sinon, peut tu me dire ce qui ne marche pas ?

En tout cas merci de m'aider
En pascal on utilise Upcase pour mettre en majuscule.
En fait la première et la dernière lettre n'apparaisent pas. j'ai le mot complet

Pas mal d'erreurs dans ce programme. Celui-là fonctionne parfaitement sous Freepascal ... donc sous Turbo aussi. J'ai mis des commentaires, il faut les lire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program Exo_Mot;
 
var
   mot : string; {les ";" sont obligatoires}
   I     : integer ; {"bye" n'est pas un type pascal ! Juste une façon de dire au revoir ;-) }
begin
   mot := ' ';{Il faut initialiser ta variable, c'est une saine habitude}
   write ('Entrez votre mot: ');
   readln(mot); {il faut préciser ce que la fonction ReadLn doit lire !}
   for I:=1 to length(mot) do
   mot[I]:= upcase (mot[I]); 
   writeln ('Votre mot est :', mot ,' il commence par :', mot[1],'  et se termine par : ' , mot[length(mot)]);
   readln
end.