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

Line (15*dx+dx2,10*dy+dy2,15*dx+dx2,9*dy+dy2);

Line (15*dx+dx2,9*dy+dy2,14*dx+dx2,9*dy);

Line (14*dx+dx2,9*dy,14*dx,8*dy+dy2);

Line (14*dx,8*dy+dy2,14*dx+dx2,8*dy);

Line (14*dx+dx2,8*dy,15*dx+dx2,7*dy+dy2);

Line (15*dx+dx2,7*dy+dy2,15*dx+dx2,6*dy+dy2);

Line (15*dx+dx2,6*dy+dy2,14*dx+dx2,6*dy+dy2);

Line (14*dx+dx2,6*dy+dy2,14*dx,7*dy);

FloodFill { PutPixel} (15*dx,9*dy,Color);

{Ю}

SetFillStyle (9,Magenta);

Line (17*dx,5*dy,18*dx,5*dy);

Line (18*dx,5*dy,18*dx,8*dy);

Line (19*dx,8*dy,18*dx,8*dy);

Line (19*dx,8*dy,19*dx,9*dy);

Line (18*dx,9*dy,19*dx,9*dy);

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

Line (17*dx,11*dy,18*dx,11*dy);

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

{Circle (20*dx,8*dy,7); }

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

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

FloodFill {PutPixel} (18*dx,8*dy+dy2,Color);

{К}

SetFillStyle (9,Red);

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

Line (23*dx,5*dy,23*dx,7*dy);

Line (23*dx,7*dy,24*dx,5*dy);

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