Задача на матрицы

[Witaliy]

Привет всем!
Помоготие решыть задачю :

Задача E. Їжачок

На шахівниці розміром NxN розставлено К пронумерованих фішок. Їжачок, який збирає ці фішки, виходить з клітки з координатами (1,1) і повинен зібрати всі фішки в порядку зростання їх номерів. З клітки з координатами (x,y) їжачок може переміститися тільки в одну з чотирьох сусідніх, тобто в одну з кліток з координатами (x+1,y), (x-1,y), (x,y+1) або (x,y-1), звичайно з дотриманням умови, що він не повинен виходити за межі дошки. Вимагається визначити, яку мінімальну кількість ходів потрібно зробити, щоб зібрати всі фішки. Якщо їжачок проходить через клітку, де міститься фішка з більшим номером, ніж він зараз повинен узяти, то він просто проходить, а фішка залишається стояти.
Формат вхідних даних:
В першому рядку вхідного файлу містяться два числа розділених пропуском = N і K (1<=N,K<=1000). Далі у K рядках містяться по два цілі числа, розділені пропуском – координати фішок в порядку зростання їх номерів, тобто спочатку для першої фішки, потім для другої фішки і т.д.
Формат вихідних даних:
У вихідний файл необхідно вивести одне число – мінімальну кількість кроків їжачка, необхідну для збирання всіх фішок.
Приклади вхідних і вихідних даних:
Вхідні дані: Вихідні дані:
4 3
3 3
1 4
2 1 11



Я что-то решыл, вот мой код, но он как видите не полный:

program my;
var n,i,j,posx,posy : integer;
k : integer;
an1: array [1..1000] of integer;
an2: array [1..1000] of integer;
begin
readln(n,k);
for i := 1 to k do begin
readln(an1[i],an2[i]);
end;
posx := 0;
posy := 0:
for j:= 1 to k do
begin
if ... ??? .... тут незнаю что надо...
end;
end.


Помогите решыть, очень спасибо говорю стразу, что-бы потом не флудит !

[Witaliy]

Извините, вот задача на русском:

Задача E. Ежик

На шахматнице розмиром NxN расставлено К пронумерованных фишек. Ежик, который собирает эти фишки, выходит из клетки с координатами (1,1) и должен собрать все фишки в порядке роста их номеров. Из клетки с координатами (x,y) ежик может переместиться только в одну из четырех соседних, то есть в одну из клеток с координатами (x+1,y), (x-1,y), (x,y+1) или (x,y-1), обычно с соблюдением условия, что он не должен выходить за пределы доски. Требуется определить, какое минимальное количество ходов нужно сделать, чтобы собрать все фишки. Если ежик проходит через клетку, где содержится фишка с большим номером, чем он сейчас должен взять, то он просто проходит, а фишка остается стоять.
Формат входных данных:
В первой строке входного файла содержатся два числа разделенных пропуском = N и K (1<=N,K<=1000). Дальше в K строках содержатся по два целых числа, разделенные пропуском – координаты фишек в порядке роста их номеров, то есть сначала для первой фишки, потом для второй фишки и т.д.
Формат выходных даих:
В исходный файл необходимо вывести одно число – минимальное количество шагов ежика, необходимое для сбора всех фишек.
Примеры входных и исходных данных:
Входные данные: Исходные данные:
4 3
3 3
1 4
2 1 11

[Stilet]

НУ пусть ежик ходит буквой Г в разных случаях повернутой по разному, это помоему кратчайший путь в любом из раскладов...

[Witaliy]

а хоть кусочек кода покажыте? :'(

[Stilet]

Ну на скорую руку могу только заполнение поля показать
(просто ща ГОСТик один в инете рою...)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,k,e:integer;
begin
 e:=6;     randomize;
 for i:=0 to StringGrid1.RowCount-1 do
  for k:=0 to StringGrid1.ColCount-1 do if (random(5)=2)and(e>0)
  then begin StringGrid1.Cells[i,k]:=inttostr(e);   dec(e);
  end;

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if StringGrid1.Cells[acol,arow]<>'' then begin
  StringGrid1.Canvas.Brush.Color:=clRed;
 end else   StringGrid1.Canvas.Brush.Color:=clWindow;
   StringGrid1.Canvas.FillRect(rect);


end;

end.

[Witaliy]

спасибо
мне бы на Паскале, но Дельфи я знаю, поетому розберусь, но если кто-то поможет - буду блпгодарен...

[Stilet]

В принципе вот могу предложить так определять кол-во ходов буквой Г:

function aga(ax,ay,bx,by:integer):integer;
begin
 aga:=abs(ax-bx)+abs(by-ay);
end;

Здесь ax,ay - положение фишки
bx,by - положение ежика
Результат соответственно кол-во ходов до этой фишки буквой Г
Уловил идею?

[Witaliy]

Что-то не могу розобраться... для чего в звдвче Random?

[Witaliy]

Уловил идею?

Вроде да, попроубую, спасибо

[Stilet]

для чего в звдвче Random?

Случайное раскидывание фишек.

Вроде да, попроубую

Малацца. Я в тебя верю.