DEV PASCAL
clarabella32
-
Marc -
Marc -
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.
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.
A voir également:
- DEV PASCAL
- Turbo pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Massgrave dev - Accueil - Windows
- Dev c++ - Télécharger - Langages
- My pascal - Télécharger - Édition & Programmation
8 réponses
ajoute un "readln();" à la fin, ca empèchera ton programme de se terminer. (eventuellement si ça déconne, met une variable dans ton readln...)
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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.
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.