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.

[darrylsite]

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.

Je crois qu' il n' en a pas vraiment besion pour cet exercice. Je trouve que son premier code marchera bien s' il revoit son code.La partie qui cloche est :

Code :

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

1
2
if n<prec then   decroisJamais:=true
                          else  decroisJamais:=true;

momo1367:
si tu veux conserver les nombres entrez dans l' ordre croissant, tu vas devoir utiliser un tableau.

[droggo]

Dio,

Je crois qu' il n' en a pas vraiment besion pour cet exercice. Je trouve que son premier code marchera bien s' il revoit son code.

Son code donnant l'impression d'être écrit selon la très mauvaise habitude "Tiens, si je faisais ça, ça marchera peut-être ? Ben non. Alors ça ?...", reprendre au début et apprendre à travailler correctement n'est absolument pas inutile.

La programmation est faite d'abord de rigueur, il faut l'apprendre.

[momo1367]

merci en tout les cas pour vous commentaires j'ai pris note et j'esseye de suivre vos consseilles
je debute en pascal
et pour moi c'est vraiment du chinois j'esseye
voila
encore merci
a+

[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
program croissance;
var n,prec:integer ;
decroisJamais:boolean;
begin
readln(n);
decroisJamais:=true;
if   n=-1 then writeln('serie vide ')
else
begin
 prec:=n;
 readln(n);
while (n<>-1) and decroisJamais do
             begin
               { comparer x avec prec}
                if n>=prec then  decroisJamais:=true
                           else  decroisJamais:=false;
                                 prec:=n;
                                 readln(n);
             end;
if decroisJamais=true then   writeln('la serie ne decrois jamais ')
                      else   writeln('la serie decrois ') ;
end;
readln
end.

[krachik]

Ce n'est pas un algo mais un code Pascal.N'oublies pas de mettre les balises code (# dans l'editeur ) et d'indenter ton code
Pour le code je te propose un indice ,Si on reprend ton exercice ,
-Est ce que tu as besoin d'indiquer dans l'execution au fur et à mesure si la serie decroit ou pas ?
-Tu peux le faire comme tu fais ou bien utiliser un tableau comme ça deja été dit.
-Vu que tu as besoin de lire au moins une fois un nombre tu ne crois pas qu'il serait adapter d'utiliser plutot une boucle "repeat until"

[droggo]

Fio,

As-tu essayé ton programme ? Si oui, fait-il ce que tu penses ?