{"id":489,"date":"2008-05-07T13:16:06","date_gmt":"2008-05-07T13:16:06","guid":{"rendered":"http:\/\/6teen.ru\/?p=538"},"modified":"2008-05-07T13:16:06","modified_gmt":"2008-05-07T13:16:06","slug":"1590","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=489","title":{"rendered":"\u041c\u0430\u044f\u0442\u043d\u0438\u043a. \u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a \u043d\u0430 DELPHI"},"content":{"rendered":"<p>\u041c\u0430\u044f\u0442\u043d\u0438\u043a. \u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a \u043d\u0430 DELPHI<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041c\u0430\u044f\u0442\u043d\u0438\u043a. \u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a \u043d\u0430 DELPHI.\n\n\u0414\u0443\u043c\u043a\u0438\u043d\n\n\u041f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u0441\u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0432\u0438\u0436\u0435\u043d\u0438\u0435 \u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043c\u0430\u044f\u0442\u043d\u0438\u043a\u0430, \u0442.\u0435. \u0431\u0443\u0434\u0435\u043c \u0440\u0435\u0448\u0430\u0442\u044c\n\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u043c\u0438 \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438 \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0434\u0432\u0438\u0436\u0435\u043d\u0438\u044f.\n\u0427\u0442\u043e \u0438\u043c\u0435\u0435\u043c:\n- \u0433\u0440\u0443\u0437 \u043c\u0430\u0441\u0441\u043e\u0439 m \u0432 \u0443\u0441\u043b\u043e\u0432\u0438\u044f\u0445 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0433\u0440\u0430\u0432\u0438\u0442\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0433\u043e \u043f\u043e\u043b\u044f \u043f\u043e\u0434\u0432\u0435\u0448\u0435\u043d \u043d\u0430 \u043d\u0435\u0440\u0430\u0441\u0442\u044f\u0436\u0438\u043c\u043e\u043c \u0431\u0435\u0437\u0438\u043d\u0435\u0440\u0446\u0438\u043e\u043d\u043d\u043e\u043c \u0441\u0442\u0435\u0440\u0436\u043d\u0435 \u0434\u043b\u0438\u043d\u043e\u0439 l \u0438 \u043e\u0442\u043a\u043b\u043e\u043d\u0435\u043d \u043e\u0442 \u043d\u043e\u0440\u043c\u0430\u043b\u0438 \u043d\u0430 \u0443\u0433\u043e\u043b a0;\n- \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0434\u0432\u0438\u0436\u0435\u043d\u0438\u044f \u043f\u043e\u0434 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435\u043c \u0441\u0438\u043b\u044b \u0442\u044f\u0436\u0435\u0441\u0442\u0438 \u043d\u0430 \u0433\u0440\u0443\u0437 \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u044e\u0442 \u0442\u043e\u0440\u043c\u043e\u0437\u044f\u0449\u0438\u0435 \u0441\u0438\u043b\u044b:\n- \u0430\u044d\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0430\u044f fa = cx * vt^2;\n- \u043a\u0443\u043b\u043e\u043d\u043e\u0432\u0441\u043a\u0430\u044f \u0441\u0438\u043b\u0430 \u0442\u0440\u0435\u043d\u0438\u044f \u0432 \u043e\u0441\u0438 \u043a\u0430\u0447\u0435\u043d\u0438\u044f fk\n- \u0432 \u043c\u043e\u043c\u0435\u043d\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u0438 t=0 \u0433\u0440\u0443\u0437 \u043f\u0440\u0438\u043e\u0431\u0440\u0435\u0442\u0430\u0435\u0442 \u0441\u0432\u043e\u0431\u043e\u0434\u0443 \u0434\u0432\u0438\u0436\u0435\u043d\u0438\u044f, \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u043d\u0443\u044e \u0441\u0438\u043b\u043e\u0439 \u0440\u0435\u0430\u043a\u0446\u0438\u0438 \u0441\u0442\u0435\u0440\u0436\u043d\u044f.\n\n\u041d\u0430 \u0433\u0440\u0443\u0437 \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u044e\u0442:\n- \u0442\u0430\u043d\u0433\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u0430\u044f \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0449\u0430\u044f \u0441\u0438\u043b\u0430 \u0442\u044f\u0436\u0435\u0441\u0442\u0438 ft = p * sin(a);\n- \u0430\u044d\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0441\u0438\u043b\u0430 fa = cx * vt^2;\n- \u043a\u0443\u043b\u043e\u043d\u043e\u0432\u0441\u043a\u0430\u044f \u0441\u0438\u043b\u0430 \u0442\u0440\u0435\u043d\u0438\u044f fk;\n\u0418\u0442\u043e\u0433\u043e:\nfs = ft - sgn(vt) * fa - sgn(vt) * fk\nsgn = 1 \u043f\u0440\u0438 vt > 0\nsgn = -1 \u043f\u0440\u0438 vt < 0\nsgn = 0 \u043f\u0440\u0438 vt = 0\n\n\u0412 \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u043c\u043e\u043c\u0435\u043d\u0442 \u0432\u0440\u0435\u043c\u0435\u043d\u0438:\nvt = 0\na = a0\nx = l * sin(a)\ny = l*cos(a)\n\n\u041d\u0430\u0447\u0430\u043b\u043e \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0441 \u0448\u0430\u0433\u043e\u043c \u043f\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 dt.\n\/\/*****************************\n\u0413\u0440\u0443\u0437 \u043f\u0440\u0438\u043e\u0431\u0440\u0435\u0442\u0430\u0435\u0442 \u0443\u0441\u043a\u043e\u0440\u0435\u043d\u0438\u0435 at = fs \/ m\n\u0421\u043a\u043e\u0440\u043e\u0441\u0442\u044c vt = vt + at * dt\n\u042d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u0440\u043d\u044b\u0439 \u043f\u0443\u0442\u044c ds = vt * dt\n\u042d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u0440\u043d\u044b\u0439 \u0443\u0433\u043e\u043b da = ds \/ l\n\u041f\u043e\u043b\u043d\u044b\u0439 \u0443\u0433\u043e\u043b a = a + da\n\u041a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b\nx = x + l * sin(a)\ny = y + l * cos(a)\n\/\/*****************************\n\n\u0412\u0441\u0435 \u0432\u043c\u0435\u0441\u0442\u0435 \u044d\u0442\u043e \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0435 \u0438\u043d\u0442\u0435\u0433\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0434\u0438\u0444\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0434\u0432\u0438\u0436\u0435\u043d\u0438\u044f \u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043c\u0430\u044f\u0442\u043d\u0438\u043a\u0430 \u0432 \u0443\u0441\u043b\u043e\u0432\u0438\u044f\u0445 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0434\u0438\u0441\u0441\u0438\u043f\u0430\u0442\u0438\u0432\u043d\u044b\u0445 \u0441\u0438\u043b \u0441\u043e\u043f\u0440\u043e\u0442\u0438\u0432\u043b\u0435\u043d\u0438\u044f.\n\ndt = \u0434\u0438\u0441\u043a\u0440\u0435\u0442\u043d\u043e\u0441\u0442\u044c \u043f\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438, \u043c\u043e\u0436\u043d\u043e \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u043e\u0439\nfs - \u0441\u0443\u043c\u043c\u0430\u0440\u043d\u0430\u044f \u0441\u0438\u043b\u0430, \u0434\u0435\u0439\u0441\u0442\u0432\u0443\u044e\u0449\u0430\u044f \u043d\u0430 \u0433\u0440\u0443\u0437\n\n--------------------------------------------------------------------------------\nslymro\n\nunit unit1;\n\ninterface\n\nuses\nwindows, sysutils, classes, graphics, forms,\nstdctrls, extctrls, actnlist, controls, menus, appevnts;\n\ntype\ntform1 = class(tform)\ngroupbox1: tgroupbox;\nlabel1: tlabel;\nu_edit: tedit;\nlabel2: tlabel;\nl_edit: tedit;\nlabel3: tlabel;\ng_edit: tedit;\nimage: timage;\nbutton1: tbutton;\nbutton2: tbutton;\nlabel4: tlabel;\nt_edit: tedit;\nimage1: timage;\ntimer1: ttimer;\nactionlist1: tactionlist;\nstartacnt: taction;\nstopacnt: taction;\nlog: tmemo;\nprocedure startacntexecute(sender: tobject);\nprocedure startacntupdate(sender: tobject);\nprocedure stopacntexecute(sender: tobject);\nprocedure stopacntupdate(sender: tobject);\nprocedure timer1timer(sender: tobject);\nprivate\nu,l,g,t,a:extended;\ndt0:dword;\npublic\n{ public declarations }\nend;\n\nvar\nform1: tform1;\n\nimplementation\nuses sysconst;\n{$r *.dfm}\n\nprocedure tform1.startacntexecute(sender: tobject);\nbegin\nu:=strtofloat(u_edit.text);\nl:=strtofloat(l_edit.text);\ng:=strtofloat(g_edit.text);\na:=l*sin(u*pi\/180);\nt:=2*pi*sqrt(l\/g);\ndt0:=gettickcount;\nt_edit.text:=format('%f',[t]);\ndoublebuffered:=true;\ntimer1.enabled:=true;\nend;\n\nprocedure tform1.startacntupdate(sender: tobject);\nbegin\ntaction(sender).enabled:=not timer1.enabled;\nend;\n\nprocedure tform1.stopacntexecute(sender: tobject);\nbegin\ntimer1.enabled:=false;\nend;\n\nprocedure tform1.stopacntupdate(sender: tobject);\nbegin\ntaction(sender).enabled:=timer1.enabled;\nend;\n\nprocedure tform1.timer1timer(sender: tobject);\nconst pr:integer=7;\nvar\ndt,x,y,k:extended;\npx,py,cx,cy:integer;\nbegin\nif not timer1.enabled then exit;\n\/\/\u041c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0430 \u043c\u0430\u044f\u0442\u043d\u0438\u043a\u0430\ndt:=(gettickcount-dt0)\/1000;\nx:=a*cos(dt\/t*2*pi);\ny:=sqrt(l*l-x*x);\n\nlog.lines[0]:='x\/y: '+format('%f',[x])+'\/'+format('%f',[y]);\n\n\/\/\u041f\u0435\u0440\u0435\u0432\u043e\u0434 \u0432 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u0438\nk:=trunc(image.height*0.9);\ncx:=image.width div 2;\ncy:=20;\npx:=trunc(x*k\/l)+cx;\npy:=trunc(y*k\/l)+cy;\n\n\/\/\u041e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u0430\nwith image.canvas do\nbegin\nbrush.color:=rgb(0,0,0);\npen.color:=rgb(255,255,255);\nfillrect(cliprect);\nmoveto(cx,cy);\nlineto(px,py);\nbrush.color:=pen.color;\nellipse(px-pr,py-pr,px+pr,py+pr);\nend;\nend;\n\nend.\n\n\u0418\u0441\u0442\u043e\u0447\u043d\u0438\u043a: http:\/\/www.delphimaster.ru\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041c\u0430\u044f\u0442\u043d\u0438\u043a. \u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a \u043d\u0430 DELPHI<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[364,454],"tags":[1889,1351,1426],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/489"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=489"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/489\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=489"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=489"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=489"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}