Randomize : le même code est généré chaque fois
Bonjour,
j'ai écrit un code pascal d'un mini programme qui permet de générer N code CAPTCHA, Le programme me rend toujours le même code N fois.
j’espère si quelqu'un peut m'aider.
Le code est le suivant:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| Program CAPTCHA;
Uses wincrt;
TYPE
Tab=Array['A'..'Z'] of integer;
VAR
T:tab;
N,i:integer;
Procedure Saisie_N(VAR N:integer);
Begin
Repeat
Write('Donner le nombre de codes generer: ');
Readln(n);
until n IN [2..10];
End;
Procedure Remplir(VAR T:tab);
VAR
i:char;
Begin
Randomize;
for i:='A' to 'Z' do
T[i]:=Random(2);
End;
Function GenererCap(T:tab):String;
VAR
i:char;
ch:String;
nb_voyelle:integer;
Begin
ch:='';
nb_voyelle:=0;
for i:='A' to 'Z' do
if (T[i]=1) then
Begin
Ch:=ch+i;
if (i IN ['A','E','I','O','U','Y']) then
nb_voyelle:=nb_voyelle+1;
End;
ch:=ch+CHR(70+nb_voyelle);
GenererCap:=ch;
End;
BEGIN
Saisie_N(N);
for i:=1 to N do
Begin
Remplir(T);
Writeln('Le code CAPTCHA n °',i,' est : ',GenererCap(T));
End;
END. |
