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

GraphDriver := Detect;

GraphMode := 0; {640x480x16}

InitGraph (GraphDriver, GraphMode, 'C:\Pascal\Bp\Bgi');

if GraphResult <> grOk then Halt (1);

{начинаем рисовать}

dx := GetMaxXdiv 40;

dy := GetMaxY div 35;

dx2 := dx div 2;

dy2 := dy div 2;

Color := White;

SetColor (Color);

SetFillStyle (1,Color);

{Cкобки}

Bar (2*dx,2*dy,6*dx,3*dy);

Bar (2*dx,2*dy,3*dx,6*dy);

Bar (35*dx,10*dy,36*dx,13*dy);

Bar (32*dx,14*dy,36*dx,13*dy);

{-----}

{К}

SetFillStyle (7,green);

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

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

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

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

Line (8*dx,4*dy,7*dx,4*dy);

Line (8*dx,4*dy,5*dx+dx2,8*dy);

Line (5*dx+dx2,8*dy,8*dx,11*dy);

Line (8*dx,11*dy,7*dx,11*dy);

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