дали мне задачу про яблоню, а я её решил красиво сдеелать - нарисовать черенок у яблока.
Помучался с проблемлой, решил не тратить время сделал обычные яблоки, но ето меня сильно гложит - не могу до конца разобраться в своей ошибке.
По делу.
Вырезал фрагмент задачи с ябоком.
program garden;
uses crt,graph;
var
gd,gm:integer;
procedure apple;
var c:integer;
begin
if f then c:=4 else c:=10;
setcolor(c);
setfillstyle(1,c);
arc(x,y,180,360,r);
circle(round(x+r/2),y,round(r/2));
circle(round(x-r/2),y,round(r/2));
floodfill(round(x+r/2),y,c);
floodfill(round(x-r/2),y,c);
floodfill(x,round(y+r/2),c);
setcolor(0);
setlinestyle(0,1,2);
line(x,round(y-r/3),round(x+r/5),round(y-r/1.5));
end;
begin
initgraph(gd,gm,'');
setbkcolor(11);
cleardevice;
apple(300,100,6,false);
apple(300,130,10,true);
apple(300,160,16,true);
apple(300,200,20,true);
apple(300,260,25,true);
readkey;
closegraph;
end.
текст из программы вырезал на скорую руку
впринципе всё не важно кроме рисования "черенка"
setcolor(0);
setlinestyle(0,1,2);
line(x,round(y-r/3),round(x+r/5),round(y-r/1.5));
получается прозрачным - цветом фона
я уверен что это одна из невыносимых мелких ошибок, которые ищешь 2 часа, а потом рассказываешь всем, какой болван.