Версия для печати темы

Автор: pan 16.11.2008 23:12

нарисовал рисунок в паскале

program z1;
uses graph;
var driver,mode:integer;
begin
driver:=detect; initgraph(driver,mode, 'C:\TP\BGI');
setcolor(white);
setbkcolor(black);
rectangle(200,200,400,300);
rectangle(100,150,200,300);
rectangle(120,170,180,220);
circle(200,326,25);
circle(350,326,25);
readln;
closegraph;
end.

Проблема заключается в том что я немогу закрасить колёса!!! Пож-та подскажите как это сделать!!!


Эскизы прикрепленных изображений

Автор: volvo 16.11.2008 23:38

Использовать FillEllipse (закрашенный эллипс) вместо Circle (окружности):

...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...

Автор: pan 16.11.2008 23:43

Цитата(volvo @ 16.11.2008 19:38)

...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...