Discussion :

[uncalamarroux]

Bonjour,
j'ai un programme T.P. auquel je ne comprend strictement rien.
Doux seigneurs, et gentes dames, au secours!

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
 
Program;
var T: array[1..20001] of integer; 
     U,S,i,n: Integer; 
     coincide: boolean;
begin
randomize;
for i:=1 to 20001 do T[i]:=1+random(2000);
end;
i:=1; coincide:=False;
Repeat
i:=i+1.
S:=0;
While (S<i-1) and NOT coincide DO
begin
S:=S+1;
If T[S]=[i] then coincide:= true;
end;
until coincide:=true;
U:=i;
for n:=1 to i do writeln(T[n],',');
writeln('U=',U); writeln('S=',S);
end.

Les questions demandées sont:
1- Que fait la première boucle fort?
2-Que sont U et S à la fin du programme?
3-Pourquoi est-il certain que le nombre de passage dans la boucle repeat...until est fini?

[droggo]

Lao,

Et toi, quelles sont tes réponses ?

Car personne n'est ici pour faire ton travail à ta place.

[uncalamarroux]

Merci pour tes indications,


1 ça compte le nombre de fois où un réel i pris au hasard entre 1 et 2001 vaut 1 et ça met alors 'FALSE'

2 mais c'est surtout la fin du programme que je n'arrive pas à comprendre.
On est effectue l'expérience successives et si i prend la valeur 1 >> FALSE
Sinon on attend que T[s]=T[i] et >> TRUE

Ainsi U doit être en rapport avec le numéro pris par i lors du cas gagnant
Et S doit être en rapport avec le nombre de fois où le i a pris une valeur par la boucle for pour arriver au cas gagnant????

merci d'avance!