Помощь - Поиск - Пользователи - Календарь
Полная версия: Графика
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
pan
нарисовал рисунок в паскале

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
Использовать FillEllipse (закрашенный эллипс) вместо Circle (окружности):
...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...
pan
Цитата(volvo @ 16.11.2008 19:38) *

Использовать FillEllipse (закрашенный эллипс) вместо Circle (окружности):
...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...


все получилось, спасибо большое smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.