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.

[krachik]

Bonjour
utilises les balises code (#) dans l'editeur pour ton code
Indentes bien code et tu veras que rien ne va.Tu es parti d'un algo ou tu t'es lancé juste comme ça?
-Quel est l'utilité de ton booléen decroisJamais qui ne sert pas à grand chose à part les affections que tu lui fais et au passage cette valeur est egale à true quelque soit ce qui se passe dans le code
-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
writeln('entrez une serie de nombre');
readln(n);

-En tant que utilisateur si je vois ça "Entrer une serie de nombre " je serai tenté d'entrer vraiment une serie de nombre sauf que le programmeur ne lui qu'un entier(il y a probleme d'information)


Ps: Cri d'alarme aux Moderateurs:juste uen suggestion :S'ils pouvaient mettre dans l'editeur(interface pour repondre a un post ou pour faire un post) juste une phrase genre "Pensez aux balises codes (#) si vous posté du code"
Je ne sais pas combien de fois par jour les modo modifient un code juste pour les balises code
@+

[momo1367]

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program dcroit(input,output);
var nombre1,nbrsui:integer;
mesage :string;
begin
mesage:='ne decroit jamais';
writeln('entrer une serie de  nombre entier terminer par -1');
readln(nombre1);
if nombre1=-1 then
begin
writeln('serie vide');
readln;
halt
end;
readln(nbrsui);
if nbrsui=-1 then
begin
writeln('ne decroit jamais');
readln;
halt;
end;
readln(nbrsui);
repeat
if nombre1>nbrsui then
begin
 mesage:='decroit'
 end
 else
 begin
nombre1:=nbrsui
end;
readln(nbrsui);
until nbrsui = -1 ;
 
writeln(mesage);
readln
end.

[krachik]

Bah c'est pas mieux
Bon je te conseille de prendre un papier et un stylo ,d'etablir un algo et apres passer sur la machine
Quand tu dis dans le titre que tu es arrivé à ça tu peux dire ce qui ne va pas ou ce que tu ne comprend pas?
On ne va pas prendre tout le temps de te reexpliquer ton code
@+

[momo1367]

voila
je prend par exemle deux serie
1) serie: 1 2 2 8 14 18 -1
decroit jamais: v v v v v v
prec de x : ? 1 2 2 8 14

2) serie : 8 12 16 4 9 17 -1
decroit jamais : v v v F
prec de x: ? 8 12 16

je sais que je dois entree le 2ieme nombre avant de rentrer dans la boucle

mais la suite je suis perdu
un petit coup de main serai le bien venu
merci a+

[droggo]

Hui,

Le meilleur coup de main, c'est toi qui peut te le donner.

Oublie le Pascal, prends une feuille et un crayon, et écrit clairement (en français) l'enchainement des instructions pour que ça marche.

Seulement ensuite tu auras à te préoccuper du code en Pascal.