Matematické Fórum

↑ hans66:

Ahoj,

ja jsem se s tim tedy nikdy nesetkal, ale mam tu jednu moznost, jak bys to mohl dat pomerne snadno dohromady.

Nejprve naznacim kriz:

   A
B X C
   D

Jestli jsem to spravne pochopil, tak na pozici AXD nesmi byt 123, ani 321, ale muze tam byt napr. 468 (je to tak?), stejne tak to plati pro BXD.
Pokud jsem to pochopil spravne, pak bych zacal tim, ze prvni vyberu cislo uprostred, odeberu cisla, ktera nemohu pouzit do kraju a potze tam zbytek rozhazim nahodne.


Presneji takto:

Mam pole cisle Array = [element1,element2,...,elementn], kde n je konecny index podle toho, kolik zvolis cisel pro sestavu.
V tvem pripade: n = 7 (zacinam cislovat od nuly), kdy tvoj pole vypada takto:
array = [1,2,3,4,5,6,7,8];
Na pozici X zvolim jedno nahodne cislo z array, napr:

   A
B 3 C
   D

Do druheho pole si pridam cislo, ktere jsem prave pouzil (predpokladam, ze opakovat se cisla nesmeji, jinak ho sem pridavat nemusis): check = [3];
Dale vim, ze cisla A, B, C a D nesmeji obsahovat 2 ani 4 (protoze ty jsou pred a po 3), pridam je tedy take do druheho pole: check = [3,1,2];
No a ted do cisel A, B, C a D mohu dat nahodne jakekoli cislo z array, pokud to cislo neni v check.
Jinymi slovy, na pozice A, B, C a D nam zustava rozdil mnozin (array - check) = [4,5,6,7,8].

Obecne do check prijde nahodne cislo z array (rekneme cislo X) a k tomu pridas hodnoty X-1 a X+1 a to jsou tri hodnoty, ktere se v krizi nemohou nikde objevit.


Pochopil jsem zadani spravne?

EDIT: podminka bude (n != X && n != X-1 && n != X+1), nemusis si to ukladat do pole navic, ja jsem to psal, protoze se mi to tak snadneji vysvetlovalo jako predstavu dvou mnozin.

↑ Honzc: toto je přesné zadání


je nepřípustný aby byla kombinace 21..
co se týče sousedních políček tak to chápu jako v řádku a ve sloupci

↑ O.o:

tak něco jsem vymyslel, ale mam to udelany pres repeat until
var
  Application: TMyApplication;
  a,b,c,d,x:integer;
begin
    randomize;
    x:=random(9)+1;

    repeat            //generujeme b
   b:=random(9)+1;
until (b<>x) and (b<>x+1) and (b<>x-1) ;


      repeat            //generujeme c
   c:=random(9)+1;
until (c<>x) and (c<>x+1) and (c<>x-1) ;

      repeat            //generujeme a
   a:=random(9)+1;
until (a<>x) and (a<>x+1) and (a<>x-1) ;


       repeat            //generujeme d
   d:=random(9)+1;
until (d<>x) and (d<>x+1) and (d<>x-1) ;
    writeln('vygenerovany kriz');
               write(' '); writeln(a);
                       write(b);write(x);writeln(c);
               write(' '); writeln(d);


  readln;

end.