Pascal Lotto 6\49-bol! (? )

Szia.

Két ciklusban keresd az egyezéseket.(Tehát a bekért számokat a[i] hasonlitod a sorsolt számokkal st[j]) :

k:=0;

for I:=1 to 6 do begin

for j:=1 to 6 do begin

if a[i]=st[j] then k:=k+1;

end ;

end ;

Még egy kérdés a számgenerálással kapcsolatban :

randomize;

for i:=1 to 6 do

st[i]:=random(48)+1;

Itt mi a helyzet a dubla számokkal (tudom, hogy kicsi az esély), de elképzelhető, hogy ugyanazt a számot kétszer "húzod ki".

Sok sikert.

Üdv.

Szerintem érdemes kicsit játszadozni a halmazokkal ebben az esetben. Például így:

program lotto_6_49;

var

nyertesszamok: set of byte;

tippek: set of byte;

talalat: set of byte;

i: integer;

x: byte;

begin

i:=1;

randomize;

while i<>7 do

begin

x:=random(48)+1;

if not (x in nyertesszamok) then

begin

include(nyertesszamok,x);

inc(i);

end;

end;

writeln('Kérem a tippeket: ');

i:=1;

while i<>7 do

begin

repeat

write('Tipp ',i,': ');

readln(x);

until x in [1..49];

if not (x in tippek) then

begin

include(tippek,x);

inc(i);

end;

end;

writeln('A nyerőszámok: ');

for i:=1 to 49 do

begin

if i in nyertesszamok then

writeln(i);

end;

writeln('Az ön találatai: ');

talalat:=nyertesszamok*tippek;

x:=0;

for i:=1 to 49 do

begin

if i in talalat then

begin

writeln(i);

inc(x);

end;

end;

writeln('Önnek összesen ',x,' találata van!');

readln;

end.

Free Pascal alatt próbáltam, ott működik ;).