Графика

Circle
SetColor
FloodFill
SetFilStyle
Line 
SetLineStyle
OutTextXY

program Laba_23;
uses Graph, crt;
var
   GraphDriver,
   GraphMode,
   ErrorCode:Integer;
procedure Init__Graph;
begin
   GraphDriver:=Detect;
   initgraph (GraphDriver, graphmode,'C:\BG');
   ErrorCode:=GraphResult;
    if ErrorCode <> grOK then
    begin
        writeln ('ERROR', GraphErrorMsg (ErrorCode));
        readln;
        Halt(1)
      end;
end;
 
Begin
   Init__Graph;
   setcolor (blue);
   setlinestyle (DasHedLn,0, thickWidth);
   setfillStyle (10,green);
   rectangle (140,0,500,240);
   floodfill (10,10, blue);
   setcolor (red);
   setlinestyle (solidln, 0, thickwidth);
   setfillStyle (solidFill, red);
   ellipse (320,120,10,380,135,78);
   floodfill (320,100, red);
   setcolor (white);
   OutTextXY (225,110,'!!!manchester United!!!');
   OutTextXY (225,130,'!!!manchester United!!!');
   TextColor(red+blink);
   OutTextXY(70,290,'!!! Manchester United the best football club in the wolrd !!!');
   readln;
   CloseGraph;
end.

var x,y:integer;
begin
x:=0;
initgraph(x,y,'');
setbkcolor(15);
x:=getmaxX div 2;
y:=getmaxY div 2;
{ножки}
setlinestyle(0,0,1);
setcolor(6);
line(x-50,y+140,x-60,y+200);
line(x-40,y+140,x-50,y+200);
line(x-50,y+200,x-60,y+200);
line(x-50,y+140,x-40,y+140);
setfillstyle(1,6);
floodfill(x-50,y+180,6);
line(x+50,y+140,x+60,y+200);
line(x+40,y+140,x+50,y+200);
line(x+50,y+200,x+60,y+200);
line(x+50,y+140,x+40,y+140);
setfillstyle(1,6);
floodfill(x+50,y+180,6);
setfillstyle(1,6);
fillellipse(x,y-140,40,40);
{шляпка}
setcolor(6);
circle(x,y-140,40);
setfillstyle(1,7);
fillellipse(x,y,150,150);
{циферблат}
setlinestyle(0,0,3);
setcolor(4);
circle(x,y,150);
{стрелки}
setfillstyle(1,6);
bar(x-5,y-5,x+110,y+5);
bar(x-5,y-90,x+5,y+5);
{цифры}
setcolor(6);
settextstyle(0,0,2);
outtextXY(x-15,y-145,'12');
outtextXY(x+135,y-10,'3');
outtextXY(x,y+133,'6');
outtextXY(x-145,y,'9');
readln
end.