Discussion :

[21247692]

bon jour a ts

j'ai 2 edit ( 1 et 2 )

je veux afficher le mot qui se stouve dans edit1 aléatoire dans edit2

exempl: edit1='yacine' donc edit2 sera aficher 'ceiyna'

c'est a dir lorsque je clique sur le bouton il me donne le mot aléatoir

voila le code source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
a:string;
begin
a:=edit1.Text;
for i:=1 to length(a)
 do begin
      edit2.Text:=random(edit2.text);
    end;
 
end.

[Yurck]

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
procedure TForm1.Button1Click(Sender: TObject);
const
  CaractereDejaReplace = '*';
var
  i : integer;
  a : string;
begin
  Randomize();
  a := edit1.Text;
  edit2.text := a;
  for i:=1 to length(a)
  do begin
    j := random(1, length(a));
    while a[j]<>CaractereDejaReplace do
      j := random(1, length(a));

    edit2.text[i] := a[j];
    a[j] := CaractereDejaReplace;
  end;
end;

Tout d'abord il faut utiliser Randomize();

Bon évidemment il faudrait d'abord voir si CaractereDejaReplace n'appartient pas à edit1.Text et si c'est la cas alors il faudra le modifier.


Ensuite test ce petit bout de code

[21247692]

je te remrci, mais la variable ( J ) c'est quoi sont type car elle n'est pas déclarer

[Aka Guymelef]

j est un integer

[21247692]

il m'affiche un probléme le voila: (expected but ',' fond) sur cette instruction

j := random(1, length(a));

[Aka Guymelef]

Remplace les Random par des RandomRange.

[Yurck]

je te remrci, mais la variable ( J ) c'est quoi sont type car elle n'est pas déclarer

Ouh là, attention à bien utiliser tous le clavier et en particulier



[Delphi] function Random(const ARange: Integer): Integer; overload;

D'ailleurs, je pense qu'il vaut mieux faire

Code :

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

  j := random(length(a)) + 1;

[Yurck]

Remplace les Random par des RandomRange.

Oui c'est aussi une solution mais il faudra faire quand même attention aux bornes

Code :

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

1
2
  j := randomRange(1, length(a) -1 );

[Aka Guymelef]

Oui c'est aussi une solution mais il faudra faire quand même attention aux bornes

Code :

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

1
2
  j := randomRange(1, length(a) -1 );

Mmmh non je ne pense pas qu'il faille enlever -1 car le tableau de caractères de la chaîne est en base 1 et non pas en base 0 Donc a[length(a)] renvoi bien le dernier caractère de la chaîne.

[Yurck]

Mmmh non je ne pense pas qu'il faille enlever -1 car le tableau de caractères de la chaîne est en base 1 et non pas en base 0 Donc a[length(a)] renvoi bien le dernier caractère de la chaîne.

+1
Mais oui bien sûr

[21247692]

il affiche encor un probléme le voila ' left side cannot be assigned to '

sur cette instruction ( edit2.text[i]:= a[j]; )

[Yurck]

passe par une variable temporaire que tu affecteras en fin de procédure

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
procedure TForm1.Button1Click(Sender: TObject);
const
  CaractereDejaReplace = '*';
var
  i, j : integer;
  a, b : string;
begin
  Randomize();

  a := edit1.Text;
  b := a;
  for i:=1 to length(a)
  do begin
    j := randomRange(1, length(a));
    while a[j]<>CaractereDejaReplace do
      j := random(1, length(a));

    b[i] := a[j];
    a[j] := CaractereDejaReplace;
  end;
  edit2.text := b;
end;

[Franck SORIANO]

Tout ça me rappelle le problème du : Comment mélanger un jeu de cartes.

Un jour, j'avais lu un article d'un mec qui expliquait que pour faire le mélange correctement, il ne fallait pas procéder de cette façon :
1. Premièrement, si la chaîne est un peu longue, le temps de traitement à toutes les chances de tendre vers l'infini. Lorsque tu avances dans les remplacements, le nombre de caractères qui n'ont pas été déjà remplacés va vite diminué. Donc lorsqu'on fait le deuxième random, la probabilité de tirer un caractère non remplacé va baisser tout aussi rapidement. Sur une chaine de 10 caractères, lorsque tu as traités les 9 premiers, il ne reste plus qu'une seule possibilité pour choisir le dernier caractère. Cependant avec cet algorithme, on va boucler jusqu'à ce que par chance, le tirage aléatoire tombe sur cette valeur. Sur 10 caractères, à la fin on a une chance sur 10. Sur 52, à la fin on a une chance sur 52... Au final, a vu de nez je dirais que cet algo va se comporter en O(n!).

2. Le mec faisait une savante démonstration avec un calcul de combinatoire pour montrer qu'avec un mélange bien fait, on a n! résultats possibles (le nombre d'arrangements des caractères). Hors avec cet algorithme, il disait que le résultat était différent (ne me demandé pas pourquoi, j'ai pas tout compris).

En fait, on évite tous ces problèmes en travaillant un rien différemment :

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
 
procedure TForm3.Button4Click(Sender: TObject);
var
  s : string;
  i, j : integer;
  c : char;
begin
  randomize;
  s := Edit1.Text;
  for i := length(s) downto 1 do
  begin
    // On va remplacer le caractère i par un des caractères précédent choisi aléatoirement.
    j := random(i-1)+1;
 
    // On fait la permutation.
    c := s[j];
    s[j] := s[i];
    s[i] := c;
  end;
  Edit2.Text := s;
end;

De cette façon, on ne fait qu'un seul tirage pour chaque caractère de la chaîne. L'algo se comporte donc en O(n) et pas O(n!) ce qui n'est pas négligeable.
De plus, pour le premier caractère, on fait un tirage parmi n.
Pour le deuxième caractère, on fait un tirage parmi n-1.
....
Pour le dernier caractère, il ne reste plus qu'une seule possibilité.

Le nombre de résutlats possible est exactement n! (avec n=length(Edit1.Text) bien sûr !).

[Yurck]

Très bon, je le note.