заполнение матрицы по спирали (в TurboPascal создать EXE размером менее 2100 байт)

[denisbrain]

получается задача решена?

[Serge_Bliznykov]

получается задача решена?

Может я что-то пропустил..
А исходя из чего Вы такое решили?!
я, вроде бы, не видел ни решения, ни сообщения о том, что задача решена..


вопросы Jenn
какие ограничения на N ?
Как должен выводиться результат (только не говорите, что на экран. Даже при самых скромных, скажем N = 50, получается матрица 50 x 50 - это 4-х значные числа, на экране для подобной матрицы банально не хватит места...

Кроме того, Вас уже НЕОДНОКРАТНО спрашивали, откуда должна начинаться спираль и как закручиваться - Вы так ничего не ответили... Может, ответите ?..

[Mad_Cat]

2Serge_Bliznykov
цитата из аськи

зрдавствуйте! необходимо заполнить матрицу по спирали числами от 1 до n^2. N задается пользователем.
сложность в том, что ехе-файл не должен превосходить 2100 байт (чем меньше,тем лучше). ассемблерные вставки использовать нельзя. начинается из левого верхнего угла

И уже есть желающие реализовать

[denisbrain]

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

2Serge_Bliznykov
цитата из аськи

И уже есть желающие реализовать

пример заполнения матрицы по спирали на delphi / pascal

[Tronix]

А че, интересная задача. Нормальный препод. Единственное, не оговорено максимальное N и это плохо. Так, к примеру Turbo Pascal 5.5 с отключенными проверками на переполнение и прочее выдает на Hello, world екзешник размером 1744 байта.

[Serge_Bliznykov]

дык, заполнить матрицу по спирали - это не проблема.
мне, например, доводилось писать такой код:

const
  MaxArray = 15;
type
  MyArrayType = array [1..MaxArray, 1..MaxArray] of word;

procedure Spiral(var M : MyArrayType);
var
  k, MaxStep, PosX, PosY : integer;
  i: integer;
BEGIN
  i := 1;
  PosX := 1;
  PosY := 0;
  MaxStep := MaxArray;

  while i <= MaxArray*MaxArray do
  begin
    {движение вправо}
    for k:=1 to MaxStep do
    begin
      Inc(PosY);
      M[PosX, PosY] := i;
      Inc(i);
    end;
    Dec(MaxStep);
    {движение вниз по спирали}
    for k:=1 to MaxStep do 
    begin     
      Inc(PosX);
      M[PosX, PosY] := i;
      Inc(i);
    end;
    {движение влево по спирали}
    for k:=1 to MaxStep do 
    begin
      Dec(PosY);
      M[PosX, PosY] := i;
      Inc(i);
    end;
    Dec(MaxStep);
    {движение вверх по спирали}
    for k:=1 to MaxStep do 
    begin     
      Dec(PosX);
      M[PosX, PosY] := i;
      Inc(i);
    end;
  end;
end;

var
  Matrix : MyArrayType;
  i, j  : integer;

BEGIN
  Spiral(Matrix);

  for i:=1 to MaxArray do
    begin
      for j:=1 to MaxArray do
        Write(Matrix[i,j]:4);
      WriteLn;
    end;
END.

проблемы в другом:
1) размер полученного EXEшника должен быть 2 кб.
2) при достаточно больших N - возникает вопрос, как выводить результат (да и вообще, нужно ли его выводить?! я в исходном коде НЕ ВИЖУ указания сделать это!! Тогда (без вывода полученной матрицы) 1) пункт решается почти автоматически
3) непонятно ограничение на N. Дело в том, что ТурбоПаскаль банально не позволит задать статический массив более чем 181x181, т.е. N не может быть больше 181...


p.s. интересно, чем это всё закончится...

[Jenn]

N должно быть не более 9. и заполненная матрица должна выводиться на экран

[denisbrain]

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

N должно быть не более 9. и заполненная матрица должна выводиться на экран

то что есть на данный момент, необходимо разобраться с выводом и будет все ок

[Step_UA]

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

N должно быть не более 9. и заполненная матрица должна выводиться на экран

и N вводится с клавиатуры ...
Турбо паскаль 7: сначала сделал ровно в 2кБ, немного оптимизировав получил 1.9 кБ (во вложении исполняемый файл)

[Tronix]

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

и N вводится с клавиатуры ...
Турбо паскаль 7: сначала сделал ровно в 2кБ, немного оптимизировав получил 1.9 кБ (во вложении исполняемый файл)

Без ассемблерных вставок?