Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 14:04Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0128 Один конь

Скачать файл можно после просмотра рекламы:

05.06.2012, 02:50
var a: array[1..21,1..21] of word;
    k,i,j,n,x1,x2,y1,y2: integer;
    t: text;

procedure rec(x,y: integer);

procedure prov(xp,yp: integer);
begin
     if (xp<>x1)or(yp<>y1) then
     if (xp>0)and(yp>0)and(xp<n+1)and(yp<n+1) then
        if (a[xp,yp]>k)or(a[xp,yp]=0) then
        begin
             a[xp,yp]:=k;
             rec(xp,yp);
        end;
end;

begin
     {for i:=1 to n do begin
         for j:=1 to n do
             write(t,a[i,j]:3);
         writeln(t);
     end;
     writeln(t,k);
     writeln(t);}
     k:=a[x,y]+1;
     prov(x-1,y+2); k:=a[x,y]+1;
     prov(x+1,y+2); k:=a[x,y]+1;
     prov(x+2,y+1); k:=a[x,y]+1;
     prov(x+2,y-1); k:=a[x,y]+1;
     prov(x+1,y-2); k:=a[x,y]+1;
     prov(x-1,y-2); k:=a[x,y]+1;
     prov(x-2,y-1); k:=a[x,y]+1;
     prov(x-2,y+1);
end;


begin
     k:=0;
     for i:=1 to 20 do
         for j:=1 to 20 do
             a[i,j]:=0;
     assign(t,'input.txt');
     reset(t);
     read(t,n,x1,y1,x2,y2);
     close(t);
     assign(t,'debug.dat');
     rewrite(t);
     rec(x1,y1);
     close(t);
     assign(t,'output.txt');
     rewrite(t);
     if (x1=x2)and(y1=y2) then writeln(t,'0') else
     write(t,a[x2,y2]);
     close(t);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 2492 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020