Напечатать последовательность номеров

[Аватар]

function ListOfHouses(N,K: Integer): String; { 0<K<=N }
var i,j: Integer;
begin
  Result:=''; j:=2;
  for i:=1 to N do begin
    Result:=Result+Format('%d ',[K]);
    if ((j=2) and (K=N-1)) or ((j=-2) and (K=1)) then j:=1
    else if ((j=2) and (K=N)) or ((j=-2) and (K=2)) then j:=-1
    else if (((j=1) and (K=N)) or ((j=-1) and (K=N-1))) and (K>2) then j:=-2
    else if ((j=-1) and (K=1)) or ((j=1) and (K=2)) then j:=2;
    Inc(K,j);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j: Integer;
begin
  Memo1.Clear;
  for i:=1 to 10 do
    for j:=1 to i do
      Memo1.Lines.Add(Format('%d %d   -   %s',[i,j,ListOfHouses(i,j)]))
end;

[Krasiosoft]

evg_m, так лишние шаги цикла будут, и тем самым время работы программы увеличиться.

[BDA]

Аватар, круто выглядит, жалко только, что почтальон делает 2 перехода дороги.

[evg_m]

и тем самым время работы программы увеличиться.

основное время работы это ВЫВОД (write), а их ровно столько сколько надо!(и изменение их невозможно)
Если конечно не рассматривать гипотетический случай с накоплением данных в буфере.

a: array[1..N] of integer;
writeln (a);

можно конечно уменьшить количество итераций, но тем самым мы увеличим число операций внутри (и не факт что их время будет меньше одной проверки + изменение счетчика).

[Аватар]

жалко только, что почтальон делает 2 перехода дороги

Дык сделал вперед по стартовой стороне и по кругу. Минимальней путь не получится

[Krasiosoft]

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

основное время работы это ВЫВОД (write)

Согласен, что по сравнению с write, остальные операции это должны быть мелочи, но можно ж сделать цикл с шагом в 2, а не в 1.

[Poma][a]

Дык сделал вперед по стартовой стороне и по кругу. Минимальней путь не получится

Насколько я понял пан BDA имел ввиду, что увеличив кол-во переходов (мол их минимальное кол-во будет равно 5), нужно будет существенно увеличить кол-во строк кода

Или что можно сделать один переход, сделав больше шагов

[evg_m]

но можно ж сделать цикл с шагом в 2, а не в 1.

можно конечно уменьшить количество итераций, но тем самым мы увеличим число операций внутри (и не факт что их время будет меньше одной проверки + изменение счетчика).

Offtop: Бедный ТС я думаю уже боится зайти в эту тему, так "развили" тему.

[metanol]

Да нет,захожу и захожу)
Правда,мне кажется,что автор хотел,чтобы я решил эту задачку немного проще,т.к. это программа на повторение цикла for

[Krasiosoft]

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

это программа на повторение цикла for

Тогда лучше всего подойдет вариант evg_m: #10