Mi a hiba a lotto programomban?

esetleg ha kell scriptben.

<script>

function rendez(tomb) {

for (j=0; j<tomb.length-1; j++) {

minind = j;

for (i=j+1; i< tomb.length; i++) {

if (tomb[i] < tomb[minind]) {

minind = i;

}

}

if (minind != j) {

temp = tomb[j];

tomb[j] = tomb[minind];

tomb[minind] = temp;

}

}

return tomb;

}

function bennevan(mit, miben) {

i = 0;

while (i < miben.length && miben[i] != mit) {

i++;

}

return i < miben.length;

}

function sorsol(mennyibol, hanyat) {

huzott_szamok = Array();

do {

szam = Math.floor(Math.random()*mennyibol)+1;

if (!bennevan(szam, huzott_szamok)) {

huzott_szamok.push(szam);

}

} while (huzott_szamok.length < hanyat);

return rendez(huzott_szamok);

}

document.write(sorsol(90, 5));

</script>

Szia.

1. A pascal strukturált programnyelv, goto-t nem nagyon használunk benne

2. Először megvizsgálod, aztán bekéred ? Nem forditva kellene ?

Illetve mivel az if then ága csak a readln (ujra)-ra vonatkozik, és az ujra változónak nem adtál kezdőértéket (nagy valószinűség szerint nem 1-lesz) ezért nem tudod beadni az ujra változót, viszont mindig ugrasz :

if ujra=1 then

readln(ujra);

Valahogy igy :

Writeln ('Mégegyszer ? (Igen=1)');

readln(ujra);

if ujra=1 then goto ....

De mint irtam a goto-t felejtsd el ird át, do while-be az egészet.

Sok sikert.

Üdv.

"( a hosszú kifejtést amelyben mi ne legyen egyenlő mivel az biztos jó volt, más a gond)"

(a<>b) or (a<>b) ... 2x a<>b, nem valami értelmes ...

Egyébként nem jó mert mindegyiknek egyszerre kell teljesülni ezért and kell or helyett. Or-al egy szám lehet 2x is, próbáld ki random(90)+1 helyett random(6)+1-ot így biztos hamar szembetűnik.

Az a randomize "szerencsésebb" lenne cikluson kívül.