Program S2;
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 à générer : ');
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));
writeln;
End;
End.
Inscription à :
Publier les commentaires (Atom)
