Bonjour, je suis actuellement sur un projet sur TurboPascal 7.0. Il est simple, l'utilisateur entre certaines constantes et le programme affiche ensuite une représentation des courbes de Lissajous par rapport aux constantes entrées. J'aimerais ensuite revenir en mode texte, seulement le programme se quitte au lieu de passer en mode texte.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
t:=-0.1;
Initgraph(Pilote,Mode, 'C:\BP\BGI');
repeat
     t:=t+0.1;
     xg:=100*x(t);
     yg:=100*y(t)
     xe:=trunc(xg);
     ye:=trunc(yg);
     PutPixel((320+xe),(240-ye),white);
until Keypressed;
CloseGraph;
RestoreCrtMode;
writeln('Untruc');
readkey;
Voilà ce que j'ai actuellement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
t:=-0.1;
Initgraph(Pilote,Mode, 'C:\BP\BGI');
repeat
     t:=t+0.1;
     xg:=100*x(t);
     yg:=100*y(t)
     xe:=trunc(xg);
     ye:=trunc(yg);
     PutPixel((320+xe),(240-ye),white);
until t=7;
readkey;
CloseGraph;
RestoreCrtMode;
writeln('Untruc');
readkey;
Voilà un de mes essais, seulement il ne quitte même pas le mode graphique je dois fermer le programme.