amonxanubis4
13-01-2010, 06:11:26
procedure TBusca_Minas.JUGARClick(Sender: TObject);
var
x: integer;
begin
randomize;
for x:=1 to 5 do
for y:=2 to 5 do
begin
ciclo[x]:=random(25);
if (ciclo[x]=ciclo[x-1]) or (ciclo[x]=ciclo[x-2]) or (ciclo[x]=ciclo[x-3]) or
ciclo[x]:=random(25);
end;
end;
j:=ciclo[1];
k:=ciclo[2];
l:=ciclo[3];
m:=ciclo[4];
n:=ciclo[5];
Ok... Quisiera saber si hay alguna manera de quitar eso de los x-1 y x-2.
Se trata que los numeros no deben repetirse, porque es para el juego de las buscaminas. El punto es que me piden que es mucho codigo (....creo que siempre me dice eso el profe) y que hay alguan manera para comparar con el vector entero...
Quisiera si me pudieran ayudar o si necesitan que ponga el resto del codigo diganme =)
var
x: integer;
begin
randomize;
for x:=1 to 5 do
for y:=2 to 5 do
begin
ciclo[x]:=random(25);
if (ciclo[x]=ciclo[x-1]) or (ciclo[x]=ciclo[x-2]) or (ciclo[x]=ciclo[x-3]) or
ciclo[x]:=random(25);
end;
end;
j:=ciclo[1];
k:=ciclo[2];
l:=ciclo[3];
m:=ciclo[4];
n:=ciclo[5];
Ok... Quisiera saber si hay alguna manera de quitar eso de los x-1 y x-2.
Se trata que los numeros no deben repetirse, porque es para el juego de las buscaminas. El punto es que me piden que es mucho codigo (....creo que siempre me dice eso el profe) y que hay alguan manera para comparar con el vector entero...
Quisiera si me pudieran ayudar o si necesitan que ponga el resto del codigo diganme =)