Discussion :

[momo1367]

bonjour
demande aide svp.
exercice
ecrire un programme qui affiche la position dans la serie de la derniere apparition d'un nombre N introduit au clavier .
moi je suis arriver a faire le programme mais je coince au niveau de ou la serie et vide .

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
program travail1;
var posX,derPosX,n,x:integer;
begin
writeln('entrez le nombre dont vous voulez voir sa derniere position');
readln(n);
derPosX:=0  ;
posX:=1;
writeln('entrez une serie de nombre');
while x<>-1 do
begin
readln(x);
if x=n then    derPosX:= posX ;
posX:=  posX+1;
end;
if   PosX=1 then writeln('serie vide ')
else    if derPosX=0 then writeln (' ne se trouve pas dans la serie')
else
writeln('la  derniere apparition du nombre introduit au clavier  ',' est ', derPosX);
readln
end.

merci de votre aide a+.

[darrylsite]

while x<>-1 do
begin
readln(x);
if x=n then derPosX:= posX ;
posX:= posX+1;
end;
if PosX=1 then writeln('serie vide ')
else if derPosX=0 then writeln (' ne se trouve pas dans la serie')
else
writeln('la derniere apparition du nombre introduit au clavier ',' est ', derPosX);

quand on rentre dans la boucle while, on demande à l' utilisateur d' entrer x. Si l' utilisateur tape -1 alors on verifie si x est egale à n, ce qui est faux.On fait ensuite posx:=posx+1 (c' est ici le probleme tu devrais d' abord verifier que x est different de -1 avant de faire ça). Apres ...

Donc tu dois faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
while x<>-1 do
begin
readln(x);
if x=n then    
 derPosX:= posX ;
if x<>-1 then
 posX:=  posX+1;
end;

[momo1367]

merci de m'avoir repondu j'ai su resoudre mon probleme
comme cela en faite tu ma aider merci

Code :

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

1
2
3
4
5
6
7
while x<>-1 do
begin
if x=n then    
derPosX:= posX ;
readln(x);
posX:=  posX+1;
end;