Курсовая работа: Автоматизація розрахунків легкового автомобілю

readln(u1);

writeln('Nm');

read(Nm);

{Programa}

lamda:=(L-d)/L ;

sig1:=Mmax*u*u1*Nm/(r*q*d*ll);

sig2:=(Mmax*u*u1*Nm)/(r1*q*d*l2) ;

sig3:=((Mmax*u*u1*Nm)/(r*q*3.14*(sqr(d)-sqr(d1))))*1.5*1 ;

sig4:=(2*Mmax*u*u1*Nm)/(r*3.14*(sqr(1.15*r1)-sqr(1.1*r)))*1.5*(z/z0) ;

sigx:=(sig1+sig2+sig3+sig4 )/4 ;

M:=sqrt((3*(1+0.15)*Mmax*u1*u*0.9)/sigx*z*q*L*(1-sqr(lamda)*lamda)*3.14*1) ;

Writeln('modyl=',M:3:3,'MM');

if sigx>550 then

writeln(' *** error ***pomilka peregryska****',sigx);

writeln( 'modul tisku=',sigx:5:2,'Mpa');

{///////////////1//////////////}

if sig1>70 then

writeln ('*** error ***pomilka peregryska****',sig1:5:2,'MPa' );

writeln('tisk na vis satelita v shesterni =',sig1:5:5,'(MPa)');

{//////////////////2//////////////}

if sig2>70 then

writeln ('*** error ***pomilka peregryska****',sig2:5:2,'MPa' );

writeln('tisk na vis satelita v kopobsi =',sig2:5:2,'(MPa)');

{/////////////////3////////////////}

if sig3>70 then

writeln ('*** error ***pomilka peregryska****',sig3:5:2,'MPa' );

writeln('Tisk na torets satelita=',sig3:5:2,'(MPa)');

{///////////////////4////////////////}

if sig4>70 then