Закрасить треугольник,используя 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-2m,y-6m,x+2m,y-5m); setcolor(11); setfillstyle(1,11); bar(x-3m,y-12m,x+3m,y-6m); 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-8m,x+m,y-7m); 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.3m),trunc(0.3m),trunc(0.3m)); setcolor(4); setfillstyle(1,4); line(x-2m,y-12m,x,y-15m); {здесь setcolor(4); setfillstyle(1,4); line(x,y-15m,x+2m,y-12m); {и здесь мне надо закрасить треуголник putpixel(x,y-3m,0); putpixel(x,y,0); putpixel(x,y+3m,0); putpixel(trunc(x-1.5m),y-11m,14); putpixel(trunc(x+1.5m),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 > 400); closegraph; end. никак не могу закрасить треугольник,все время закрашивает и внутри и снаружи.

206

261

Посмотреть ответы 2

Ответы на вопрос:

paveldol2007

Информатика

4,4(84 оценок)

{пример программы для процедуры floodfill } uses graph,crt; var gd, gm : integer; begin gd: =detect; initgraph(gd, gm, ''); if graphresult < > 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) устанавливает текущий цвет,

Манипуляция

Информатика

4,8(56 оценок)

(4096*64)=262144; 262144/8/16=2048 vrode tak

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.