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