p align="justify">/* перешкоди */-> Canvas-> Brush-> Color = clGray; -> Canvas-> Pen-> Color = 240-Gy * M, Gx * M +320, 240-Ey * M); -> Canvas-> Rectangle (Gx * M +320, 240-Gy * M, Rx * M +320, 240-Ry * M); -> Canvas-> Rectangle (Hx * M +320, 240-Hy * M, Lx * M +320, 240-Ly * M);
/* осі постороения */-> Canvas-> Brush-> Color = clBlack; -> Canvas-> Pen-> Color =
/* побудова положень маніпулятора */-> Canvas-> MoveTo (320,240); -> Canvas-> Brush-> Color = clBlue; -> Canvas-> Pen -> Color = clBlue; (i = 0; i
}
/* малюємо об'єкт для захоплення */-> Canvas-> Brush-> Color = clGreen; -> Canvas-> Pen-> Color =
/* малюємо точки з'єднання ланок */-> Canvas-> Brush-> Color = clRed; -> Canvas-> Pen-> Color = clRed; (i = 0 ; i
}
/* малюємо опорну точку маніпулятора */-> Canvas-> Brush-> Color = clYellow; -> Canvas-> Pen-> Color =
/* підписуємо графік */+ +; -> Canvas-> Brush-> Color = clWhite; -> Canvas-> Pen-> Color = clBlack; (buf, "Ситуація №% d", number); -> Ca nvas-> TextOutA (15,10, buf); (i = 0; i
{(buf, "Corner% d:% d", i +1, corner [i]); -> Canvas-> TextOutA (2,18 * (i +1) +10, buf);
}
/* промальовування змін */(CSpinEdit7-> Value! = 0) (CSpinEdit7-> Value);> ProcessMessages ();
}
{prec;/* величина можл. відхилення */start, end;/* обмеження на узагальнення коорд. */i, j; status; done; * f; t1, t2, t3;
/* визначення початку розрахунків */= Time ();
/* очистка полотна для малювання */-> Canvas-> Brush-> Color = clWhite; -> Canvas-> FillRect (Image1-> Canvas-> ClipRect) ;> ProcessMessages ();
/* отримання даних про кількість ланок */= CSpinEdit1-> Value;
/* отримання даних про координати об'єкта */= CSpinEdit2-> Value; = CSpinEdit3-> Value;
/* отримання данн про можливе відхилення */= StrToFloat (Edit1-> Text);
/* отримання даних на ограченіе на узагальнення координати */= CSpinEdit5-> Value; = CSpinEdit6-> Value;
/* логи ... виконання "+ TimeToStr (t1));
/* первісна ініціалізація масивів даних */(i = 0; i
{corner [i] = start;} (i = n; i <100; i + +)
{corner [i] = end;} = 0;
/* скидання прогресу */-> MaxValue = end - start; -> Progress = 0;
/* відкриття файлу */= fopen ("file_out.txt", "w");
/* цикл розрахунку координат ланок маніпулятора */= false; (! done)
{/ * розраховуємо координати ланок */();
<...
