Рішення у Pascal

program nametka;

Uses crt;

var

d,d0,h,d9,s,h1,d8,s1,s9,d1,h2:real;

u:integer;

begin

clrscr;

writeln('Практичне заняття 2 ');

writeln('Розрахунок позначки під отвір');

writeln;

writeln('Введіть діаметр поковки (mm)');

read(d);

writeln('Введіть діаметр отвору (mm)');

read(d0);

writeln('Введіть висоту поковки (mm)');

read(h);

writeln('Введіть штампувальний ухил (град)'); read(u);

d9:=24+0.00625*d; s:=0.45*sqrt(d-0.25*h-5)+0.6*sqrt(h);

if (d0<d9) then writeln(Отвір не прошивається ');

h1:=h/d0;

if (h1<0.4) and (h1<=1.7) then

begin

d8:=(d0-sin(u)/cos(u)*(h-s)/2)-3; s1:=0.65*s; s9:=1.35*s; d1:=0.12*d8+3;

writeln(' XX XX ');

writeln(' XXX XXX ');

writeln(' XXXXXXX XXXXXXX ');

writeln(' XXXXXXXXXXXXXXXXXXX Позначка з розкосом ');

writeln(' XXXXXXX XXXXXXX ');

writeln(' XXX XXX ');

writeln(' XX XX ');

writeln(' Для прошивки отвору застосовується позначка з розкосом ');

writeln(' Товщина перемички MAX= ',s9:4:2);

writeln(' Товщина перемички MIN= ',s1:4:2);

writeln(' Діаметр тонкої ділянки перемички D= ',d1:4:2); writeln;

end;

if (h1>0.4) and (h1<1.7) then

begin

writeln(' XX--------------XX ');

writeln(' XXX XXX ');

writeln(' XXXX XXXX ');

writeln(' XXXXXXXXXXXXXXXXXXXX Плоска позначка ');

writeln(' XXXX XXXX ');

writeln(' XX------------XX ');

writeln(' Для прошивки отвору застосовується плоска позначка ');

writeln(' Товщина перемички s= ',s:4:2); writeln;

end;

if (h1>1.7) then

begin

writeln(' XXXX--------XXXX ');

writeln(' XXXXX XXXXX ');

writeln(' XXXXXX XXXXXX ');

writeln(' XXXXXXXXXXXXXXXXXXXX ');

writeln(' XXXXXXXXXXXXXXXXXXXX Глуха позначка ');

writeln(' XXXXXXXXXXXXXXXXXXXX ');

writeln(' XXXXXX XXXXXX ');

writeln(' XXXXX XXXXX ');

writeln(' XXXX--------XXXX ');

writeln(' Для прошивки отвору застосовується глуха позначка ');

writeln(' MAX Висота позначки ');

h1:=0.9*d0; h2:=0.75*d0;

writeln(' Для верхнього штампа H1= ',h1:4:2);

writeln(' Для нижнього штампа H2= ', h2:4:2);

end;

end.