gn="justify"> k1: = k1 +1; [k1]: = yyy [i]; [k1]: = xxx [i]; else// формуємо масив координат точок розташованіх Вище стартової
k2: = k2 +1; [k2]: = yyy [i]; [k2]: = xxx [i];;
// сортуваннях по ЗРОСТАННЯ координат та Х масівів координат точок нижчих за стартову i: = 2 to k1 do// перебір номерів упорядковуваніх ЕЛЕМЕНТІВ
begin: = xb [i]; m: = i;// запам'ятовується упорядковуваній елемент и номер его місця : = yb [i]; n: = i-1 downto 1 doxb [n] <= b then break;// знайдення місце для упорядковуваного елементи, оператор Break переріває Виконання циклу
xb [m]: = xb [n]; [m]: = yb [n];: = n;// Зсув менших ЕЛЕМЕНТІВ ; [m]: = b;// установка елементами на необхідне місце [m]: = b1;;
// сортуваннях по убуванню координат та Х масівів координат точок Вище за стартову
for i: = 2 to k2 do// перебір номерів упорядковуваніх ЕЛЕМЕНТІВ : = xm [i ]; m: = i;// запам'ятовується упорядковуваній елемент и номер его місця : = ym [i]; n : = i-1 downto 1 doxm [n]> = b then break;// знайдення місце для упорядковуваного елементи, оператор Break переріває Виконання циклу [m]: = xm [n]; [m]: = ym [n];: = n;// Зсув менших ЕЛЕМЕНТІВ ; [m]: = b;// установка елементами на необхідне місце [m] : = b1;;
// Встановлюємо колір та товщина Лінії крісталічної решітки
]);// переміщення курсору у стартову точку
// Перебір ЕЛЕМЕНТІВ масівів что містять координати точок нижчих за стартову
for i: = 1 to k1 do.Canvas.LineTo (xb [i], yb [i]);// провідності лінію . Canvas.MoveTo (xb [i], yb [i]); // переміщаємо курсор ;
// Перебір ЕЛЕМЕНТІВ масівів что містять координати точок Вище за стартову
for i: = 1 to k2 do.Canvas.LineTo (xm [i], ym [i]);// провідності лінію . Canvas.MoveTo (xm [i], ym [i]); // переміщаємо курсор ;. Canvas.lineTo (xxx [nl], yyy [nl]); // замікаємо багат...
