Tudna segíteni valaki?

Na jó, beszéljünk inkább másról. Átírtam Kérdező programjának problémás részletét, hogy a képernyőn is követni lehessen, mit csinál valójában a tömbjével. Most minden szám húzásakor megjeleníti a tömb egész tartalmát, egy-egy szelvény tippjei pedig a sorok végére eső oszlopban jelennek meg.

Előzetes megjegyzéseim:

Szerintem nem csak illetlenség, hogyha nem inicializáljuk a tömböt szelvényenként, hanem az előző szelvényből benne maradt hulladékszámok is befolyásolnák a valószínűséget (már amennyiben működne a program), ezért igenis minden szelvény kezdetén nullázom a tömböt, de ez a sor akár ki is kommentezhető.

Most arról, hogy miért működésképtelen az egész. Amikor a K-ciklussal végigmegyünk az eddigi értékeken, két lehetőség adódik vagy találunk a generálttal megegyező számot, vagy sem. Ha a program nem talál ilyet, arra a helyre beírja a generált számot, utána TOVÁBBLÉP, és ha az sem egyezik meg, oda is beírja, egészen a K-ciklus végéig. A folytatásban megint két eset lehetséges. Tételezzük fel, hogy a generált szám eltér az előzőtől. Mivel minden eddigi tömbelem ugyanazt az eltérő számot tartalmazza, az újabb ciklus azokba lelkiismeretesen beírja, majd még a végére is odabiggyeszti az új számot. Ennek megfelelően, ha a véletlen szeszélye megint az eggyel előző számot dobja ki, az nem fog egyezést találni, mivel minden addigi tömbelem az újat tartalmazza -- ezeket szép sorban felül is írja saját magával, és megbecsült, elfogadható értékként jön ki a kalandból. Hátra van még az a lehetőség, hogy a generált szám megegyezik az előzővel. A fentiekből kitűnik, hogy ez tulajdonképpen az EGYETLEN esély arra, hogy a program egyezést találjon. Mit tesz ilyenkor? Nem írja be az értéket, hanem -- az adott helyen tökéletesen értelmetlen continue utasítás után -- megint csak továbblép K következő értékére, és ÚJRA PRÓBÁLKOZIK, egészen az előző ciklus végéig, utána végre talál egy helyet, ahová beírhatja magát, és elégedetten, érvényes értékként zárja a bulit. Az átírt programrész az említett próbálkozásokat felkiáltójelek kiírásával jelzi:

      for i := 1 to szelvenySzam do

            begin

                  for k := 1 to tipus do tippek[k] := 0;

                  for j := 1 TO tipus do

                        begin

                              szam := Random(meddig) + 1;

                              Write('Szam =', szam:3, ' ');

                              {tippek tömb átjárása egyezést keresve.}

                              for k := 1 to j do

                                    if (tippek[k] <> szam) then

                                          tippek[k] := szam

                                    else

                                          begin

                                                Write('!');

                                                continue;

                                          end;

                              for k := 1 to tipus do Write(tippek[k]:4);

                              Write(' tippek[', j, '] =', tippek[j]:3);

                              WriteLn;                 

                        end;

                  WriteLn;

            end;

program lotto;

{$APPTYPE CONSOLE}

uses SysUtils;

const lottotipus = 90;

var szamok : array [1..lottotipus] of Boolean;

szam, i, meddig : Byte;

begin

Randomize;

for i := Low(szamok) to High(szamok) do szamok[i] := False;

i := 1;

case lottotipus of

35 : meddig := 7;

45 : meddig := 6;

90 : meddig := 5;

end;

while i <= meddig do

begin

szam := Random(High(szamok)) + 1 ;

if not szamok[szam] then

begin

WriteLn(szam);

Inc(i);

szamok[szam] := True;

end;

end;

ReadLn;

end.

Lehet még csűrni, csavarni dinamikus tömbbel, akármivel....