DEV PASCAL Fermé

Question

Bonjour,
    j'écris des programmes sur le dev pascale,mais le probléme c'est qu'il ne me laisse pas le temps de voir le résultat,l'exécution est trop rapide ,l'écran noir disparait dés que je tape sur ENTREE,s'il vous plait dites moi ce que je dois faire,merci d'avance.

kwaio · Answer

ajoute un "readln();" à la fin, ca empèchera ton programme de se terminer. (eventuellement si ça déconne, met une variable dans ton readln...)

clarabella32 · Answer

merci KWAIO,mais le probléme persiste,si t'a une autre idée n'hésite pas.

amigo · Answer

Bonsoir,

Une autre méthode pour suspendre l'exécution est d'utiliser une boucle

 REAPEAT;
 UNTIL NOT KEYPRESSED;

On attend qu'une touche soit appuyée.

amigo · Answer

Bonsoir,

Avec mes exuses, je crois que c'est plutot

 REAPEAT;
UNTIL  KEYPRESSED; 

Bonne soirée

clarabella32 · Answer

voilà mon programe j'ai toujours rien méme avec REPEAT 
program meriem;
uses crt;
var m,n,max,S,:longint;
begin
readln(m,n);
max:=m;
if n>m then max:=n;
writeln(max);
repeat;
until not keypressed;
END.
,merci bcp AMIGO

amigo · Answer

Bonsoir,

Essaie d'ecrire ton prog comme ça:

uses crt;
var m,n,max,S,:longint;
begin
readln(m,n);
max:=m;
if n>m then max:=n;
writeln(max);
repeat;
until keypressed;
END. 

La fonction KeyPressed renvoie TRUE si une touche du clavier a été appuyée.
La boucle REPEAT .. UNTIL s'execute indefiniment tant qu'on n'appuye pas sur une touche (KeyPressed = FALSE).
Ca drevrait fonctionner. Sinon, voir si les directives de compilation ne desactivent pas cette fonction.

grad · Answer

Avant le END. final tu mets readln;readln;

Exemple:

program ex;
var a,b:real;
Begin
read(a);
b:=a+1;
write(b);

readln;readln;

EN.

Marc · Answer

c telmen simple. tu n'a qu'à mettre cette instruction après ton affichage.

exemple:
write('ça marche t'inquiètes');
readln;

bonne journée.

DEV PASCAL

8 réponses

Discussions similaires

Newsletters