# 35А (Приложение 3)

Посмотреть архив целиком

Приложение 3

program PlanZub3;

{\$APPTYPE CONSOLE}

uses

SysUtils;

var z1,nvala,nnom,k,c3:Integer;

z2,z3,u1h,ud,up,c,c2:Real;

begin

Writeln('Vvedite chislo zubev 1 kolesa');

Writeln('Vvedite chislo zubev 2 kolesa');

up:=z2/z1;

Writeln('Vvedite chislo satelitov');

Writeln('Vvedite nominalnoe chislo oborotov electrodvigatelya');

Writeln('Vvedite chislo oborotov vala');

ud:=nnom/nvala;

u1h:=ud/up; u1h:=u1h*1000; u1h:=Round(u1h); u1h:=u1h/1000;

for z1:=17 to 150 do

begin

z3:=z1*(u1h-1);

z3:=Round(z3);

if z3>85 then

begin

z2:=round((z3-z1)/2);

if z2>17 then

begin

c:=z1*u1h*(1+k*1)/3;

c3:=Round(c*1000);

if c3 mod 3=0 then

begin

c2:=(z2+2*1)/(z1+z2);

if Sin(Pi/k)>c2 then Break;

end;

end;

end;

end;

Writeln;

WriteLn('Harakteristiki planetarnogo mehanizma');

Writeln('Chislo zubev');

WriteLn('z1=',z1);

WriteLn('z2=',z2:3:2);

Writeln('z3=',z3:3:2);

WriteLn('r1=',(1*z1/2):3:2);

WriteLn('r2=',(1*z2/2):3:2);

Writeln('r3=',(1*z3/2):3:2);