11.06.2014, 14:07 | #1 (permalink) |
Новичок
Регистрация: 05.06.2014
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна блок-схема по этому коду
uses crt, graph; var gd,gm:integer; begin gd:=detect; initgraph(gd,gm, 'c:\tp7\bgi'); cleardevice; SetFillStyle(HatchFill,6); SetColor(6); FillEllipse(320,360,80,80); SetFillStyle(EmptyFill,0); FillEllipse(320,350,40,60); SetFillStyle(HatchFill,6); FillEllipse(320,245,40,40); FillEllipse(170,400,80,10); SetFillStyle(SolidFill,white); FillEllipse(305,245,10,15); FillEllipse(335,245,10,15); SetFillStyle(EmptyFill,0); FillEllipse(305,245,6,10); FillEllipse(335,245,6,10); SetColor(white); SetLineStyle(SolidLn, 0, ThickWidth); MoveTo(320,255); LineTo(312,265); LineTo(328,265); LineTo(320,255); LineTo(320,265); Line(315,265,270,265); Line(315,265,270,255); Line(315,265,270,275); Line(325,265,380,265); Line(325,265,380,255); Line(325,265,380,275); SetColor(6); MoveTo(280,230); LineTo(290,180); LineTo(300,210); LineTo(280,230); MoveTo(360,230); LineTo(350,180); LineTo(340,210); LineTo(360,230); Repeat Until KeyPressed; ReadKey; closegraph; end. |
11.06.2014, 14:07 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Темы с похожим содержанием могут помочь вам решить проблему Нужна блок-схема по этому коду Если кто может, пожалуйста, нарисуйте блок схему по моему коду |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|