Нарисовать уголок на черном фоне

@teliale · Регистрация: 03.12.2012

Author24 — интернет-сервис помощи студентам

помогите нарисовать пожалуйста!

@teliale · 12.03.2013, 13:37 **[ТС]**

только она перевернутая немного

@Puporev · 12.03.2013, 17:35

Сообщение от teliale

Только она перевернутая немного

В какую сторону?

Добавлено через 1 час 6 минут

Pascal

uses graphABC;
var x0,y0,i:integer;
begin
setwindowsize(500,500);
x0:=50;
y0:=windowheight-50;
setpenwidth(2);
line(x0,60,x0,y0);
line(x0,y0,windowwidth-60,y0);
setpenwidth(1);
line(x0,50,x0-5,60);
line(x0,50,x0+5,60);
line(x0-5,60,x0+5,60);
floodfill(x0,55,clBlack);
line(windowwidth-50,y0,windowwidth-60,y0-5);
line(windowwidth-50,y0,windowwidth-60,y0+5);
line(windowwidth-60,y0+5,windowwidth-60,y0-5);
floodfill(windowwidth-55,y0,clBlack);
setpencolor(clGray);
for i:=1 to 6 do
 begin
  line(x0+60*i,y0,x0+60*i,y0-360);
  line(x0,y0-60*i,x0+360,y0-60*i)
 end;
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(x0+60,y0-300,x0+120,y0-60);
rectangle(x0+120,y0-120,x0+300,y0-60);
rectangle(x0+180,y0-300,x0+300,y0-180);
end.

@teliale 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 11
		1
	Нарисовать уголок на черном фоне 12.03.2013, 13:36. Показов 2298. Ответов 2 Метки нет (Все метки) помогите нарисовать пожалуйста! Миниатюры 0

@teliale 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 11
	12.03.2013, 13:37 [ТС]	2
	только она перевернутая немного 0

	12.03.2013, 17:35

Нарисовать уголок на черном фоне

Решение