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.
Partager