Переставить лягушек

Поменяйте местам красных и зеленых лягушек. Перепрыгивать можно по правилам шашек.

[ НА ПОЛНЫЙ ЭКРАН ] [ СКАЧАТЬ ZIP-файлом ]

Комментарии

Написал admin на 2008-06-23 17:08:33

Как успехи?

Написал admin на 2008-06-23 18:45:33

Эта задачка на 30 минут парализовала работу всей лабораотрии. Зав лаб так вообще стал строить матрицу возможных решений исмпользуя теорию игр :grin

Написал Dimkin на 2008-06-24 04:18:19

Решил с первого раза

Написал NineLLeS на 2008-06-24 06:46:26

ну я не с первого......со второго.

Написал admin на 2008-06-24 08:59:09

Завлаб написал программу на паскале, решающую данную задачу методом рекурсии :grin

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.

Написал NineLLeS на 2008-06-24 09:08:30

Ну он дал!!!!! И охота ему было.... :grin

Написал NomoS на 2008-06-26 12:05:26

Нуууу у меня ушло 2минуты 38 секунд

Незарегистрированным пользователям доступны комментарии только из системы "Вконтакте".
Пожалуйста зарегистрируйтесь.