Курсовая работа: Программный механизм

i:integer;

begin

ClrScr;

write ('Введитеходтолкателя Smax:'); readln(smax);

write ('Введитеуголдавления alpha:'); readln(alpha);

write ('Введите минимальный радиус Rmin:'); read(rmin);

rminr:=q*cos(alpha/180*pi)/sin(alpha/180*pi);

if rmin<rminr then writeln (' Rmin слишкоммал.')

else writeln (' Rmin выбранверно.');

write ('Введитерабочийугол gamma:'); readln(gamma);

gm:=gamma/180*pi;

q:=smax/(gm);

write ('Введитешаг step:'); readln(step);

r:=rmin;

ClrScr;

writeln(' Угол',' ':14,'Радиус R');

stepst:=step/180*pi;

phi:=0; phist:=0;i:=0;

repeat

writeln (phi:9:1,' ':9,r:9:1);

phi:=phi+step; phist:=phist+stepst;

r:=rmin+q*phist;

i:=i+1; if i=20 then begin readln; ClrScr; i:=0; end;

until phi>gamma;

q:=smax/(2*pi-gm-stepst);

phist:=0;

repeat

phi:=phi+step; phist:=phist+stepst;

r:=rmin+smax-q*phist;