| Haku | Дата: Понедельник, 07.04.2008, 18:50 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Надо чтобы получился такой рисунок . если кому по силам решите пожалуйста.
Где заштрихованные квадраты они должны быть закрашены.И квадраты должны быть вместе чтобы не было промежутков. [ ]
[//][ ][//]
[ ] Добавлено (07.04.2008, 11:50)
---------------------------------------------
Рисунок малость сдвинулся он должен быть плюсом(+) ,
[ ]
[//][ ][//]
[ ]
|
| |
| |
| Pavel | Дата: Вторник, 08.04.2008, 09:44 | Сообщение # 2 |
 Приближенный
Группа: Модераторы
Сообщений: 210
Статус: Offline
| Вот два варианта решения:
Один, где линии рисуются линиями, а второй, где плюс рисуется прямоугольниками.
Code uses graph, crt;
var
gm, gd: integer;
begin
initgraph(gd, gm, 'C:\tp7\bgi');
line(100, 0, 200, 0);
line(200, 0, 200, 300);
line(100, 300, 200, 300);
line(100, 0, 100, 300);
line(0, 100, 300, 100);
line(0, 200, 300, 200);
line(300, 100, 300, 200);
line(0, 100, 0, 200);
setfillstyle(solidfill, 13);
FloodFill(10, 110, white);
floodfill(210, 110, white);
readkey;
closegraph;
end.
2-ой:
Code uses graph, crt;
var
gm, gd: integer;
begin
initgraph(gd, gm, 'C:\tp7\bgi');
rectangle(100, 0, 200, 300);
rectangle(0, 100, 300, 200);
setfillstyle(solidfill, 13);
FloodFill(10, 110, white);
floodfill(210, 110, white);
readkey;
closegraph;
end. |
| |
| |
