Написал на 2008-06-23 17:08:33 Как успехи? |
Написал на 2008-06-23 18:45:33 Эта задачка на 30 минут парализовала работу всей лабораотрии. Зав лаб так вообще стал строить матрицу возможных решений исмпользуя теорию игр |
Написал на 2008-06-24 04:18:19 Решил с первого раза |
Написал на 2008-06-24 06:46:26 ну я не с первого......со второго. |
Написал на 2008-06-24 08:59:09 Завлаб написал программу на паскале, решающую данную задачу методом рекурсии program lyag; const c: array[] of byte=(1,1,1,0,2,2,2); var i: byte; f: text; function hod: boolean; var i,k: byte; fl: boolean; c1: array[] of byte; begin hod:=false; if (c[1]=2)and(c[2]=2)and(c[3]=2)and(c[4]=0)and (c[5]=1)and (c[6]=1)and (c[7]=1) then begin hod:=true; writeln (f); writeln('OK'); halt end; for i:=1 to 7 do c1[i]:=c[i]; k:=0; while (k (k=3)and(c[k-2]=1) then begin c[k-2]:=0; c[k]:=1; writeln; for i:=1 to 7 do write(f,c[i],' '); writeln(f); fl:=hod; end; for i:=1 to 7 do c[i]:=c1[i]; k:=0; while (k=hod; end; for i:=1 to 7 do c[i]:=c1[i]; writeln(f); writeln(f, 'otkat') end; begin assign(f,''); rewrite(f); writeln(f); for i:=1 to 7 do write(f, c[i],' '); writeln(f); hod; writeln('ERROR'); close(f); end. |
Написал на 2008-06-24 09:08:30 Ну он дал!!!!! И охота ему было.... |
Написал на 2008-06-26 12:05:26 Нуууу у меня ушло 2минуты 38 секунд |