Контрольная работа: Механізми

{ASSUR 1}

var FIbdg,FIbd_1,FIbd_2,FIacg,FIac_1,FIac_2:massiv ;

var FIfdg,FIbdr,FIfdr, Fioar,FIfd_1,FIfd_2:massiv ;

var Lbd,Lfd,Lsfd,Lsbd:real;

{OPORA}

var Xf,Yf,lf:real ;

{ZVENO}

var Xzv,Yzv,FIg,lzv:real ;

{РАЗДЕЛОПЕРАТОРОВ}

begin

driver:=detect;

{Инициализацияграфики}

initgraph (driver,mode,'');

SetBKcolor(7);

{SetTextStyle(DefaultFont, HorizDir, 1);}

{Определениепередаточныхфункций}

for i:=1 to m+1 do

begin

cleardevice; {Очисткаграфическогоэкрана}

str(i:2,strvar);

{ settextstyle(triplexfont,horizdir,2);

} outtextxy(20,20,strvar);

Xo:=0;

Yo:=0;

Loa:=60;

FIoa0g:=3.3;

dFi:=360/m;

dFir:=2*pi/m;

jk:=1;