Cơ học ứng dụng bài tập giải mẫu và câu hỏi trắc nghiệm phần cơ học vật rắn biến dạng đỗ như lân, trần đức trung

T H Ư V IỆ N H LÂN - TS TRẦN ĐỨC TRUNG ^ ‫ ؟ ؟‬11 ĐẠI HỌC NHA TRANG M 620.105 Đ450 L > B À I T Ẩ P G IẢ I M ẪÙ V À C Â U HỎI T R Ắ C N G HIỆM ■ù‫؛‬ PHẦN C HỌC VẬT RẮN BIẾN.DẠNG SÁCH DÙNG C h Õ s in h v iê n c a o ĐẲNG s p h m VÀ CÁC NGÀNH KHƠNG c KHÍ ĐẠI HỌC KỸ THUẬT ẸmềÊiũ /77^^^^7Z A Ề ' ‫؟‬٠ ■١٠^·' ■ i m i Ị l i m ụ m ٠ Ị ||| ١|| || |i | ] | || || | ١i | ١||||Ị |i i |||||i Ị í f mÙHỶ ^؛‬٠ then begin ;Qyi:=Qyi+RA :Мхі:=Мхі+га*гі end ‫؛‬ ifzi> = a b th en begin ;Qjd:=Qyi+Rb Mxi:=Mxi+rb*(zi-ab )‫؛‬ end ‫؛‬ for k := !to S ‫؛‬t d o ١٨d th p [k ]d o ifz i> = a th e n begin Qjd:=Qyi-p ‫؛‬ Mxi:=Mxi-p*(zi-a )‫؛‬ en d ‫؛‬ f o r k : = it o s ‫؛‬n d o v ỵth m [k ]d o \ ifz i> = e th e n begin Mxi:=Mx ‫ ؛‬- : m en d ‫؛‬ for k : = it o s lp d o w ith q [k ]d o begin if (z ‫ =>؛‬b) and ( z i< = b d ) then 106 begin Qyi:=Qyi-q ٠ (zi-b); M xi:=M xi-q.sqr(zi-b)/ ; end; if zi>b+d then begin Qyi:=Qyi-q*d; M xi:=M xi-q*d*(zi-(b+d/2)); end; end; end; procedure timQyMxMaxMin; begin Q ym ax:=-iE +7 ; M xm ax:=-iE +7 ; Q ym in:=iE +7 ; M xm in:=iE +7 ; zt:=7 ; f o r i: = it o i begin zi:=(zt-7 )* l/3 0 -ac;{khoang each giua cac mat cat} tinhQy_M x(zi,Qyc,Mxc); zt:=zt+2; if QymaxQyc then Qymin:=Qyc; if MxmaxM xc then Mxmin:=Mxc; end; end; { * * * K H O I T A O DO HOA*٠ *******> procedure ktdh; var gd,gm:integer; begin gd:=o; initgraph(gd,gm,"); end; procedure VEGOI(x:integer;chu:ten); var gach,y:integer; begin y:=85; 107 setcolor(i); line(x,y,x-io,y+2o); line(x,y,x+io,y+2o); line(x-20,y+20,x+20,y+20); circle(x,y,3); for gach:=o to line(x+gach*5-2O,y+20,x+gach*5-25,y+25); setcolor(white); outtextxy(x-2,y+6,chu); end; procedure muitenxuong(x;integer;tenpl:ten); var ydnteger; begin y:=45; setcolorCs); line(x,y,x,y+33); line(x,y+33,x-2,y+27); line(x,y+33,x+2,y+27); setcolor(io); outtextxy(x٠4,y-20,tenpl); end; procedure muitenlen(x:integer;tenpl:ten); var ydnteger; begin y:=8i; setcolorCs); line(x,y,x,y-33); line(x,y-33,x-2,y-27); line(x,y-33,x+2,y-27); setcolor(io); outtextxy(x-4 ,y-48,tenpl); end; procedure velucTT(stt;integer;luc:luctt); var Zoom,Ytam,Ytduong,xl:integer; tenluc,soluc:string[s]; begin Ytam:=79;Ytduong:=30;{toa theo y cua diem dat luc} setcolor(i2); Zoom:=round(30 O*luc.a/l); Str(stt,soluc); tenluc:='p'+soluc; 108 xl:=xo+zoom; if luc.p>o then begin line(xl,Ytduong,xl,Ytduong+50); line(xl,Ytduong+50,xl-2,Ytduong+4o); line(xl,Ytduong+50,xl+2,Ytduong+40); outtextxy(xl-5,Ytduong-20,tenluc); end else begin line(xl,Ytam,xl,Ytam-50); line(xl,Ytam-50,xl-2,Ytam-40); line(xl,Ytam-50,xl+2,Ytam-40); outtextxy(xl-5,Ytam-70,tenluc); end; end; procedure vengauluc(stt:integer;ngluc:ngauluc); var zoom ,yve,xl: integer; tenngluc,songluc:string[5]; begin yve:=79; setcolor(i); zoom:=round(300٠ngluc.e/l); str(stt,songluc); tenngluc:='m'+songluc; xl:=xo+zoom; arc(xl,yve,45,i35,30); if ngluc.m>o then begin line(xl,yve,xl+20,yve-20); line(xl-23,yve-20,xl-i5,yve-23); line(xl-23,yve-20,xl-i8,yve-27); end else begin line(xl,yve,xl-20,yve-20); line(xl+23,yve-20,xl+i5,yve-23); line(xl+23,yve-20,xl+i8,yve-27); end; outtextxy(xl-3,yve-42,tenngluc); 109 end; {***٠*٠**٠ ve luc phan bo deu * * * * * * * * * } procedure velucphanbodeu(stt:integer;lucpb:lucpb); var zoom,zoomd,Ypduong,Ypam,xl,kc;integer; tenluc,soluc:string[5]; begin Ypduong:=79; Ypam:=8i; setcolor(4); zoom;=round(300*Gucpb.b)/l); Str(stt,soluc); tenluc:='q'+soluc; Zoomd: =round(300*lucpb.d/l); xl:=xo+zoom; if lucpb.q>o then begin line(xl,Ypduong-i8,xl+zoomd,Ypduong-i8); kc;=o; repeat line(xl+kc*6,Ypduong-i8,xl+kc*6,Ypduong); line(xl+kc*6,Ypduong,xl+kc*6-2,Ypduong-5); line(xl+kc*6,Ypduong,xl+kc٠6+2,Ypduong-5); kc;=kc+i; ٠until kc٠6>zoomd; outtextxy(xl+round(zoomd/2),Ypduong-30,tenluc); end else begin line(xl,Ypam+i8,xl+zoomd,Ypam+i8); kc:=o; repeat line(xl+kc*6,Ypam+i8,xl+kc*6,Ypam); line(xl+kc٠6,Ypam,xl+kc*6-2,Ypam+5); line(xl+kc*6,Ypam,xl+kc*6+2,Ypam+5); kc:=kc+i; until kc*6>zoomd; outtextxy(xl+round(zoomd/ 2),Ypam+26,tenluc); end; end; 110 procedure ghichu; begin outtextxy(420,85,'KET QUA setcolor(yellow); outtextxy(420,115,'*PHAN LUC TAI A(N):');SETCOLOR(RED); str(RA:8:2,St); outtextxy(530,135,st) ;setcolor(yellow); outtextxy(420,i50,’* PHAN LUC TAI B(N):’);SETCOLOR(RED); str(RB:8:2,st); outtextxy(530, i65,st) ;setcolor(yellow); outtextxy(420,i8o,'* GIATRI Mxmax (N.cm):’);SETCOLOR(RED); str(Mxng_hiem:8:2,st); outtextxy(530,195,st) ;setcolor(yellow); outtextxy(420,2io,'* MAT CAT NGUY HIEM CACH'); outtextxy(420,230,' МЕР TRAI THANH(cm): ’); setcolor(4); if (Slt=o)and (Sln=o)and (Slp=o)then outtextxy(550,255,’KHONG CO!!') else for i:=i to nh begin str(mcnghiem[i]+ac: 8:2,st); if odd(i)then outtextxy(550,245+i5*round((i-i)/2),st) else outtextxy(420,235+i5*round(i/2),st); end; setcolor(4); outtextxy(440,430,'AN ENTER DE KET THUC); end; procedure vekhungbieudo; begin rectangle(5,5,4io,475); setfillstyle(i,8); floodfill(io,10,15); rectangle(4io,5,635,475); end; procedure vethanh; begin setfillstyle(i,7); floodfill(470,io,i5); settextstyle(o,o, 1); 111 setíìllsiyle(!,YELLOW); bar(7 ,79 ,3 ,8 i); end; procedure vephanluc; begin if(R A < > o )o r (R B o o ) then begin if RA< then muitenxuong(xO,'RA') else muitenlen(xo,'RA'); if RB< then m uitenxuong(xo+round(3 0 *ab/l),'RB') else m uitenlen(xo+round(3 0 ٠ ab/l),'RB'); end; end; procedure tinhus; begin if (abs(Qym ax)+abs(Qym in))< > then yQy:=i30+round(Qymax*i50/(abs(Qymax)+abs(Qymin))) else yQy:=200; if (abs(M xmax)+abs(M xm in))oo then yMx:=46o-round(Mxmax*i50/(abs(Mxmax)+abs(Mxmin))) else yMx: =400; end; procedure vebieudo; begin setcolor(io); line(370,8o,37٠>yMx);{ve duong tu mep phai cua xuong true z cua Mx} for i:=i to sit {ve duong tai diem CO luc tap trung xuong z} line(round(p[i].a*300/l)+xo,8o,round(p[i].a٠300/l)+Xo,yM x); {line(xo,8o»xOjyMx); line(round(ab*300/l)+xo,8o,round(ab*300/l)+xo,yMx);} for j:=i to Sin {ve duong giong tai diem CO ngau lucxuong z} line(round(m[i].e*300/l)+xo,8٥>r٠und(m[i].e*300/l)+xo,yMx); for i:=i to Sip {ve duong giong tai diem CO luc phan bo deu} begin line(round((q[i].b+ac)٠300/l)+70,80jround((q[i].b+ac)*300/l)+70,yM x); line(round((q[i] b+q[i] d+ac)*300/l)+70,8o١r٥und((q[i] b+q[i] d+ ac)*300/l)+70,yMx); end; line(xo,8o,xo,yMx);{ve duong dong tai goi tua A xuong Z} 112 line(round(ab*3٥o/l)+x٥>8٥>round(ab٠3 ٥٥/l)+ x٥,yMx); setcolor(red); line(70,iio,70,47o);{ve truc dung cua truc toa do} line(68,H 7,70,iio);{ve muiten Qy) line(72,117,70,110); line(68,463,70,470);{ve muiten Mx} line(72,463,70,470); line(70,yQy,390,yQy);{ve truc toa Z cua Qy) outtextxy(395,y0 y-io,'z') ; line(390,yQy,383,yQy-2);{ve mui ten tren truc z cua Qy) line(390,yQy,383,yQy+2); circle(55,yQy,io);{ve vong tron boa Qy} outtextxy(50,yQy-5,'Qy');{in chu Qy} line(70,yMX,390,yMx) ; outtextxy (395,y Mx-10,'z') ; Mne(390,yMx,383,yMx+2); line(390,yMx,383,yMx-2); circle(55١yMx,io); outtextxy(50,yMx-5,’Mx'); if abs(Mxmax)>abs(Mxmin) then Mxng_hiem :=Mxmax else Mxng_hiem;=Mxmin; setcolor(i); zt:=70; nh:=o; if ( S l t o o ) or ( s ln o o ) or (slp< >0) then for I:=i to 150 begin zi :=(zt-70)*l/300-ac; tinhQy_Mx(zi,Qyc,Mxc) ; if (Mxc=Mxng_hiem ) then begin nh:=nh+i; mcnghiem[nh] :=zi; end; if(abs(Qymax)+abs(Qymin))oo then h: =round(0yc i5O/ (abs(Qymax)+abs(Q5nnin))) else h:=o; line(zt,yQy,zt,yQy-h); putpixel(zt,yÇty-h,i4); ٠ 113 if(abs(Mxmax)+abs(Mxm‫؛‬n))٥ then h:=round(M xc ٠ i 50^/(abs(Mxmax)+abs(Mxm‫؛‬n))) ٠ elseh:= ỉ Wne(zt,yMx,zt,yMx+h)j putpixel(zt,yMx+h,i4); zt:=zt+2 ; end‫؛‬ end; BEGIN tertbackground( );cJrscr; nhapthanh; nhapLtt; nhapngauluc; nhaplucphanbo; tinhphanluctt; tinhphanlucnl; tinhphanlucpb; tinhphanluC timQyMxniaxmin; textcolor(4); Ể e ln ( 'À n ENTER de xem bien do'); readln; tertbackgr٠und(blue); ktdh; 8etbkc٠lor(5); vekhungbieud.; vethanh; xo:= '+round(30 *ac/l); veg٠i(x٠,٠A'); yeg٠i(xo+r٠und(3٠٠٠ab/l),'B'); for i:=i to sit velucïï(i,p [i]); for j:=i to sin d ١^engaulucQ,mü])j for k:=i to sip velucphanbodeu(k,qtk]); vephanlUc; ' tin'hus; vebieUdo; : ' ‫؛‬ν٠٠٠‫؛‬:;.٠.:٠ ;;·:.ι, ٠ ٠ readln; closegraph; END 114 ٠ ’٠ ■ Kết thực hành máy tính Cho chạy chương trình với trường hợp dầm dài 120cm cỏ khoảng cách hai gối đỡAB lOOcm Đoạn chìa đầu bên phải BD dài 20cm chịu lực phân b ố có cường độ INIcm Ngồi cịn cố lực tập trung ỈN đặt cách gối đỡ A 50cm ngẫu lực tập trung với độ lớn mô men lONcm đặt cách gối đõ A 20cm Dưới kết thấy hĩnh máy tính : Nhap chieu dai cua l(cm) = 120 Khoang cach hai goi tua AB la ab =