Создание алгоритма оптимизации кода

[VyachNik]

Задан некий прямоугольник (квадрат - частный случай) со сторонами n и m. Левая верхняя точка имеет координаты х=0, у=0. Нижняя правая точка прямоугольника имеет координаты х=n, y=m. Требуется заполнить прямоугольник точками в строгой последовательности, начиная от точки х=0,у=0 к точкам x=n, y=m. Последовательность такая:
например, для прямоугольника со сторонами n=7, m=4 (8x5=40 точек):
01. x=0 y=0
02. x=1 y=0
03. x=0 y=1
04. x=2 y=0
05. x=1 y=1
06. x=0 y=2
07. x=3 y=0
08. x=2 y=1
09. x=1 y=2
10. x=0 y=3
11. x=4 y=0
12. x=3 y=1
13. x=2 y=2
14. x=1 y=3
15. x=0 y=4
16. x=5 y=0
17. x=4 y=1
18. x=3 y=2
19. x=2 y=3
20. x=1 y=4
21. x=6 y=0
22. x=5 y=1
23. x=4 y=2
24. x=3 y=3
25. x=2 y=4
26. x=7 y=0
27. x=6 y=1
28. x=5 y=2
29. x=4 y=3
30. x=3 y=4
31. x=7 y=1
32. x=6 y=2
33. x=5 y=3
34. x=4 y=4
35. x=7 y=2
36. x=6 y=3
37. x=5 y=4
38. x=7 y=3
39. x=6 y=4
40. x=7 y=4

Требуется разработать алгоритм оптимизации кода, чтобы он имел как можно меньше строк. В данном примере приведен примитивный случай, когда стороны прямоугольника имеют небольшие значения. Значения на самом деле могут быть очень большими, например, n=3000, m=2000. Ширина прямоугольника может быть меньше высоты. Максимальный размер прямоугольника 32767х32748 пикселей.

[evg_m]

Требуется разработать алгоритм оптимизации кода,

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

базовый цикл заполнения

for j:=0 to m+n do begin
  for x:=0 to j do begin
    y:=j-x;
  end;
end;

и проверки (расчеты) на 0<=x <=n 0<=y<=m
их можно либо включить в границы цикла, либо проверять внутри.
Для оптимизации по ТЗ написать все в одну строчку!

or j:=0 to m+n do begin for x:=0 to j do begin  y:=j-x;  end; end;

[VyachNik]

виноват, неправильно выразился, здесь конечно не оптимизация кода, а оптимизация алгоритма;
спасибо большое, код прекрасно работает!
а проверка простая, внутри цикла делаем проверку:
if (x<=n) and (y<=m) then
вывести точку;

----------------

здесь возникает еще один вопрос, а каким будет код, если нужно сделать диагональное заполнение прямоугольника, например, из правого верхнего угла в левый нижний угол? от точек (x=n, y=0) к точкам (x=0, y=m)?
может подскажите?

[evg_m]

а каким будет код, если нужно сделать диагональное заполнение прямоугольника

а разве мы не это делали?
хотя нет. понял что вы имели в виду.

for j:=max(n,m) downto 0 do //перебор стартовых позиций для одной из координат (x) ДИАГОНАЛЕЙ
  for x:=j to max(n,m) do //перебор этой координаты от стартовой позиции до заведомо выходящий. ЭЛЕМЕНТОВ НА ДИАГОНАЛИ
     y:=x-j; // определение второй координаты (y) по стартовой и текущей позиции (x)
//проверка (x; y) вхождения
end;

1. перебор диагоналей for j:=
для обратных диагоналей (первая задача) число =m+n
для обычных тоже вот и ошибка в приведенном выше коде! а может и нет?

2. перебор элементов на данной диагонали (по какой-либо координате)
3. вычисление второй координаты по номеру диагонали и первой координате.

[VyachNik]

к сожалению, этот код не работает, вернее работает, но наполовину; доходит только до диагонали с точкой х=0, у=0 и останавливается;
у меня получился вот такой код:


for j:=n downto -m do
for x:=j to n+m do
begin
y:=x-j;
if (x<=n) and (y<=m) then
вывести точку с координатами (х, у);
end;

[VyachNik]

и еще один вопрос...
диагональное заполнение, получилось не такое уж и сложное, а вот как заполнить прямоугольник радиально?
например, возьмем произвольную точку на прямоугольнике пусть она будет (х=n/2, y=m/2), требуется запольнить прямоугольник радиально от этой точки к краям прямоугольника, например заполнение точками может происходить так:

01. x=i y=j (i=n/2, j=m/2)
02. x=i+1 y=j
03. x=i+1 y=j+1
04. x=i y=j+1
05. x=i-1 y=j+1
06. x=i-1 y=j
07. x=i-1 y=j-1
08. x=i y=j-1
09. x=i+1 y=j-1
10. x=i+2 y=j-1
11. x=i+2 y=j
12. x=i+2 y=j+1
13. x=i+2 y=j+2
14. x=i+1 y=j+2
15. x=i y=j+2
16. x=i-1 y=j+2
17. x=i-2 y=j+2
18. x=i-2 y=j+1
19. x=i-2 y=j
20. x=i-2 y=j-1
21. x=i-2 y=j-2
22. x=i-1 y=j-2
23. x=i y=j-2
24. x=i+1 y=j-2
25. x=i+2 y=j-2
26. x=i+3 y=j-2
и т.д.

[chertovich]

VyachNik, может лучше использовать методы FillRect или Rectage? С какой целью, необходимо по-пиксельно заполнять прямоугольную область в определенной последовательности? или это какой-нибудь курсовой проект?

[evg_m]

а вот как заполнить прямоугольник радиально?

Не понял.
приведенный пример похож на заполнение по спирали. ответ тут