![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Sensitive |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 132 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Задача такая:
Постоить фигуру и изменять стиль заполнения и цвет контурных линий случайным образом. Фигуру построила, а как изменять цвет линий и стиль заполнения не могу разобраться... uses crt,Graph;
var a:array[1..4] of PointType;
i:byte;
Procedure treug;
const x:array[1..3] of integer=(300,620,20);
y:array[1..3] of integer=(100,400,400);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
Procedure treug1;
const x:array[1..3] of integer=(300,340,260);
y:array[1..3] of integer=(150,190,190);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
Procedure treug2;
const x:array[1..3] of integer=(400,440,360);
y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
Procedure treug3;
const x:array[1..3] of integer=(200,240,160);
y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
begin
init;{инициализация граф. режима}
treug;
treug1;
treug2;
treug3;
readln;
end.
Заполнение должно производиться как показано на рисунке.(рисунок прилагается). Помогите пожалуйста. Эскизы прикрепленных изображений ![]() |
![]() ![]() |
Sensitive |
![]()
Сообщение
#2
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 132 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Спасибо большое. С FillPoly всё сделала. Очень Вам благодарна!
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 10:35 |