DEV PASCAL

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

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

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.

Bonsoir,

Avec mes exuses, je crois que c'est plutot

REAPEAT;
UNTIL KEYPRESSED;

Bonne soirée

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

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.

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.

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.