Графика

@Noirman · Регистрация: 03.03.2009

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

Нарисовал фигурку, но надо ее закрасить.. Помогите плиз.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt,graph;
var
xc,yc,a,b,x,y,i,gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'C:\DISTRIB\PROGRA~1\TURBOP~1\TURBOP~1\BGI');
setbkcolor(0);
setcolor(10);
xc:=getmaxX div 2;
yc:=getmaxY div 2;
outtextxy(30,7,'Enter A & B A>0 B>0 A>B');
readln(a,b);
 
for i:=1 to 1000 do
begin
x:=round(A*sqr(cos(i))+B*cos(i))+xc;
y:=round(A*(cos(i))*(sin(i))+(B*(sin(i))))+yc;
putpixel(x,y,10);
end;
readln;
closegraph;
end.

@Puporev · 06.05.2009, 21:04

Эту фигуру не закрасть, т. она не имеет границы, поскольку изображена с помощью точек, а не линий.

@Messenger of G. · 06.05.2009, 21:23

фигура задается функцией p(f)=A*cos(f) в координатах (p,f), f — угловая координата.
Автор просит закрасить эту замкнутую фигуру так, чтоб не потерялись основные контуры (а так как вышеприведенная фигура — роза, это условие играет важную роль, границы должны быть видны).
Для комментария к Puporev

Pascal
1
2
3
4
5
6
7
for i:=1 to 1000 do
begin
t:=2*pi*i/1000; {var t:real;}
x:=round(A*sqr(cos(t))+B*cos(t))+xc;
y:=round(A*(cos(t))*(sin(t))+(B*(sin(t))))+yc;
lineto(x,y);
end;

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.05.2009, 21:04
	Эту фигуру не закрасть, т. она не имеет границы, поскольку изображена с помощью точек, а не линий. 0