Розробка алгоритмів розв’язання задачі

1.4 Розробка алгоритмів розв’язання задачі

 

Рис 1.9 Блок-схема до поставленої задачі

З складеною Блок-схемою була написана програма .

1.5 Вибір типу та структури оброблюваних даних

В процесі розв’язку поставленої задачі оброблюються дані типу, що наводиться у таблиці 2.1.

Таблиця 1.1 – Типи даних, що будуть використовуватись при розробці програми

Тип	Область значень	Фізичний формат
real	від 2,9×10-39 до 1,7×1038	Точність 11-12 розрядів, розмір в байтах – 6
integer	Від -32 768..32 767 (-2..2-1)	Розмір 2 байта

1.6 Програмування на мові Pascal 7.0

Program pe4en;

 uses crt;

Var M, L,b,z,z0,q,r,r1,ll,l2, d,d1,u,u1,Nm,Mmax,

sig1,

sig2,sig3,sig4,sigx,lamda :Real;

z :integer

{const Mmax=170;L=47.2;b=20;z=16;z0=10;q=2;r=35;r1=55;ll=23;l2=15;d=20;d1=50;

u=4.55;u1=3.115;Nm=0.9;{****Dla nalagodgenna****}

begin

clrscr;

 writeln('vedit Mmax');

readln(Mmax);

writeln('dovginy tvirnoi');

readln(L);

writeln('vedit dovginy zybsa');

readln(b);

writeln('4iclo zybsiv satelita');

read(z);

writeln('4iclo zybsiv dicka');

readln(z0);

writeln('4iclo satelitov');

readln(q);

writeln('r --vidstan vid seredini ploshtini do ceredini zyba');

readln(r);

writeln('r1--vidstan do opornoi poverxni');

readln(r1);

writeln('dovgina posado4noi poverxni');

readln(ll);

writeln('dovgina oci v korobsi');

readln(l2);

writeln('daiamtr oci catelita');

readln(d);

writeln('diametr opornoi poverxni');

readLn(d1);

writeln('kofisient U');

readln(u);

writeln('vedit kofisient U1');

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

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

writeln('tisk na torsi shesterni =',sig4:5:2,'(MPa)');

readln;

 end.