Promíchání pořadí pole – Pascal – Fórum – Programujte.com

Zdravím,

mám 5 obrázků a tabulku o 3 řádcích a 6 sloupcích.

V poli mám 2 integerové recordy označující pozici řádku a sloupců.

type
  TCoordinates = record
    row:integer;
    column:integer;
  end;

var
pozice: Array[0..17] of TCoordinates;

Na začátku se mi do pole uloží koordináty.

pozice[0].column:=50; pozice[0].row:=45;
pozice[1].column:=210;pozice[1].row:=45;
pozice[2].column:=370;pozice[2].row:=45;
pozice[3].column:=530;pozice[3].row:=45;
pozice[4].column:=690;pozice[4].row:=45;
pozice[5].column:=850;pozice[5].row:=45;

pozice[6].column:=50;pozice[6].row:=210;
pozice[7].column:=210;pozice[7].row:=210;
pozice[8].column:=370;pozice[8].row:=210;
pozice[9].column:=530;pozice[9].row:=210;
pozice[10].column:=690;pozice[10].row:=210;
pozice[11].column:=850;pozice[11].row:=210;

pozice[12].column:=50;pozice[12].row:=375;
pozice[13].column:=210;pozice[13].row:=375;
pozice[14].column:=370;pozice[14].row:=375;
pozice[15].column:=530;pozice[15].row:=375;
pozice[16].column:=690;pozice[16].row:=375;
pozice[17].column:=850;pozice[17].row:=375;

Potřebuji promíchat pozice koordinátů v poli, poté zvolit prvních pět míst a vložit je obrázkům jako souřadnice. Jak na to?

A v cem je problem? Nevis, jak se micha?

(Dale, to neni to pascal kod, ale ten snadno najdes googlem)

- Udelas cyklus, treba, do 250, nahodne vyberes dve cisla, prohodis.

cyklus (i<250)
{
a = random(17)
b = random(17)
tmp = pozice[a]
pozice[a] = pozice[b]
pozice[b] = tmp
}

- Nebo. Udelas nove pole a do nej budes skladat nahodna cisla, ktera v tom poli jeste nejsou. Coz ale muze bezet do nekonecna.

pole = [ ]
cyklus (i<17)
{
a = random(17)
cyklus (i<17) je a v poli? ano {nic}, ne {pridej do pole; i++}
}

- A nebo, treba, dnes velice moderni, nahodne serazeni, pokud algoritmus provadi konecny pocet cyklu 

function sortfunc (a,b) {return random()>random() ? a : b;}
array.sort(sortfunc);

Cili, udelas funkci, ktera rozhodne, ktere ze dvou nahodnych cisel je vetsi a podle toho se prehodi radky tabulky (pole). A protoze algoritmus serazeni obvykle pouziva konecny pocet kroku, tak to nebude delat do nekonecna.

- A nebo udelas pole, kde das jako prvni cislo 0 az 17 a jako druhe cislo nahodne cislo. Seradis to podle druheho cisla
 

pole = []
pole[] = [0, random()]; // [0, 0.754821]
pole[] = [1, random()]; // [1, 0.257211]
pole[] = [2, random()]; ... cyklem
function sortfunc (a,b) {return a[1]>b[1] ? a : b;}
pole.sort(sortfunc);
alert(pole[0][0])
alert(pole[1][0])
alert(pole[2][0])

#2 peter
za prvé: Z jeho kódu mám pocit, že Tallmios má trochu problém s cyklami :). Alebo má len rád copy-paste

za druhé: Myslím, že najlepší algoritmus na premiešanie poľa je niečo ako: 

cyklus (i<17)
{
a = random(17-i)
tmp = pozice[a]
pozice[a] = pozice[i]
pozice[i] = tmp
}

Najprv zoberieš náhodný prvok a swapneš ho s prvým, potom zasa vyberieš náhodný prvok a swapneš ho s druhým atď.

No, kdyz myslis... Staci jednoduchy test souctu cisel v danem intervalu. Melo by vyjit vsude stejne cislo, pokud je to dobre rovnomerne promichane i po 100x zmacknuti F5. Jaka nahodicka, ze zrovna od kraju je soucet nejvetsi a klesa do stredu. Cim by to tak mohlo byt? :)

<script>
function rnd(n) {return Math.floor(Math.random()*n);}

function mytest(pozice)
{
var m,n,a,arr, i,j, str;
n = 1000;
a = 10;
m = Math.floor(n/a);
arr = [];
str = '';
for (j=0; j<a; j++)
	{
	arr[j] = 0;
	}
for (i=0; i<n; i++)
	{
	for (j=a-1; j>=0; j--)
		{
		if (i>m*j) {arr[j] += pozice[i]; break;}
		}
	}
str += '<hr>';
str += arr.join(' | ');
return str;
}

var i, a, b, n, tmp, pozice;
str = '';
pozice = [];
n = 1000;
for (i=0; i<n; i++)
	{
	pozice[i] = i;
//	pozice[a] = rnd(n);
	}
str = pozice.join(', ') + str;
str = '<hr>' + str;

for (b=0; b<n; b++)
	{
	a = rnd(n-b);
	tmp = pozice[a];
	pozice[a] = pozice[b];
	pozice[b] = tmp;
	}

str = pozice.join(', ') + str;
str = '<hr>' + str;

str = mytest(pozice) + str;

document.write(str);
</script>

Zkus tam pak tohle. Tez to neudela vyvazene promichani, ale aspon se ty cisla meni.

/*
for (b=0; b<n; b++)
	{
	a = rnd(n-b);
	tmp = pozice[a];
	pozice[a] = pozice[b];
	pozice[b] = tmp;
	}
*/
pozice = pozice.sort(function(){return 0.6 - Math.random();});

#5 peter
ok, mám tam chybičku, má tam byť:

a = rnd(n-b)+b;

Ale teda väčšinou sa to prehadzuje od posledného prvku, tam by toto nebolo nutné, ale je to vlastne jedno ...

for (b=n-1; b>=0; b--)
{
	a = rnd(b);
	tmp = pozice[a];
	pozice[a] = pozice[b];
	pozice[b] = tmp;
}

Dúfam, že teraz tam už chyba nie je :)

Super. Díky moc, nakonec jsem použil první zmíněný cyklus s náhodným prohozením hodnot. 

Mohlo mě to napadnout hned... nebyl jsem si jistý, zda-li to pro pole funguje stejně jako pro obyčejné proměnné.