Курсовая работа: Разработка приложений в визуальной среде Delphi на языке программирования Object Pascal

// углы

w,w1: real;

begin

// ввод значения радиуса барабана

R: =StrToInt (Edit1. Text);

od: =round (R);

ob: =round (od);

// задание размеров стержней

dc: =90;

ab: =70;

// определение значения угла W

W: =spinedit1. value*pi/180;

// задание точки определяющей начало координат

x0: =round (form1. image1. width/2);

y0: =round (form1. image1. height/2);

// вычисление значения угла W1

w1: =pi-pi/2-w;

// вычисление координат точек определяющих положение механизма

xd: =x0+round (od*cos (w));

yd: =y0-round (od*sin (w));

xb: =x0-round (ob*cos (w1));

yb: =y0-round (ob*sin (w1));

xc: =x0+round (dc*cos (w));

yc: =y0+round (dc);

xa: =x0-round (ab);

ya: =y0+round (ab*cos (w1));

o1: =round (x0-od);

o2: =round (y0-od);

o3: =round (x0+od);