Discussion :

[svince]

Voilà, j'ai un souci et impossible de savoir lequel !
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Var mess:string;
 
[...]
 
Begin
Writeln('Entrez le message à coder')
Read(mess);
Readln;
Writeln('Le message que vous avez tapé est le suivant :',mess);
End.

Ce que j'obtiens à l'execution est :
"Entrez le message à coder
Le message que vous avez tapé est le suivant:"
Ou est le souci ? Merci d'avance !

[droggo]

Kio,

Je ne vois rien qui empêche ton programme de fonctionner (à part qu'il ne doit pas compiler, manque un ; (signalé ci-dessous)

Code :

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

1
2
3
4
5
6
7
8
9
10
Var mess:string;

[...]

Begin
Writeln('Entrez le message à coder') { ici manque le ; }
Read(mess);
Readln;
Writeln('Le message que vous avez tapé est le suivant : ',mess);
End.

Et qu'une bonne pratique est d'utiliser ReadLn plutôt que Read pour lire une donnée au clavier.

Sans oublier une petite mise en forme (indentation, etc. )

Code :

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

1
2
3
4
5
6
7
8
9
Var mess:string;
 
[...]
 
Begin
  Write('Entrez le message à coder : ') ;
  ReadLn(mess);
  Writeln('Le message que vous avez tapé est le suivant :',mess);
End.

(Les petites modifications permettent une meilleure présentation à l'écran, mais c'est très subjectif)

ps : pense à encadrer ton code par les balises [ code] [ /code], sans les espaces qui ne sont là que pour invalider ces balises.

[svince]

le ; y était et ca compilait parfaitement. Mais ca ne marchait pas. J'ai mis un Readln avant au lieu d'après et ca marche, je ne sais toujours pas pourquoi. Bizarre...

[SansPseudo]

essaye de mettre deux readln; à la fin (juste avant le END)
peut-être que le programme finit tellement vite son exécution que tu vois pas qu'il marche bien...
sinon pour plus joli (ou pas, enfin sur PASCAL...) tu peux utiliser la procédure
GotoXY(x,y:integer); pour lire ou écrire à un endroit donné de ton écran...

Exemple

Code :

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

1
2
 
Gotoxy(5,5); write("hello");

Merci

[droggo]

Kio,

essaye de mettre deux readln; à la fin (juste avant le END)
peut-être que le programme finit tellement vite son exécution que tu vois pas qu'il marche bien...
sinon pour plus joli (ou pas, enfin sur PASCAL...) tu peux utiliser la procédure
GotoXY(x,y:integer); pour lire ou écrire à un endroit donné de ton écran...

Exemple

Code :

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

1
2
 
Gotoxy(5,5); write("hello");

Merci

Pourquoi 2 readln ?

[mah00]

le readln ke tu as mis aprés read sert à quoi?

[Kiefer_Sutherland]

Quelqu'un pour m'expliquer pourqoi read(...) ;

et puis readln ???

Normalement un seul readln n'est ce pas ?

[droggo]

Mau,

Quelqu'un pour m'expliquer pourqoi read(...) ;

et puis readln ???

Normalement un seul readln n'est ce pas ?

Oui, évidemment, comme je l'ai corrigé dans mon message (voir plus haut).