помогите закрасить треугольник,используя floodfillКод:program AnimROB;uses crt, graph;var

Помогите закрасить треугольник,используя floodfillКод:
program AnimROB;
uses crt, graph;
var grDriver, grMode: integer;

var x, y, m: integer;

procedure robot(x, y, m: integer);
begin
setcolor(9); setfillstyle(1,9); bar(x - 4 * m, y - 5 * m, x + 4 * m, y + 5 * m);setbkcolor(0);
setcolor(9); setfillstyle(1,9); bar(x - 2 * m, y - 5 * m, x - 2 * m, y - 6 * m);
setcolor(9); setfillstyle(1,9); bar(x + 2 * m, y - 5 * m, x + 2 * m, y - 6 * m);
setcolor(9); setfillstyle(1,9); bar(x-2*m,y-6*m,x+2*m,y-5*m);
setcolor(11);setfillstyle(1,11); bar(x-3*m,y-12*m,x+3*m,y-6*m);
setcolor(8); setfillstyle(1,8); fillellipse(trunc(x - 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
setcolor(8); setfillstyle(1,8); fillellipse(trunc(x + 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
setcolor(5); setfillstyle(1,5); line(x - 4 * m, y - 5 * m, x - 7 * m, y + m);
setcolor(5); setfillstyle(1,5); line(x + 4 * m, y - 5 * m, x + 7 * m, y + m);
setcolor(9); setfillstyle(1,9); bar(x - 3 * m,y + 5 * m, x - m,y + 10 * m);
setcolor(9); setfillstyle(1,9); bar(x + m,y + 5 * m, x + 3 * m,y + 10 * m);
setcolor(12); setfillstyle(1,12);bar(x-m,y-8*m,x+m,y-7*m);
setcolor(11); setfillstyle(1,11); bar(x - 3 * m, y - 10 * m, x - 4 * m, y - 7 * m);
setcolor(11); setfillstyle(1,11); bar(x + 3 * m, y - 10 * m, x + 4 * m, y - 7 * m);
setcolor(4); setfillstyle(1,4); fillellipse(x,trunc(y-9.3*m),trunc(0.3*m),trunc(0.3*m));
setcolor(4); setfillstyle(1,4); line(x-2*m,y-12*m,x,y-15*m);здесь
setcolor(4); setfillstyle(1,4); line(x,y-15*m,x+2*m,y-12*m);и тут мне надобно закрасить треуголник
putpixel(x,y-3*m,0);
putpixel(x,y,0);
putpixel(x,y+3*m,0);
putpixel(trunc(x-1.5*m),y-11*m,14);
putpixel(trunc(x+1.5*m),y-11*m,14);
end;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, '');
x := 180;
y := 280;
m := 10;
repeat
robot(x, y, m);
Delay(1000);
x := x + 4;
ClearDevice;
until (x gt; 400);
closegraph;
end.

Никак не могу закрасить треугольник,все время закрашивает и внутри и снаружи.Помогите пожалуйста.

Задать свой вопрос
1 ответ
Пример программы для процедуры FloodFill  
Uses Graph,Crt; 
Var Gd, Gm : Integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd, Gm, ''); 
If GraphResult lt;gt; grOk Then Halt(1); 
SetColor(GetMaxColor); 
Circle(50, 50, 20); 
FloodFill(50, 50, GetMaxColor); 
Readkey; 
CloseGraph; 
End. 

Procedure FloodFill(X, Y : Integer; Border : Word); 
Закрашивает замкнутую область, используя текущие стиль и цвет закраски. 

Procedure SetFillStyle(Pattern : Word; Color : Word); 
Устанавливает цвет и стиль закраски. 

Procedure SetColor(Color : Word) 
устанавливает текущий цвет, 
Александра Ляльченко
PROGRAM ZD;Uses graphabc;Begin setwindowsize(640,480); clearwindow(clWhite);
Альбина
setpenstyle(pssolid);
Sveta Gerbovickaja
В комментариях выше я написала программу, которая закрашивает треугольник Random цветом
Костян Полюбезьев
К раскаянию поначалу не отыскала,где вы написали.Но затем отыскала,но закрашивает все равно все.
Валерка Лемзиков
а для вас, что необходимо закрашивать?
Владислав Анреев
вы правильно поняли,мне надо треугольник закрасить,у которого координаты -setcolor(4); setfillstyle(1,4); line(x-2*m,y-12*m,x,y-15*m);-вот координатыsetcolor(4); setfillstyle(1,4); line(x,y-15*m,x+2*m,y-12*m);И мне надо закрасить этот треугольник внутри.
Vera Bahtenkova
а что я не так делаю (просто измени мои координаты)
Константин Кудрашов
Да нет вы может так делаете,но я изменяю под свои и у меня закрашивает треугольник и весь экран.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт