Курсовая работа: Алгоритмизация и программирование на языке Паскаль

Line (24*dx,8*dy,25*dx,11*dy);

Line (25*dx,11*dy,24*dx,11*dy);

Line (24*dx,11*dy,23*dx,9*dy);

Line (23*dx,9*dy,23*dx,11*dy);

Line (22*dx,11*dy,23*dx,11*dy);

Line (22*dx,5*dy,22*dx,11*dy);

FloodFill { PutPixel} (23*dx,8*dy,Color);

{О}

SetFillStyle (6,Blue);

Circle (27*dx,8*dy,10);

FillEllipse (27*dx,8*dy,20,40);

FloodFill { PutPixel} (27*dx,7*dy,Color);

{В}

SetFillStyle (4,Green);

Line (30*dx,5*dy,30*dx,11*dy);

Circle (31*dx+dx2,6*dy,7);

Circle (31*dx+dx2,9*dy,9);

Arc (31*dx, 6*dy+dy2, 330, 125, 25);

Arc (31*dx+dx2, 9*dy+dy2, 225, 64, 30);

FloodFill {PutPixel} (32*dx,10*dy,Color);

ReadKey;

CloseGraph;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');

end.

Результат выводимый на дисплей:

Список используемой литературы: