Задача с олимпиады

[Xardas]

Интересная попалась задачка, которую я, к сожалению немного запорол, но покоя она мне не дает, а потому обращаюсь к вам, уважаемые товарищи программисты.

Сама задача длинная (там про зараженную местность, уровень радиации и т.д.), я ее немного перефразирую: Допустим есть массив N на M, необходимо найти путь из точки [1,1] в [N,M] чтобы сумма элементов была минимальной. (немного, конечно, неудачно выразился). Причем выбирать можно только те элементы, которые находятся либо на одной строке либо на одном столбце, по диагонали нельзя

Например
1 | 100 | 0 | 50 | 100
1 | 100 |0 | 0 | 0
2 | 0 | 0 | 3 | 1
0 | 0 | 100 | 2 | 1

Массив 4 на 5 - минимальная сумма 6
Путь: 1 -> 1 -> 2 -> 0 -> 0 -> 0 -> 0 -> 0 -> 1

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

Я думаю смысл понятен. Я пытался рекурсивно перебрать все возможные варианты, только как то не получилось.

Обращаюсь к вам товарищи программисты, помогите, пожалуйста, решить вот такую вот задачку.

PS: Delphi or Pascal

PS: Прошу прощения у меня че то глюкнуло - 2 темы одинаковых создалось

[vitalik007]

Волновой алгоритм

[Xardas]

Сообщение от vitalik007

Волновой алгоритм

А про графы то я совсем забыл...

Спасибо! Будем пробовать!

[Xardas]

Подскажите пожалуйста в чем проблема

вот процедура:

procedure Next(var x,y:byte);
     begin
     if (X <10) and (MapM[X, Y] - MapM[X + 1, Y] = 1) then
        begin
             X := X + 1;
             exit;
        end;
     if (X >1) and (MapM[X, Y] - MapM[X - 1, Y] = 1) then
        begin
              X := X - 1;
              exit;
        end;
     if (Y <10) and (MapM[X, Y] - MapM[X, Y + 1] = 1) then
        begin
             Y := Y + 1;
             exit;
        end;
     if (Y >1) and (MapM[X, Y] - MapM[X, Y - 1] = 1) then
        begin
             Y := Y - 1;
             exit;
        end;;
end;

А вот обращение к процедуре в программе:

{........................}
repeat
           MovesX[I]:=x;
           MovesY[I]:=y;
           Next(x,y);
           MapM[X,Y] := 3;
           I := I - 1;
until (X = XS) and (Y = YS);
{................................}

Вылетает ошибка "Too many actual parameters"
Как я понял "Слишком много фактических параметров".

Никак не могу понять в чем дело.

Подскажите, пожалуйста, в чем проблема!!!

[Карась]

А попробуйка поменять название процедуры...
Например на FR.

Итого: procedure FR(var x,y:byte);

Можно даже сделать Ctrl + щелчок мышкой на имени процедуры...
И посмотреть "о чём думает" компилятор.

АДД:
Как оказывается компилятор думает что процедура Next выглядит так:

procedure TForm.Next;
begin
if (FFormStyle = fsMDIForm) and (ClientHandle <> 0) then
SendMessage(ClientHandle, WM_MDINEXT, 0, 0);
end;

[Xardas]

Сообщение от Карась

А попробуйка поменять название процедуры...
Например на FR.

Итого: procedure FR(var x,y:byte);

Можно даже сделать Ctrl + щелчок мышкой на имени процедуры...
И посмотреть "о чём думает" компилятор.

АДД:
Как оказывается компилятор думает что процедура Next выглядит так:

Большое спасибо, эта часть программы заработала и кажется я понял в чем суть.