Нарисовать фигуру

@Слава+ · Регистрация: 14.02.2012

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

необходимо нарисовать картинку... без заливок и прочего...
Сори за Paint...

@Puporev · 20.02.2012, 15:46

Фиг поймешь что за натюрморт...

Pascal

uses graph;
var x1,y1,x2,y2,w,h,i,j:integer;
begin
initgraph(w,h,'');
x1:=100;
y1:=120;
x2:=getmaxX-x1;
y2:=getmaxY-30;
rectangle(x1,y1,x2,y2);
h:=y1 div 4;
rectangle(x1+h,y1+h,x2-h,y2-h);
w:=(x2-x1) div 6;
y1:=y1-2*h;
for i:=1 to 2 do
for j:=1 to 6 do
if((i=2)and(j<6))or((i=1)and(j mod 2=0)) then
rectangle(x1+(j-1)*w,y1+(i-1)*h,x1+j*w,y1+i*h);
readln
end.

@Слава+ · 20.02.2012, 16:20 **[ТС]**

А можно как-нибудь попроще? я просто половину не знаю...

@Puporev · 20.02.2012, 16:27

Можно. Определи координаты левых верхних и правых нижних вершин прямоугольников и рисуй их 10 раз процедурой rectangle, но это уж сам.

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

Сообщение от Слава+

я просто половину не знаю...

Не начнешь сам писать программы и что-то читать, так и не будешь ничего понимать.

@Слава+ · 20.02.2012, 16:35 **[ТС]**

хорошо)

@Слава+ 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 11
		1
	Нарисовать фигуру 20.02.2012, 14:45. Показов 1393. Ответов 4 Метки нет (Все метки) необходимо нарисовать картинку... без заливок и прочего... Сори за Paint... Миниатюры 0

@Слава+ 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 11
	20.02.2012, 16:20 [ТС]	3
	А можно как-нибудь попроще? я просто половину не знаю... 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.02.2012, 16:27	4
	Можно. Определи координаты левых верхних и правых нижних вершин прямоугольников и рисуй их 10 раз процедурой rectangle, но это уж сам. Добавлено через 1 минуту Сообщение от Слава+ я просто половину не знаю... Не начнешь сам писать программы и что-то читать, так и не будешь ничего понимать. 1

@Слава+ 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 11
	20.02.2012, 16:35 [ТС]	5
	хорошо) 0

Опции темы