Программа расчета технологических параметров на алгоритмическом языке Pascal

Алгоритм для составления программы в виде блок схемы

Program variant;

uses crt;

var

S,D,H,Df,rm,k0,k,k01,k02,d0,d01,d02,e,rn,h1,hb,d5,h5:real;

dz,mc,m1,m2,m3,m4,n2,mr1,mr2,mr3,mr4,d1,d2,d3,d4,rm2,rm1,rm3,rm4,rn3:real;

rn4,rn1,rn2,hs2,dz2,ds2,ds3,ds4,ds1,dz1,dz3,dz4,hs1,hs3,hs4,n,hz:real;

I:integer;

begin

clrscr;

df:=80;

d:=52;

h:=48;

s:=1.0;

rm:=5;

writeln('ishodnie dannie');

writeln('diametr flanca df=',df:3:0);

writeln('diametr cilindr chasti d=',d:2:0);

writeln('visota detali h=',h:2:0);

writeln('tolshina materiala s=',s:3:1);

writeln('radiys matrici rm=',rm:2:0);

e:=0.001;

rn:=4*s;

d02:=d;

k02:=0.26*exp(0.23*ln(d02/S));

d02:=k02*d;

repeat

d01:=d02;

k01:=k02;

k02:=0.26*exp(0.23*ln(d01/S));

d02:=k02*d;

until abs(k01-k02)<=e;

d0:=round(d02);

if d0=d02 then d0:=d0+1;

k0:=d0/d;

writeln('diametr otbortovki d0=',d0:4:0,'koeff.otbortovki k0=',k0:5:3);

hz:=(d*((1-k0))/2+0.57*rn+0.28*s);

hb:=h-hz+rn+s;

writeln('visota cilindr. borta hr=',h1:5:0,'visota polyfabr. hb=',hb:5:0);

d5:=D+S+2*rm;

h5:=Hb-2*S-rm-rn;

Dz:=sqrt(sqr(Df)-sqr(d5)+2*pi*d5*rm-8*sqr(rm)+4*D*h5+2*pi*d0*rn

+8*sqr(rn)+sqr(d0));

writeln('diametr ploskoi zagotovki dz=',Dz:5:0);

Mc:=D/Dz;

writeln('Mc=',Mc:5:3);

M1:=0.6-0.07*((s/dz)*100);

if m1<=Mc then

begin

writeln (' 1 perehod: m1=',m1:6:3);

halt;

end;

m2:=0.79-0.045*(s/dz*100);

if m1*m2<=Mc then

begin

writeln;

writeln('2 perehod: m2=',m2:6:3);

n:=mc/(m1*m2);

mr1:=m1*sqrt(n);

mr2:=m2*sqrt(n);

d1:=mr1*Dz;

d2:=mr2*d1;

writeln(' n=',n:5:3);

writeln(' 1 perehod 2 perehod');

Writeln('rab.koeff.vityazhki ',mr1:5:3,mr2:20:3);

writeln('diam.polyfabrikata ',d1:5:0,d2:20:0);

I:=2;

rm2:=sqrt(1.6)*4*S;

if rm2<rm then rm2:=rm;

rm1:=rm2*sqrt(1.6);

rn2:=rn;

rn1:=rn2+1;

ds1:=d1+s*rm1;

dz1:=d1-s-2*rn1;

hS1:=(sqr(Dz)-sqr(Df)+sqr(ds1)-2*pi*ds1*rm1+8*sqr(rm1)-2*pi*dz1*rn1-8*sqr(rn1)-sqr(dz1))/(4*d1);

dS2:=d2+S+2*rm2;

dz2:=d2-S-2*rn2;

hS2:=(sqr(Dz)-sqr(Df)+sqr(ds2)-2*pi*ds2*rm1+8*sqr(rm1)-2*pi*dz2*rn1-8*sqr(rn1)-sqr(dz2))/(4*d2);

writeln('radiysi zakryg.flanca ',rm1:5:0,rm2:20:0);

writeln('radiysi zakryg.dna ',rn1:5:0,rn2:20:0);

writeln('visoti polyfabrikata ',hs1:5:0,hs2:20:0);

readln;

halt;

end;

m3:=0.8-0.04*((s/100)*dz);

if (m1*m2*m3)<=mc then

begin

writeln;

writeln('3 perehod: m3=',m3:6:1);

writeln;

n:=mc/(m1*m2*m3);

mr1:=m1*exp((1/3)*ln(n));

mr2:=m2*exp((1/3)*ln(n));

mr3:=m3*exp((1/3)*ln(n));

d1:=mr1*dz;

d2:=mr2*d1;

d4:=mr3*d2;

rm3:=exp((1/3)*ln(1.6))*4*s;

if rm3>rm then rm3:=rm;

rm2:=rm3*exp((1/3)*ln(1.6));

rm1:=rm2*exp((1/3)*ln(1.6));

rn3:=rn;

rn2:=rn3+1;

rn1:=rn2+1;

dS1:=d1+S+2*rm1;

dz1:=d1-S-2*rn1;

hS1:=(sqr(Dz)-sqr(Df)+sqr(ds1)-2*pi*ds1*rm1+8*sqr(rm1)-2*pi*dz1*rn1-8*sqr(rn1)-sqr(dz1))/(4*d1);

