Salut,
 
Je cherche à déterminer si ma séquence est croissante. Elle se termine par '0' et je dois afficher True ou False...
 
J'ai quand même bien du mal...    
 

Maxwell8 a écrit a écrit : Salut,   Je cherche à déterminer si ma séquence est croissante. Elle se termine par '0' et je dois afficher True ou False...   J'ai quand même bien du mal...       Code : program seqCroiss; var c,ec:integer;     begin          writeln('Entrer la séquence...');          read(c);{c=invariant}          read(ec);{ec=élément courant}          while not (ec=0) do                begin                     if ec>c then c:=ec else write('False');                end;          write('True'); end.

 
Dans un premier temps, essaye de mettre le read de ton element courant dans la boucle, sinon, il ne se fera qu'une seule fois (a part si c ca que tu veux ). en tout cas ce serait bien d'avoir plus d'infos sur ce que tu veux faire

Merci de ta réponse
 
En fait le programme doit déterminer si une séquence d'entiers positifs est croissante. La séquence se termine par 0, d'où ma condition d'arrêt.
Ex: 1 5 7 10 15 0 --> True
    1 5 4 0 --> False

Bon je crois avoir trouvé finalement    

 
Merci rdmarmotte ...

Maxwell8 a écrit a écrit : Bon je crois avoir trouvé finalement     Code : program seqCroiss; var c,ec:integer;     b:boolean;     begin          writeln('Entrer la séquence...');          read(c);{c=invariant}          read(ec);{ec=élément courant}          b:=TRUE;          while not ((b=FALSE) or (ec=0)) do                begin                     if ec>c then c:=ec                     else b:=FALSE;read(ec);                end;          write(b);     end.   Merci rdmarmotte ...

 
ca m'a l'air deja mieux de rien