Помогите решить задачу по прогграммированию на Pascal

[ewert]

Профессор Снэйп в сообщении #259454 писал(а):

А смысл? Оптимизация по времени?

Нет. Просто при полной проверке мы будем тыкаться время от времени за пределы массива. И если в ДОСовской среде это безобидно (т.к. там всего лишь проверка), то в защищённых режимах (в которых, предупреждаю, я не разбираюсь) любой выход за пределы сегмента данных чреват вылетом.

[Профессор Снэйп]

ewert в сообщении #259458 писал(а):

Профессор Снэйп в сообщении #259454 писал(а):

А смысл? Оптимизация по времени?

Нет. Просто при полной проверке мы будем тыкаться время от времени за пределы массива. И если в ДОСовской среде это безобидно (т.к. там всего лишь проверка), то в защищённых режимах (в которых, предупреждаю, я не разбираюсь) любой выход за пределы сегмента данных чреват вылетом.

Понял Щас исправлю.

[ewert]

Профессор Снэйп в сообщении #259457 писал(а):

На самом деле там в проверке условия первые 4 сработают всего три первых раза, а затем начнёт работать последнее условие. Всё это можно расписать...

Усложнит логику, хотя маленько и повысит эффективность.

Профессор Снэйп в сообщении #259457 писал(а):

Проверку $b + y < 1$ можно вообще убрать.

Это правда, это у Вас обоих просто по инерции вставлено. Но опять же -- его выкидывание усложняет логику (только на сей раз не программы, а программирования). А зачем рисковать/надрываться?...

[Maslov]

ewert в сообщении #259451 писал(а):

И ещё раз настоятельно рекомендую: последнее OR всё же лучше вынести в отдельный оператор. Хотя борландовский транслятор и обрывает (насколько я помню) проверку по достижении гарантированного результата, но в стандарт языка это вроде не входит, да и у самого Борланда (опять же насколько помню) эту опцию можно отключать.

Есть такое дело. Называется short-circuiting. В Паскале не стандартизовано (можно применять, можно не применять). В С++, C#, Java - требование стандарта.

[Профессор Снэйп]

Всё, теперь не придерётесь

-- Сб ноя 07, 2009 20:11:21 --

На самом деле там количества шагов, происходящих при неизменном направлении, такие: $6,6,6,5,5,4,4,3,\ldots$. Можно всё это явно прописать и вообще убрать проверку. Будет работать быстрее

[Circiter]

2Профессор Снэйп

Цитата:

Можно всё это явно прописать и вообще убрать проверку

Попробовал:

Используется синтаксис Pascal

var Matrix: array[1..7, 1..7] of Byte;

procedure FillPerimeter(Offset, Side, Accumulator: integer);
var Index: integer;

    procedure Put(Row, Column: integer);
    begin
        Matrix[Row, Column]:=Accumulator;
        Inc(Accumulator);
    end;

begin
    for Index:=1 to Side do Put(Offset, Index+Offset-1);
    for Index:=1 to Side-1 do Put(Index+Offset, Offset+Side-1);
    for Index:=Side-1 downto 1 do Put(Offset+Side-1, Index+Offset-1);
    for Index:=Side-1 downto 2 do Put(Index+Offset-1, Offset);

    if Side>1 then FillPerimeter(Offset+1, Side-2, Accumulator);
end;

begin
    FillPerimeter(1, 7, 1);

    Yield(Matrix);
end.
 

Правда аж $\mathcal{O}(n^2)$ памяти использует.