Discussion :

[lediamant]

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 :

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

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

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

[lediamant]

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.

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

[lediamant]

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

[richard]

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 :

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

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.

@+