salut
j'ai ecris un programme qui ne fait pas tellement ce que je veux,
au fait le programme devait fournir les diffferente combinaisons possible de mot de 5 caractères avec 5 caractères, je sais qu'il ya 120 possibilités quand on fait Arrangement de 5 dans 5 on a 120
voici le programme
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
37 uses crt; type tableau=array[1..5] of char; var letre,cont,reap:tableau; i,j,k,n:integer; begin clrscr; (*lire le 5 caractres et les ranger dans deux tableaux*) write('Entrer 5 caractres:'); for i:=1 to 5 do begin cont[i]:=readkey; reap[i]:=cont[i]; write(cont[i]:5); end; writeln; randomize; (*mette dans un ordre aleatoire les 5 caracres*) for k:=1 to 120 do begin for i:=5 downto 1 do begin (*on choisit un nombre aleatoire entre<=1 et >=5*) j:=random(i)+1; (*ensuite on le met dans le tableau letre*) letre[i]:=cont[j]; (*apres on met le dernier element du tableau a la position courante*) cont[j]:=cont[i]; write(letre[i]); end; write(' '); (*on remet les 5 caractres dans le tableau pour un nouveau tirage*) for n:=1 to 5 do cont[n]:=reap[n]; end; readln; end.
Partager