Discussion :

[momo1367]

Demande d'une petite aide

Ecrire un programme qui affiche un message concernant la decroissance d'une série.
Les message sont : la série ne décroît jamais, la série décroît, la série est vide.

Moi j'ai essayé comme cela mais ça ne fonctionne pas :

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
16
17
18
19
program croissance;
var n,prec:integer;
decroisJamais:boolean;
begin
writeln('entrez une serie de nombre');
readln(n);
decroisJamais:=true;
if   n=-1 then writeln('serie vide ');
readln(prec);
while n<>-1 do
             begin
                readln(n);
                if n<prec then   decroisJamais:=true
                          else  decroisJamais:=true;
             end;
if n>prec then   writeln('ne decrois jamais')
          else   writeln('decrois ') ;
readln
end.