Текст задания
Написать программу, которая выводит на экран изображение заданного графического объекта (с соблюдением заданной цветовой гаммы).
Исходный код программы
Program Lab4; Uses crt, graph; var xc, yc, gd, gm,r: integer; begin Write ('PA3MEP PucyHKA:'); Readln(r); gd:=detect; initgraph (gd, gm, 'c:\Tp7\bgi'); if Graphresult<>0 then begin write ('Graphic Error:',grapherrormsg (graphresult)); halt; end; xc:=getmaxx div 2; yc:=getmaxy div 2; setfillstyle(1,6); Bar (xc-3*r, yc-3*r, xc+3*r,yc+3*r); setcolor(0); moveto(xc+3*r,yc+3*r); lineto(xc+3*r,yc-3*r); lineto(xc-3*r,yc-3*r); lineto(xc-3*r,yc+3*r); lineto(xc+3*r,yc+3*r); moveto(xc+r,yc-2*r); lineto(xc+r,yc+2*r); lineto(xc-r,yc+2*r); lineto(xc-r,yc-2*r); lineto(xc+r,yc-2*r); line (xc,yc-2*r,xc,yc+2*r); line (xc,yc-r,xc+r,yc-r); setcolor(green); line(xc-4*r,yc-2*r,xc,yc-6*r); line(xc,yc-6*r,xc+4*r,yc-2*r); readln; closegraph; end.