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!

[richard]

Cela n'est pourtant pas compliqué : il suffit de prendre un bon crayon de papier, une gomme et du brouillon. Puis refaire pas à pas ce que fait l'ordinateur en modifiant les données à chaque fois comme il le fait.

[EpiTouille]

si tu travaille sous tp7, il y a une fonction tres pratique c'est les "watch" sous l'onglet debug. ça permet d'afficher, en mode pas à pas , les valeurs actuelles des variables...

[droggo]

Qua,

si tu travaille sous tp7, il y a une fonction tres pratique c'est les "watch" sous l'onglet debug. ça permet d'afficher, en mode pas à pas , les valeurs actuelles des variables...

Oui, mais pour un débutant, rien ne vaut le papier/crayon, ça permet de mieux suivre les opérations.

[darrylsite]

Pour que le code puisse compiler,

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
 
Program modified_by_nabster;
   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);
 
  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] = T[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.

le test d'égalité se fait avec l'opérateur = et non :=. le mot clé program doit etre suivi du nom qu'on donne au programme. Les pairs begin-end doivent etre équilibrer.