Exercice/programme sur les boucles et booléens

Version imprimable

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

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?

02/05/2010, 13h11
droggo

Lao,

Et toi, quelles sont tes réponses ?

Car personne n'est ici pour faire ton travail à ta place.
02/05/2010, 15h22
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!
02/05/2010, 22h06
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.
11/12/2010, 17h05
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... :D
11/12/2010, 19h35
droggo

Qua,

Citation:

Envoyé par titeeee

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... :D

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

Pour que le code puisse compiler,

Code:

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.