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

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

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

{У}

SetFillStyle (2,Yellow);

Line (10*dx,6*dy,9*dx,6*dy);

Line (11*dx,9*dy,10*dx,6*dy);

Line (12*dx,6*dy,11*dx,9*dy);

Line (13*dx,6*dy,12*dx,6*dy);

Line (11*dx,11*dy,13*dx,6*dy);

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

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

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

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

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

{З}

SetFillStyle (5,White);

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

Line (13*dx+dx2,6*dy+dx2,14*dx+dx2,5*dy+dx2);

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

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

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

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

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

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

Line (16*dx+dx2,10*dy+dy2,16*dx,11*dy);

Line (16*dx,11*dy,13*dx+dx2,11*dy);

Line (13*dx+dx2,11*dy,13*dx,10*dy+dy2);

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

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