{"id":2411,"date":"2010-05-12T10:21:43","date_gmt":"2010-05-12T06:21:43","guid":{"rendered":"http:\/\/msbro.ru\/?p=2411"},"modified":"2010-06-25T08:33:40","modified_gmt":"2010-06-25T04:33:40","slug":"pascal-programmy-rabotayushhie-v-graficheskom-rezhime","status":"publish","type":"post","link":"https:\/\/msbro.ru\/index.php\/archives\/2411","title":{"rendered":"Pascal: \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0435 \u0432 \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u043c \u0440\u0435\u0436\u0438\u043c\u0435"},"content":{"rendered":"

<\/p>\n

\u0417\u0430\u0434\u0430\u0447\u0430 1.<\/strong><\/p>\n

\u041f\u043e\u0441\u0442\u0440\u043e\u0438\u0442\u044c \u0441\u0435\u043c\u0435\u0439\u0441\u0442\u0432\u043e \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0445 \u043e\u043a\u0440\u0443\u0436\u043d\u043e\u0441\u0442\u0435\u0439, \u0446\u0435\u043d\u0442\u0440\u044b \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043b\u0435\u0436\u0430\u0442 \u043d\u0430 \u0432\u0435\u0440\u0442\u0438\u043a\u0430\u043b\u044c\u043d\u043e \u0432\u0440\u0430\u0449\u0430\u044e\u0449\u0435\u043c\u0441\u044f \u043e\u0442\u0440\u0435\u0437\u043a\u0435, \u0432\u0435\u0440\u0445\u043d\u0438\u0439 \u043a\u043e\u043d\u0435\u0446 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0437\u0430\u043a\u0440\u0435\u043f\u043b\u0435\u043d.<\/em><\/p>\n

\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n

x, y \u2013 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0446\u0435\u043d\u0442\u0440\u0430 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0433\u043e \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u043e\u0433\u043e \u043a\u0440\u0443\u0433\u0430;
\ny0 \u2013 \u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043a\u0440\u0443\u0433\u043e\u0432 \u043f\u043e \u0432\u0435\u0440\u0442\u0438\u043a\u0430\u043b\u0435;
\ni \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;
\nt \u2013 \u0443\u0433\u043e\u043b \u043f\u043e\u0432\u043e\u0440\u043e\u0442\u0430;
\ndrive \u2013 \u0442\u0438\u043f \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0434\u0440\u0430\u0439\u0432\u0435\u0440\u0430;
\nmode \u2013 \u0440\u0435\u0436\u0438\u043c \u0440\u0430\u0431\u043e\u0442\u044b \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0430\u0434\u0430\u043f\u0442\u0435\u0440\u0430.<\/p>\n

\u0414\u043b\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/p>\n

\n
\u0438\u043d\u0438\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c graph;<\/li>\n
\u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0440\u0430\u0434\u0438\u0443\u0441\u0430, \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0446\u0435\u043d\u0442\u0440\u0430;<\/li>\n
\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0446\u0438\u043a\u043b, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0437\u0430\u043a\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c \u043a\u0440\u0443\u0433\u0438 \u0441\u043e \u0432\u0441\u0435 \u0431\u043e\u043b\u044c\u0448\u0438\u043c \u0440\u0430\u0434\u0438\u0443\u0441\u043e\u043c \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u043d\u0430\u0436\u0430\u0442\u0430 \u043b\u044e\u0431\u0430\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0430.<\/li>\n<\/ol>\n
uses crt,graph;\r\nvar drive,mode,x,y,i,t,y0:integer;\r\nbegin\r\n drive:=detect;\r\n initgraph(drive,mode,'c:\\tp\\bgi');\r\n setfillstyle(1,1);\r\n floodfill(1,4,1);\r\n t:=\u20134;\r\n y0:=10;\r\n setcolor(16);\r\n for i:=1 to 150 do\r\n begin\r\n t:=t+2;\r\n y0:=y0+3;\r\n x:=getmaxx div 2 + trunc(cos(t\/10)*i);\r\n y:=y0 \u2013 trunc(sin(t\/10)*i);\r\n setfillstyle(1,14);\r\n fillellipse(x,y,20,20);\r\n delay(100);\r\n end;\r\n repeat\r\n until keypressed;\r\n closegraph;\r\nend.\r\n<\/pre>\n
\u0417\u0430\u0434\u0430\u0447\u0430 2.<\/strong><\/p>\n
\u041f\u043e\u0441\u0442\u0440\u043e\u0438\u0442\u044c \u0434\u0432\u0438\u0436\u0443\u0449\u0438\u0435\u0441\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u041d\u041b\u041e \u043d\u0430 \u0444\u043e\u043d\u0435 \u0437\u0432\u0435\u0437\u0434\u043d\u043e\u0433\u043e \u043d\u0435\u0431\u0430.<\/em><\/p>\n
\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n
x, y \u2013 \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u044b\u0435 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b;
\nr \u2013 \u0440\u0430\u0434\u0438\u0443\u0441;
\ni \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;
\ndrive \u2013 \u0442\u0438\u043f \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0434\u0440\u0430\u0439\u0432\u0435\u0440\u0430;
\nmode \u2013 \u0440\u0435\u0436\u0438\u043c \u0440\u0430\u0431\u043e\u0442\u044b \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0430\u0434\u0430\u043f\u0442\u0435\u0440\u0430.<\/p>\n
\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/p>\n
\n
\u0438\u043d\u0438\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c graph;<\/li>\n
\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0431\u0435\u0437\u0443\u0441\u043b\u043e\u0432\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u043f\u043e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i \u0438 \u0440\u0438\u0441\u0443\u0435\u043c \u0437\u0432\u0435\u0437\u0434\u043d\u043e\u0435 \u043d\u0435\u0431\u043e;<\/li>\n
\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0446\u0438\u043a\u043b \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u043d\u0430\u0436\u0430\u0442\u0430 \u043b\u044e\u0431\u0430\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0430;<\/li>\n
\u0432 \u044d\u0442\u043e\u043c \u0446\u0438\u043a\u043b\u0435 \u0440\u0438\u0441\u0443\u0435\u043c \u041d\u041b\u041e \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u0432\u0443\u0445 \u044d\u043b\u043b\u0438\u043f\u0441\u043e\u0432, \u0434\u0432\u0443\u0445 \u043b\u0438\u043d\u0438\u0439 \u0438 \u0434\u0432\u0443\u0445 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0445 \u043a\u0440\u0443\u0436\u043e\u0447\u043a\u043e\u0432, \u0434\u0435\u0440\u0436\u0438\u043c \u043d\u0430 \u044d\u043a\u0440\u0430\u043d\u0435, \u0437\u0430\u0442\u0435\u043c \u0441\u0442\u0438\u0440\u0430\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043e\u0439 CLEARDEVICE;<\/li>\n
\u043e\u043f\u044f\u0442\u044c \u0440\u0438\u0441\u0443\u0435\u043c \u0437\u0432\u0435\u0437\u0434\u043d\u043e\u0435 \u043d\u0435\u0431\u043e;<\/li>\n
\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u041d\u041b\u041e;<\/li>\n
\u043f\u043e\u0441\u043b\u0435 \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043b\u044e\u0431\u043e\u0439 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0440\u0435\u0436\u0438\u043c.<\/li>\n<\/ol>\n
uses crt,graph;\r\nvar drive,mode,x,y,i,r:integer;\r\nbegin\r\n r:=40;\r\n x:=r*5;\r\n y:=r*2;\r\n drive:=detect;\r\n initgraph(drive,mode,'c:\\tp\\bgi');\r\n setcolor(3);\r\n for i:=1 to 600 do\r\n putpixel(random(i),random(i),i);\r\n repeat\r\n ellipse(x,y,0,360,r,(r div 3)+2);\r\n ellipse(x,y\u20134,190,357,r,r div 3);\r\n line(x\u201317,y\u201316,x\u201325,y\u201322);\r\n line(x+17,y\u201316,x+25,y\u201322);\r\n circle(x+25, y\u201325,2);\r\n circle(x\u201325, y\u201325,2);\r\n setfillstyle(1,3);\r\n floodfill(x+1,y+4,3);\r\n delay(150);\r\n cleardevice;\r\n for i:=1 to 600 do\r\n putpixel(random(i),random(i),i);\r\n x:=x+random(10);\r\n y:=y+random(10);\r\n until (keypressed);\r\n closegraph;\r\nend.\r\n<\/pre>\n
\u0422\u0430 \u0436\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0430 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u043f\u0430\u0440\u044b \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440<\/p>\n
GETIMAGE(lx,ly,rx,ry,saucer^) \u0438 PUTIMAGE(x,y,saucer^,xorput).\r\n<\/pre>\n
\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 GETIMAGE(lx,ly,rx,ry,saucer^) \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0432 \u0431\u0443\u0444\u0435\u0440, \u0430 PUTIMAGE(x,y,saucer^,xorput) \u0432\u044b\u0432\u043e\u0434\u0438\u0442 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0435 \u043c\u0435\u0441\u0442\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435.
\n\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 xorput \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0441\u043f\u043e\u0441\u043e\u0431 \u0432\u044b\u0432\u043e\u0434\u0430 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d \u2013 \u0438\u0441\u043a\u043b\u044e\u0447\u0430\u044e\u0449\u0435\u0435 \u0418\u041b\u0418.
\n\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u0430\u043c\u0438<\/p>\n
GETIMAGE(lx,ly,rx,ry,saucer^);
\nREADLN;
\nPUTIMAGE(x,y,saucer^,xorput);<\/p>\n
\u043c\u044b \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d \u0438 \u043f\u043e\u0441\u043b\u0435 \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043b\u044e\u0431\u043e\u0439 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u0441\u0442\u0438\u0440\u0430\u0435\u043c \u0435\u0433\u043e.
\n\u041c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0434\u0440\u0443\u0433\u0438\u0435 \u0441\u043f\u043e\u0441\u043e\u0431\u044b \u0432\u044b\u0432\u043e\u0434\u0430 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043d\u0430 \u044d\u043a\u0440\u0430\u043d, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440:<\/p>\n
NORMALPUT \u2013 \u0441\u0442\u0438\u0440\u0430\u0435\u0442 \u0447\u0430\u0441\u0442\u044c \u044d\u043a\u0440\u0430\u043d\u0430 \u0438 \u043d\u0430 \u044d\u0442\u043e \u043c\u0435\u0441\u0442\u043e \u0432\u044b\u0432\u043e\u0434\u0438\u0442 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435;
\nNOTPUT \u2013 \u0434\u0435\u043b\u0430\u0435\u0442 \u0442\u043e \u0436\u0435 \u0441\u0430\u043c\u043e\u0435, \u043d\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438\u043d\u0432\u0435\u0440\u0442\u0438\u0440\u0443\u0435\u0442\u0441\u044f;
\nORPUY \u2013 \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442 \u043d\u043e\u0432\u043e\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435.<\/p>\n
\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n
x, y \u2013 \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u044b\u0435 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b;
\nr \u2013 \u0440\u0430\u0434\u0438\u0443\u0441;
\ni \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;
\nsaucer \u2013 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c \u0431\u0443\u0444\u0435\u0440\u0430 \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f;
\ndrive \u2013 \u0442\u0438\u043f \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0434\u0440\u0430\u0439\u0432\u0435\u0440\u0430;
\nmode \u2013 \u0440\u0435\u0436\u0438\u043c \u0440\u0430\u0431\u043e\u0442\u044b \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0430\u0434\u0430\u043f\u0442\u0435\u0440\u0430.<\/p>\n
\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/p>\n
\n
\u0438\u043d\u0438\u0446\u0438\u0438\u0440\u0443\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c graph;<\/li>\n
\u0440\u0438\u0441\u0443\u0435\u043c \u041d\u041b\u041e \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u0432\u0443\u0445 \u044d\u043b\u043b\u0438\u043f\u0441\u043e\u0432, \u0434\u0432\u0443\u0445 \u043b\u0438\u043d\u0438\u0439 \u0438 \u0434\u0432\u0443\u0445 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0445 \u043a\u0440\u0443\u0436\u043e\u0447\u043a\u043e\u0432, \u0434\u0435\u0440\u0436\u0438\u043c \u043d\u0430 \u044d\u043a\u0440\u0430\u043d\u0435, \u0437\u0430\u0442\u0435\u043c \u0441\u0442\u0438\u0440\u0430\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043e\u0439 CLEARDEVICE;<\/li>\n
\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0440\u0430\u0437\u043c\u0435\u0440 \u0431\u0443\u0444\u0435\u0440\u0430 \u0438 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435;<\/li>\n
\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0431\u0435\u0437\u0443\u0441\u043b\u043e\u0432\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u043f\u043e \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i \u0438 \u0440\u0438\u0441\u0443\u0435\u043c \u0437\u0432\u0435\u0437\u0434\u043d\u043e\u0435 \u043d\u0435\u0431\u043e;<\/li>\n
\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0446\u0438\u043a\u043b \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442 \u043d\u0430\u0436\u0430\u0442\u0430 \u043b\u044e\u0431\u0430\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0430;<\/li>\n
\u043e\u043f\u044f\u0442\u044c \u0440\u0438\u0441\u0443\u0435\u043c \u0437\u0432\u0435\u0437\u0434\u043d\u043e\u0435 \u043d\u0435\u0431\u043e;<\/li>\n
\u0432 \u044d\u0442\u043e\u043c \u0446\u0438\u043a\u043b\u0435 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438\u0437 \u0431\u0443\u0444\u0435\u0440\u0430 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d, \u0434\u0435\u0440\u0436\u0438\u043c \u0435\u0433\u043e \u043d\u0430 \u044d\u043a\u0440\u0430\u043d\u0435, \u0437\u0430\u0442\u0435\u043c \u0441\u0442\u0438\u0440\u0430\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435;<\/li>\n
\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u041d\u041b\u041e;<\/li>\n
\u043f\u043e\u0441\u043b\u0435 \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043b\u044e\u0431\u043e\u0439 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0440\u0435\u0436\u0438\u043c.<\/li>\n<\/ol>\n
uses crt,graph;\r\nvar drive,mode,x,y,i,r,rx,ry,lx,ly,size:integer;\r\n saucer:pointer;\r\nbegin\r\n r:=20;\r\n x:=r*5;\r\n y:=r*2;\r\n drive:=detect;\r\n initgraph(drive,mode,'c:\\tp\\bgi');\r\n setcolor(3);\r\n ellipse(x,y,0,360,r,(r div 3)+2);\r\n ellipse(x,y\u20134,190,357,r,r div 3);\r\n line(x\u201317,y\u201316,x\u201325,y\u201322);\r\n line(x+17,y\u201316,x+25,y\u201322);\r\n circle(x+25, y\u201325,2);\r\n circle(x\u201325, y\u201325,2);\r\n setfillstyle(1,3);\r\n floodfill(x+1,y+4,3);\r\n lx:=x\u2013r\u201330;\r\n ly:=y\u201330;\r\n rx:=x+r+30;\r\n ry:=y+r div 3+30;\r\n size:=imagesize(lx,ly,rx,ry);\r\n getmem(saucer,size);\r\n getimage(lx,ly,rx,ry,saucer^);\r\n readln;\r\n putimage(lx,ly,saucer^,xorput);\r\n for i:=1 to 600 do\r\n putpixel(random(i),random(i),i);\r\n repeat\r\n putimage(x,y,saucer^,xorput);\r\n delay(150);\r\n putimage(x,y,saucer^,xorput);\r\n x:=x+random(10);\r\n y:=y+random(10);\r\n until (keypressed);\r\n readln;\r\n closegraph;\r\nend.\r\n<\/pre>\n
\u0417\u0430\u0434\u0430\u0447\u0430 3.
\n<\/strong><\/p>\n
\u041f\u043e\u0441\u0442\u0440\u043e\u0438\u0442\u044c \u0430\u0441\u0442\u0440\u043e\u0438\u0434\u0443-\u043a\u0440\u0438\u0432\u0443\u044e, \u0437\u0430\u0434\u0430\u043d\u043d\u0443\u044e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0438\u0447\u0435\u0441\u043a\u0438\u043c \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u0435\u043c x = b cos3(t), y = b sin3(t), t \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0438\u0442 \u0438\u043d\u0442\u0435\u0440\u0432\u0430\u043b\u0443 [0, 2(\u043f\u0438)]<\/p>\n
$\"\"$ <\/a><\/p>\n
\u0420\u0438\u0441. 1 \u2013 \u0410\u0441\u0442\u0440\u043e\u0438\u0434\u0430<\/p>\n
uses crt,graph;\r\nconst B=200;\r\nvar drive,mode,i:integer;\r\n x,y,t:real;\r\nbegin\r\n drive:=detect;\r\n initgraph(drive,mode,'c:\\tp\\bgi'); {\u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0440\u0435\u0436\u0438\u043c\u0430}\r\n setcolor(3);\r\n line(10,240,630,240); {\u043e\u0441\u044c X}\r\n line(320,10,320,470); {\u043e\u0441\u044c Y}\r\n line(630,240,610,235); {\u0441\u0442\u0440\u0435\u043b\u043a\u0438 \u043d\u0430 \u043e\u0441\u0438 X}\r\n line(630,240,610,245);\r\n line(320,10,315,30); {\u0441\u0442\u0440\u0435\u043b\u043a\u0438 \u043d\u0430 \u043e\u0441\u0438 Y}\r\n line(320,10,325,30);\r\n t:=0;\r\n while t<=2*pi do\r\n begin\r\n x:=b*sqr(cos(t))*cos(t); {\u0440\u0430\u0441\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u043f\u043e \u0444\u043e\u0440\u043c\u0443\u043b\u0435 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0442\u043e-\u0447\u0435\u043a}\r\n y:=b*sqr(sin(t))*sin(t);\r\n x:=320+x; y:=240+y; {\u0440\u0438\u0441\u0443\u0435\u043c \u0432 \u0446\u0435\u043d\u0442\u0440\u0435 \u044d\u043a\u0440\u0430\u043d\u0430}\r\n {\u0440\u0438\u0441\u0443\u0435\u043c \u0442\u043e\u0447\u043a\u0443 \u0441 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u0430\u043c\u0438 x, y}\r\n putpixel(round(x),round(y),random(15)); t:=t+0.001;\r\n end;\r\n repeat until keypressed;\r\n closegraph;\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[600,13],"tags":[599,611],"class_list":["post-2411","post","type-post","status-publish","format-standard","hentry","category-programming","category-education","tag-pascal","tag-graficheskijj-rezhim"],"_links":{"self":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2411"}],"collection":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/comments?post=2411"}],"version-history":[{"count":0,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2411\/revisions"}],"wp:attachment":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/media?parent=2411"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/categories?post=2411"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/tags?post=2411"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}