Применение рекурсии в алгоритмах с возвратом. Файловый тип. Ввод/вывод
Категория реферата: Рефераты по математике
Теги реферата: банк рефератов 5 баллов, вопросы и ответы
Добавил(а) на сайт: Эльмпт.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
else if TryMove(i+2, j+1)=true then TryMove := true
else if TryMove(i+2, j-1)=true then TryMove := true
else if TryMove(i-2, j+1)=true then TryMove := true
else if TryMove(i-2, j-1)=true then TryMove := true;
Field[i, j] := 0;
n := n-1;
end;
end;
end;
Begin
for x:=1 to Dim do
for y:=1 to Dim do
Field[x, y]:=0;
WriteLn ('Поле ', Dim, 'x', Dim);
WriteLn ('Введите координаты коня.');
Write ('X='); ReadLn (x);
Write ('Y='); ReadLn (y);
if (x<1) OR (x>Dim) OR (y<1) OR (y>Dim) then
WriteLn ('Неправильный ответ. System halted...');
else
begin
n := 1;
WriteLn ('Поиск путей длины ', PathLen, ' ...');
case TryMove (x, y) of
true: WriteLn ('Нашел путь :-)');
Рекомендуем скачать другие рефераты по теме: исторические рефераты, куплю диплом.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата