Оптимальный алгоритм спиральной матрицы Опции

[Akusov]

Здравствуйте! Есть задача - написать оптимизированную по размеру исполняемого файла без ассемблерных вставок(можно использовать прерывания) программу для заполнения матрицы по спирали для случаев от 1 до 9. Задачу решил и написал самый оптимизированный алгоритм, который я смог из себя выдавить. Скажите, что ещё здесь можно оптимизировать или уже стоит приступать к замене ввода на безэховый и вывода через прерывания? Может от каких переменных избавиться? Или циклы оптимизировать можно?

 
program spiral;
var
 m: array [1..9, 1..9] of word; //Сама матрица
 n: word; //Размерность матрицы
 i: word; //Индексы матрицы
 j: word;
 c: word; //Вводимое число
 l: word; //Длина стороны
 s: integer; //Флаг меняющийся между значениями -1 и 1
 t: word; //Координата поворота
 p: ^word; //Указатель на координаты
begin
 readln(n);
 l := n;
 t := n;
 s := 1;
 i := 1;
 p := @j;
 repeat
  p^ := p^ + s;
  c := c + 1;
  //Если достигнута точка поворота
  if p^ = t then begin
   //Меняем изменяемую координату
   if p = @j
    then begin
     p := @i;
     l := l - 1;
    end else begin 
     p := @j;
     s := -s;
    end;
   //Узнаём координату следующего поворота
   t := p^ + s*(l);
  end;
  m[i,j] := c;
 until l = 0;
 //Обычный вывод
 for i:=1 to n do begin
  for j:=1 to n do write(m[i,j]:3);
  writeln;
 end;
end.

[Халявов]

Интересно, в каком вузе дают подобные программы? Ну в смысле, что явно академическая задача и "давайте её оптимизировать".

написать оптимизированную по размеру исполняемого файла

-и сколько получилось?

Матрица по спирали - попробуйте, сравните.

[Akusov]

Интересно, в каком вузе дают подобные программы? Ну в смысле, что явно академическая задача и "давайте её оптимизировать".

написать оптимизированную по размеру исполняемого файла

-и сколько получилось?

Матрица по спирали - попробуйте, сравните.

Моя после компиляции без всяких особых натроек компилятора весит 3104 байта
Вами, приведённая 3776 байт

Задано в КубГУ, ну как задано... За самую маленькую в группе самоэкз получить можно)
Рекорд за всё время говорят где-то к 1200 байт приблизился.

[Халявов]

Моя после компиляции без всяких особых натроек компилятора весит 3104 байта

А чем компилировали? Поделитесь секретом

Сообщение отредактировано: Халявов - 24.12.2017 5:43

[Akusov]

Моя после компиляции без всяких особых натроек компилятора весит 3104 байта

А чем компилировали? Поделитесь секретом

BPC Старый добрый BPC. Это собственно и есть компилятор для соревнований. Всё в досбоксе собирается.


Добавлено через 3 мин.
Счёт идёт на байты. Вообще задание полностью так звучит - Нужно написать две программы спиральной матрицы для размерность от 2 до 9. Одну на ассемблере, другую на паскале и в суме они должны быть меньше 3000 байт, и тот чья прога меньше остальных, тот и получает самоэкз. В программе на паскале использовать asm end. Запрещено.

[Халявов]

Понятно, Ассемблер всё объясняет. А то задача выглядит как злобный троллинг препода.

Я бы начал думать как сэкономить на WriteLn. Теоретически, у вас два вызова с разным набором параметров.
На Си можно было бы сделать подобие
printf("..формат..", Элемент_Массива, i==n?"\n":" ");
хотя само вычисление может оказаться большим.

[Akusov]

Понятно, Ассемблер всё объясняет. А то задача выглядит как злобный троллинг препода.

Я бы начал думать как сэкономить на WriteLn. Теоретически, у вас два вызова с разным набором параметров.
На Си можно было бы сделать подобие
printf("..формат..", Элемент_Массива, i==n?"\n":" ");
хотя само вычисление может оказаться большим.

В том то и дело. Он говорил, что можно использовать в паскале прерывания(безэховый ввод в частности), но нельзя ассемблерные вставки. Да и даже с учётом, что вторая прога на ассемблере, рекорд на паскале всё равно остаётся 1200 байт. Побить я его конечно не стремлюсь(да и вряд ли возможно), но как вообще в принципе можно приблизиться хотя бы 1500-1800 байт на паскале? Пытался использовать модуль dos с его Intr и MsDos, но программа становится больше, что меня не устраивает. Пока, косо смотрю в сторону interrupt-процедур, но толковой документации я не нашёл и я вообще не знаю, могут ли они дать мне уменьшение в размерах?(там вроде как регистры можно использовать, но использует ли их реально компилятор на выходе я не знаю).