Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нет, параллелограмм заштрихованный - это очень трудно. Не возьмусь. Всё, что могу предложить - это такой вариант:
Код:
Uses Graph, CRT;
BEGIN
InitGraph(..);{ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ}
SetFillStyle(SlashFill,White);
SetLineStyle(SolidLn,0,ThickWidth);
Line(0,240,280,240);
Line(140,0,140,480);
Bar(20,20,120,220);
Rectangle(20,20,120,220);
Rectangle(160,20,260,220);
Line(210,20,210,220);
Line(20,310,120,310);
Circle(70,310,50);
Bar(410,140,510,340);
Ellipse(460,140,0,360,50,25);
Ellipse(460,340,180,360,50,25);
Line(410,140,410,340);
Line(510,140,510,340);
SetLineStyle(DashedLn,0,NormWidth);
Line(20,220,20,360);
Line(120,220,120,360);
Line(120,20,160,20);
Line(120,220,160,220);
Line(20,260,140,260);
Line(20,360,140,360);
Line(160,220,160,240);
Line(260,220,260,240);
Line(120,310,140,310);
Line(210,220,210,240);
Arc(140,240,270,360,20);
Arc(140,240,270,360,120);
Arc(140,240,270,360,70);
ReadKey;
CloseGraph;
END.
|