Модуль CRT: Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников

@Елена Погодина · Регистрация: 23.10.2010

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

Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета.

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

Сообщение от Елена Погодина

Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета.

Помогите пожалуйста нарисовать,а то я с graftom вообще никогда не встречалась

@ChameleoN · 30.11.2010, 20:22

лови

Pascal

uses graph,crt;
var
gd,gm,i,x,y,a,s : integer;
st : string;
begin
gd :=detect;
initgraph(gd,gm,'c:\tp7\bgi');
x :=200; y :=200;
s :=100; a :=104;
for i := 1 to 5 do
begin
setcolor(i);
rectangle(x+s,y+s,x-s,y-s);
str(i,st);
outtextxy(a,a,st);
s := s+20;
a :=a-20;
end;
readln;
end.

Добавлено через 5 часов 10 минут
crt не обязательно, эт я просто так его пихнул по привычке

@Елена Погодина · 01.12.2010, 16:07 **[ТС]**

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

лови

Pascal

uses graph,crt;
var
gd,gm,i,x,y,a,s : integer;
st : string;
begin
gd :=detect;
initgraph(gd,gm,'c:\tp7\bgi');
x :=200; y :=200;
s :=100; a :=104;
for i := 1 to 5 do
begin
setcolor(i);
rectangle(x+s,y+s,x-s,y-s);
str(i,st);
outtextxy(a,a,st);
s := s+20;
a :=a-20;
end;
readln;
end.

Добавлено через 5 часов 10 минут
crt не обязательно, эт я просто так его пихнул по привычке

Чтото не работает???

@ChameleoN · 01.12.2010, 16:08

все работает!

@Black Fregat · 01.12.2010, 19:15

Елена Погодина, в строке 7 исправьте путь

@ChameleoN · 01.12.2010, 19:22

ну, я не ясновидящий, не знаю где у кого модуля лежат

@Елена Погодина 4 / 4 / 1 Регистрация: 23.10.2010 Сообщений: 161
		1
	Модуль CRT: Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников 29.11.2010, 15:37. Показов 2107. Ответов 5 Метки нет (Все метки) Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета. Добавлено через 19 часов 40 минут Сообщение от Елена Погодина Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета. Помогите пожалуйста нарисовать,а то я с graftom вообще никогда не встречалась 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	01.12.2010, 16:08	4
	все работает! 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	01.12.2010, 19:15	5
	Елена Погодина, в строке 7 исправьте путь 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	01.12.2010, 19:22	6
	ну, я не ясновидящий, не знаю где у кого модуля лежат 1