4. Блок-схема

5. ТЕКСТ ПРОГРАММЫ

program variant6;

uses crt;

var

S,D,H,Df,rm,E,k0,k00,k01,k02,d0,d00,d01,d02,h1,Hb,Dz,d5,h5,Mc,rn,M1,M2,Mp1,Mp2,n,M3,Mp3,d1,d2:real;

rm3,rm4,rm2,rml,rm1,rn2,rn1,rn3,rn4,d32,dS2,hS2,d3,d31,dS1,hS1,d33,dS3,hS3,Mp4,dS4,d34,hS4,M4,d4,mr1,mr2,dz1,mr3,dz2,mr4,dz3,dz4,hz:real;

begin

clrscr;

df:=85;

d:=57;

h:=53;

s:=1.2;

rm:=6;

writeln('Исходные данные ');

writeln('диаметр фланца df=',df:3:0);

writeln('диаметр цилиндр части d =',d:2:0);

writeln('высота детали h=',h:2:0);

writeln('толщина материала s=',s:3:1);

writeln('радиус матрицы 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('диаметр отбортовки d0=' ,d0:2:0);

writeln('коэф отбортовки k0=',k0:5:3);

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

hb:=h-hz+rn+s;

writeln('высотa цилиндр борта hz=',hz:2:0);

writeln('высота полуфабриката hb=',hb:2: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('диаметр плоской заготовки dz=',dz:2:0);

mc:=d/dz;

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

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

if m1<=mc then

begin

writeln('1-переход: m1=' , m1:6:3);

halt;

end;

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

if m1*m2<=mc then

begin

writeln;

n:=mc/(m1*m2);

mr1:=m1*sqrt(n);

mr2:=m2*sqrt(n);

d1:=mr1*dz;

d2:=mr2*d1;

writeln('раб коэф вытяжки 1-перехода mr1=',mr1:5:3);

writeln('раб коэф вытяжки 2-перехода mr2= ',mr2:5:3);

writeln('диаметр полуфабриката на 1-переходе d1=',d1:5:3);

writeln('диаметр полуфабриката на 2-переходе d2=',d2:2:0);

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+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*rm2+8*sqr(rm2)-2*pi*dz2*rn2-8*sqr(rn2)-sqr(dz2))/(4*d2);

writeln('радиусы закруг фланца 1-переход rm1=',rm1:2:0,' 2-переход rm2=',rm2:2:0);

writeln('радиусы закруг дна 1-переход rn1=',rn1:2:0,' 2-переход rn2=',rn2:2:0);

writeln('высоты полуфабриката 1-переход hs1=',hs1:2:0,' 2-переход hs2=',hs2:2:0);

readln;

halt;

end;

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

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

begin

writeln;

writeln('3-переход: m3=' , m3:6:3);

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;

d3:=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*rm2+8*sqr(rm2)-2*pi*dz2*rn2-8*sqr(rn2)-sqr(dz2))/(4*d2);

ds3:=d3+s+2*rm3;

dz3:=d3-s-2*rn3;

hs3:=(sqr(dz)-sqr(df)+sqr(ds3)-2*pi*ds3*rm3+8*sqr(rm3)-2*pi*dz3*rn3-8*sqr(rn3)-sqr(dz3))/(4*d3);

writeln('раб коэф вытяжки mr1= ',mr1:5:3,'mr2=',mr2:5:3,'mr3=',mr3:5:3);

writeln('диаметр полуфабр d1= ',d1:5:3,'d2=',d2:5:3,'d3=',d3:5:3);

writeln('радиусы закруг фланца rm1= ',rm1:5:0,' rm2=',rm2:5:0,'rm3=',rm3:5:0);

writeln('радиусы закруг дна rn1= ',rn1:5:0,'rn2=',rn2:5:0,'rn3=',rn3:5:0);

writeln('высоты полуфабр 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*m4)<=mc then

begin

writeln;

Writeln('4-переход: m4=', m4:6:3);

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:=mp1*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));

rn4:=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*rm2+8*sqr(rm2)-2*pi*dz2*rn2-8*sqr(rn2)-sqr(dz2))/(4*d2);

ds3:=d3+S+2*rm3;

dz3:=d3-S-2*rn3;

hs3:=(sqr(dz)-sqr(df)+sqr(ds3)-2*pi*ds3*rm3+8*sqr(rm3)-2*pi*dz3*rn3-8*sqr(rn3)-sqr(dz3))/(4*d3);

ds4:=d4+s+2*rm4;

dz4:=d4-s-2*rn4;

hs4:=(sqr(dz)-sqr(df)+sqr(ds4)-2*pi*ds4*rm4+8*sqr(rm4)-2*pi*dz4*rn4-8*sqr(rn4)-sqr(dz4))/(4*d4);

writeln('раб коэф вытяжки mr1= ',mr1:5:3,'mr2=',mr2:5:3,'mr3=',mr3:5:3,'mr4=',mr4:5:3);

writeln('диаметр полуфабр d1= ',d1:5:3,'d2=',d2:5:3,'d3=',d3:5:3,'d4=',d4:5:3);

writeln('радиусы закруг фланца rm1= ',rm1:5:0,'rm2=',rm2:5:0,'rm3=',rm3:5:0,'rm4=',rm4:5:0);

writeln('радиусы закруг дна rn1= ',rn1:5:0,'rn2=',rn2:5:0,'rn3=',rn3:5:0,'rn4=',rn4:5:0);

writeln('высоты полуфабр hs1=',hs1:5:0,'hs2=',hs2:5:0,'hs3=',hs3:5:0,'hs4=',hs4:5:0);

readln;

halt;

end

else

writeln('5-переход, требуется термообработка');

writeln('сум коэф вытяжки mc=',mc:5:3);

writeln('доп коэф вытяжки на 1-переходе m1=',m1:5:3);

writeln('доп коэф вытяжки на 2-переходе m2=',m2:5:3);

writeln('доп коэф вытяжки на 3-переходе m3=',m3:5:3);

writeln('доп коэф вытяжки на 4-переходе m4=',m4:5:3);

readln;

end.