Программа

{$N+}

program BNYOS;

uses WinCrt;

label 3,8,9,10,11,12,13,14,17,19,21,23,25,51,52,54,57,99;

var

m,a,p,b,g,c,dg: array [1..5] of extended;

i,ss,k,t,j,n,no: integer;

l,s,u,e,lr,t1,x,r,ge,z,y,mm,o,ca,mi,ai,pi,ci,di,bi,gi,h,h2,h3,h4,ir,otp,

kgo,hhh,bbb,ky,yk,x0,f0,m0,q0,y0,koo,pro,ygol,QQ: extended;

begin WRITELN('............BEAM , VINCLER.........................');

write(' dlina:=');readln(l);

write(' chislo ctrok :=');readln(n);

write('modyl yunga e:=');readln(e);

write(' chirina bbb:=');readln(bbb);

write(' visota hhh:=');readln(hhh);

u:=bbb*hhh*hhh*hhh/12;

write(' pogonniy otpor osnovaniya LR:=');readln(lr);kgo:=LR;

write(' chislo tochek pechati po dline t:=');readln(t);

for i:=1 to n do begin

3: write('moment m[',i,']:=');readln(m[i]);

write(' koordinata momenta a[',i,']:=');readln(a[i]);

22

write('sila p[',i,']:=');readln(p[i]);

write(' koordinata sili b[',i,']:=');readln(b[i]);

write('raspredelennaya nagryzka g[',i,']:=');readln(g[i]);

write(' koordinata nachala g c[',i,']:=');readln(c[i]);

write(' koordinata okonchaniya g dg[',i,']:=');readln(dg[i]);

m[i]:=m[i]/LR;p[i]:=p[i]/LR;g[i]:=g[i]/LR; end;

e:=e*u; t1:=l/t;h:=sqrt(LR/4/e);h:=sqrt(h);h2:=h*h;h3:=h2*h;h4:=h3*h;

8: u:=0; writeln(' privedennie nachalnie parametri');

write(' Y0:=');readln(Y0);

write(' F0/h:=');readln(F0);

write(' -M0/(EJhh):=');readln(M0);

write(' -Q0/(EJhhh):=');readln(Q0);

x:=Y0;r:=F0;GE:=M0;CA:=Q0;

9: i:=1; z:=0;y:=0;mm:=0;o:=0;

10: if u>a[i] then goto 17;

11: if u>b[i] then goto 19;

12: if u>c[i] then goto 21;

13: if u>dg[i] then goto 23;

14: i:=i+1; if i<=n then goto 10; goto 25;

17: LR:=h*(u-a[i]);s:=exp(-lr);ir:=(exp(lr)+s)/2;s:=(exp(lr)-s)/2;

z:=z+2*m[i]*h2*s*sin(lr);y:=y+2*m[i]*h3*(ir*sin(lr)+s*cos(lr));

mm:=mm-4*e*m[i]*h4*ir*cos(lr);o:=o+4*e*m[i]*h4*h*(ir*sin(lr)-s*cos(lr));goto 11;

19: LR:=h*(u-b[i]);s:=exp(-lr);ir:=(exp(lr)+s)/2;s:=(exp(lr)-s)/2;

z:=z+p[i]*h*(ir*sin(lr)-s*cos(lr));y:=y+2*p[i]*h2*s*sin(lr);

mm:=mm-2*e*p[i]*h3*(ir*sin(lr)+s*cos(lr));o:=o-4*e*p[i]*h4*ir*cos(lr);goto 12;

21: lr:=h*(u-c[i]);s:=exp(-lr);ir:=(exp(lr)+s)/2;s:=(exp(lr)-s)/2;

z:=z+g[i]*(1-ir*cos(lr));y:=y+g[i]*h*(ir*sin(lr)-s*cos(lr));

mm:=mm-2*e*g[i]*h2*s*sin(lr);o:=o-2*e*g[i]*h3*(ir*sin(lr)+s*cos(lr));goto 13;

23: lr:=h*(u-dg[i]);s:=exp(-lr);ir:=(exp(lr)+s)/2;s:=(exp(lr)-s)/2;

z:=z-g[i]*(1-ir*cos(lr));y:=y-g[i]*h*(ir*sin(lr)-s*cos(lr));

mm:=mm+2*e*g[i]*h2*s*sin(lr);o:=o+2*e*g[i]*h3*(ir*sin(lr)+s*cos(lr));goto 14;

25: lr:=h*u;s:=exp(lr);ir:=exp(-lr);mi:=(s+ir)/2;ai:=(s-ir)/2;

s:=sin(lr);ir:=cos(lr);pi:=mi*ir;

ci:=mi*s;di:=ai*ir;bi:=ai*s/2;gi:=(ci+di)/2;mi:=(ci-di)/4;

57: z:=z+x*pi+r*gi+ge*bi+ca*mi; y:=y+h*(r*pi+ge*gi+ca*bi-4*x*mi); otp:=z*kgo;

mm:=mm-e*h2*(ge*pi+ca*gi-4*x*bi-4*r*mi);o:=o-e*h3*(ca*pi-4*x*gi-4*r*bi-4*ge*mi);

23

koo:=u;pro:=z;ygol:=y;QQ:=o;

WriteLn('koord koo=',koo,' prog pro=',pro);

writeln('ygol pov ygol=',ygol,' mom mm=',mm);

writeln('p sila QQ=',QQ,' otpor osn=',otp); readln;

u:=u+t1; if u<l+0.001 then goto 9;

99: write('koord koo=');readln(koo);u:=koo;goto 9; end. { end of program }