Discussion :

[bzminfo]

Bonjour

est-t-il possible de saisir aléatoirement une chaine de caractères ?
Si oui comment?
et merci d'avance?

[Dr.Who]

Saisir aléatoirement ... Voilà un concept original.

Ne voudrais-tu pas plutôt dire "générer" plutôt que "saisir" ?

[batyann811]

Tu vas devoir écrire une fonction ou une procédure pour générer une chaîne aléatoire mais il va falloir prendre quelques décisions avant.

La longueur de la chaîne : fixe, aléatoire, à la demande ?
Les caractères autorisés dans la chaine ? minuscules ? majuscules ? chiffres ?

Pour générer une simple lettre (a-z) par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var
  Num : Integer;
  Lettre
begin
  Num := Random(26); { Aléatoire entre 0 et 25 inclus }
  Lettre:= Chr( Ord('a') + Num );
  WriteLn('Lettre au hasard : ', Lettre);
end;

[bzminfo]

Tu vas devoir écrire une fonction ou une procédure pour générer une chaîne aléatoire mais il va falloir prendre quelques décisions avant.

La longueur de la chaîne : fixe, aléatoire, à la demande ?
Les caractères autorisés dans la chaine ? minuscules ? majuscules ? chiffres ?

Pour générer une simple lettre (a-z) par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var
  Num : Integer;
  Lettre
begin
  Num := Random(26); { Aléatoire entre 0 et 25 inclus }
  Lettre:= Chr( Ord('a') + Num );
  WriteLn('Lettre au hasard : ', Lettre);
end;

La longueur de la chaîne : aléatoire.
Les caractères autorisés dans la chaine ? Lettres alphabétiques.
Mais je dois saisir une chaîne de caractères et non un caractère.
Et merci bien pour vos efforts.

[l_autodidacte]

une chaine de caractère et non un caractère

Voici un petit exemple de ce que tu cherches et qui inclut le code envoyé par batyann811 (Les lettres sont ici en majuscule)

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
 
VAR
  Num : Integer;
  Lettre:Char;
  s:String;
  I:Integer;
Begin
   Randomize;{Réinitialisation du générateur des nombres aléatoires, c'est essentiel}
   S:='';
  For i:=1 to Random(20)+1 do {+1 pour éviter d'avoir une chaine vide}
   Begin
    Num := Random(26); { Aléatoire entre 0 et 25 inclus }
    Lettre:= Chr( Ord('A') + Num );
    {WriteLn('Lettre au hasard : ', Lettre);}
    s:=s+Lettre;
   End;
  Write(s);
  Readln;
End.

Si tu utilises TPW ou BPW, tu peux supprimer la ligne "Readln;"