[Turbo Pascal] Comment faire plusieurs read sur la même ligne

[machmak]

Bonjour

Comment continuer d'écrire dans la même ligne en Turbo Pascal ?
Le problème est que lorsque j'appuie sur "entrer" il revient à la ligne.
Exemple:

Code :

write('..........'); read(x); write('/'); read(y);

Merci.

[Alcatîz]

Bonjour et bienvenue,

Une solution simple : utiliser GotoXY en récupérant le n° de ligne avec WhereY.
Par exemple :

Code :

1
2
3
4
5
6
7
Begin
  Write('Var 1 : ');
  Read(var1);
  GotoXY(12,WhereY - 1);
  Write('Var 2 : ');
  ReadLn(var2);
End.