dS2:=d2+S+2*rm2;

dz2:=d2-S-2*rn2;

hS2:=(sqr(Dz)-sqr(Df)+sqr(ds2)-2*pi*ds2*rm1+8*sqr(rm1)-2*pi*dz2*rn1-8*sqr(rn1)-sqr(dz2))/(4*d2);

dS3:=d3+S+2*rm3;

dz3:=d3-S-2*rn3;

hS3:=(sqr(Dz)-sqr(Df)+sqr(ds3)-2*pi*ds3*rm1+8*sqr(rm1)-2*pi*dz3*rn1-8*sqr(rn1)-sqr(dz3))/(4*d4);

writeln('rab.koeff.vityazhki mr1=',mr3:5:3,'mr2=',mr4:5:3,'mr3=',mr3:5:3);

writeln('diametr polyfabrikata d1=',d1:5:3,'d2=',d2:5:3,'d3=',d4:5:3);

writeln('radiysi zakryg.flanca rm1=',rm1:5:0,'rm2=',rm2:5:0,'rm3=',rm3:5:0);

writeln('radiysi zakryg.dna rn1=',rn1:5:0,'rn2=',rn2:5:0,'rn3=',rn3:5:0);

writeln('visoti polyfabr.hs1=',hs1:5:0,'hs2=',hs2:5:0,'hs3=',hs3:5:0);

readln;

halt;

end;

m4:=0.83-0.045*((s/100)*dz);

if (m1*m2*m3)<=mc then

begin

writeln;

writeln('4 perehod: m4=',m4:6:1);

writeln;

n:=mc/(m1*m2*m3*m4);

mr1:=m1*exp((1/4)*ln(n));

mr2:=m2*exp((1/4)*ln(n));

mr3:=m3*exp((1/4)*ln(n));

mr4:=m4*exp((1/4)*ln(n));

d1:=mr1*dz;

d2:=mr2*d1;

d3:=mr3*d2;

d4:=mr4*d3;

rm4:=exp((1/4)*ln(1.6))*4*S;

if rm4<rm then rm4:=rm;

rm4:=rm;

rm3:=rm4*exp((1/4)*ln(1.6));

rm2:=rm3*exp((1/4)*ln(1.6));

rm1:=rm2*exp((1/4)*ln(1.6));

rm4:=rn;

rn3:=rn4+1;

rn2:=rn3+1;

rn1:=rn2+1;

dS1:=d1+S+2*rm1;

dz1:=d1-S-2*rn1;

hS1:=(sqr(Dz)-sqr(Df)+sqr(ds1)-2*pi*ds1*rm1+8*sqr(rm1)-2*pi*dz1*rn1-8*sqr(rn1)-sqr(dz1))/(4*d1);

dS2:=d2+S+2*rm2;

dz2:=d2-S-2*rn2;

hS2:=(sqr(Dz)-sqr(Df)+sqr(ds2)-2*pi*ds2*rm1+8*sqr(rm1)-2*pi*dz2*rn1-8*sqr(rn1)-sqr(dz2))/(4*d2);

dS3:=d3+S+2*rm3;

dz3:=d3-S-2*rn3;

hS3:=(sqr(Dz)-sqr(Df)+sqr(ds3)-2*pi*ds3*rm1+8*sqr(rm1)-2*pi*dz3*rn1-8*sqr(rn1)-sqr(dz3))/(4*d4);

dS4:=d4+S+2*rm4;

dz4:=d4-S-2*rn4;

hS4:=(sqr(Dz)-sqr(Df)+sqr(ds4)-2*pi*ds4*rm1+8*sqr(rm1)-2*pi*dz4*rn1-8*sqr(rn1)-sqr(dz4))/(4*d4);

writeln('rab.koef.vityazhki mr1=',mr3:5:3,'mr2=',mr4:5:3,'mr3=',mr3:5:3,'mr4=',mr4:5:3);

writeln('diametr polyfabrikata d1=',d1:5:3,'d2=',d2:5:3,'d3=',d4:5:3,'d4=',d4:5:3);

writeln('radiysi zakryg flanca rm1=',rm1:5:0,'rm2=',rm2:5:0,'rm3=',rm3:5:0,'rm4=',rm4:5:0);

writeln('radiysi sakryg.dna rn1=',rn1:5:0,'rn2=',rn2:5:0,'rn3=',rn3:5:0,'rn4=',rn4:5:0);

writeln('visoti polyfabrikata hs1=',hs1:5:0,'hs2=',hs2:5:0,'hs3=',hs3:5:0,'hs4=',hs4:5:0);

readln;

halt;

end

else

writeln('5 perehod, trebyetsya termoobrabotka');

writeln('summa koeff.vityazhki mc=',mc:5:1);

writeln('dop.koeff.vityazhki na 1 perehode m1=',m1:5:1);

writeln('dop.koeff.vityazhki na 2 perehode m2=',m2:5:1);

writeln('dop.koeff.vityazhki na 3 perehode m3=',m3:5:1);

writeln('dop.koeff.vityazhki na 4 perehode m4=',m4:5:1);

readln;

end.

Дата добавления: 2015-08-31