Графика - Паскаль, Turbo Pascal, PascalABC.NET

Машенька · 19.04.2009, 16:19

мне нужно нарисовать окно, в нём люстру, всё сделала кроме неё.
Безымянный.jpg должно получиться примерно так.
помогите програмку дописать
uses crt,GraphABC;
begin
ClrScr;
SetPenColor(clPurple); {цвет контура}
SetBrushColor(clgray); {цвет закраски}
Rectangle(30,30,600,380);
SetPenColor(clPurple);{цвет контура}
Line (200,30,200,380);
SetPenColor(clPurple);{цвет контура}
Line (30,170,200,170);
Line (400,30,400,90);
end.

Ntlegend · 19.04.2009, 17:30

ну а дальше нада нарисовать еще одну линию.. полукруг и овал.. в чом тут проблема??

Машенька · 19.04.2009, 17:38

да я просто тупанула немножко, точнее множко

как сделать то

19.04.2009, 16:19	#1
Машенька Регистрация: 18.04.2009 Сообщений: 5	Графика мне нужно нарисовать окно, в нём люстру, всё сделала кроме неё. Безымянный.jpg должно получиться примерно так. помогите програмку дописать uses crt,GraphABC; begin ClrScr; SetPenColor(clPurple); {цвет контура} SetBrushColor(clgray); {цвет закраски} Rectangle(30,30,600,380); SetPenColor(clPurple);{цвет контура} Line (200,30,200,380); SetPenColor(clPurple);{цвет контура} Line (30,170,200,170); Line (400,30,400,90); end. уфффффки Последний раз редактировалось Машенька; 19.04.2009 в 16:21.

19.04.2009, 17:30	#2
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	ну а дальше нада нарисовать еще одну линию.. полукруг и овал.. в чом тут проблема?? Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

19.04.2009, 17:38	#3
Машенька Регистрация: 18.04.2009 Сообщений: 5	да я просто тупанула немножко, точнее множко как сделать то уфффффки

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Графика в С++	Grizzzli	Помощь студентам	7	14.03.2012 23:16
графика	MariyaVo	Помощь студентам	3	06.04.2009 19:37
Графика в си	Scate	Помощь студентам	6	25.11.2008 23:31
Графика С++	kommunist	Общие вопросы C/C++	6	14.01.2008 15:21