Discussion :

[Fernus-Rth]

Bonsoir,
sur la réalisation d'un mini-jeu consistant à chercher un caractère spécifique au milieu d'un tableau rempli de caractères aléatoires, je rencontre une complication.
En effet, je ne vois pas comment remplir le tableau aléatoirement.
J'ai essayé la fonction randomize comme ceci mais je n'obtiens pas ce que je désire... Existerait-il une façon plus efficace et qui fonctionne pour remplir le tab?
Merci de votre réponse..

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
Procedure fill(var t : Tab);
var i,j, rdm,n : Integer;
begin
	randomize();
	n:=0;
	for j:=1 to MAX do
	begin
		for i:=1 to MAX do
		begin
		rdm:= random(n);
		if ((rdm<165) AND (rdm>35)) then
		begin
		t[i][j]:= char(rdm);
		end;
		n:=n+1;
		end;
 
	end;
end;

[M.Dlb]

Bonjour,

Randomize ne s’utilise qu’une seule fois par programme, généralement au tout début de celui-ci.
Peut-être cela te permettra d’obtenir ce que tu souhaites ?

[Andnotor]

Outre ce qu'évoque M.Dlb, le paramètre de Random est la limite supérieur (non comprise). Ca devrait être une constante.

Dans le code actuel, il faut attendre random(n=37) pour peut-être commencer à remplir le tableau.
Je dis "peut-être" parce qu'un certain nombre de cases seront laissées vacantes en fonction des conditions 35<rdm<165.

Tips: pour un remplissage complet, rdm doit toujours valoir entre 36 et 164 (sans besoin de test). A toi de jouer

[Fernus-Rth]

Merci beaucoup de votre aide! Mais au final j'ai réalisé un tableau d'Integer, c'est beaucoup plus simple (ayant peu de temps pour finir mon code).