Приложение 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');

Readln(z1);

Writeln('Vvedite chislo zubev 2 kolesa');

ReadLn(z2);

up:=z2/z1;

Writeln('Vvedite chislo satelitov');

ReadLn(k);

Writeln('Vvedite nominalnoe chislo oborotov electrodvigatelya');

Readln(nnom);

Writeln('Vvedite chislo oborotov vala');

Readln(nvala);

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('Radiusi koles');

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

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

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

Readln;

end.


Случайные файлы

Файл
172438.doc
12887-1.rtf
177394.rtf
49518.rtf
100947.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.