Скачиваний:
283
Добавлен:
04.03.2014
Размер:
2.67 Кб
Скачать
program GRAFIKA;
uses GRAPH;
var gd,gm:integer;
begin
gd:=Detect;
INITGRAPH(gd,gm,'C:\TP\BGI');
{1} setcolor(white);
setfillstyle(1,14);
line(320,20,100,160);
line(320,20,540,160);
line(320,40,135,160);
line(320,40,505,160);
line(100,160,540,160); floodfill(320,30,white);
rectangle(90,160,550,180);floodfill(300,170,white);
setfillstyle(1,13);
floodfill(320,50,white);
rectangle(120,180,520,340);
floodfill(320,185,white);
{2} setfillstyle(1,14);
rectangle(100,340,540,360);floodfill(300,350,white);
rectangle(80,360,560,380); floodfill(300,370,white);
rectangle(60,380,580,400); floodfill(300,390,white);

{3}
line(120,180,520,180);
rectangle(160,200,200,340);line(160,200,200,200);
rectangle(300,200,340,340);line(300,200,340,200);
rectangle(440,200,480,340);line(440,200,480,200);
floodfill(165,205,white);
floodfill(305,205,white);
floodfill(445,205,white);
arc(160,180,180,270,20); arc(200,180,270,360,20);
arc(300,180,180,270,20); arc(340,180,270,360,20);
arc(440,180,180,270,20); arc(480,180,270,360,20);
floodfill(160,185,white);
floodfill(300,185,white);
floodfill(440,185,white);
{4} setfillstyle(1,11);
rectangle(220,240,280,340);floodfill(225,245,white);
line(220,240,280,240); ellipse(250,240,0,180,30,40);floodfill(250,235,white);
rectangle(360,240,420,340);floodfill(365,245,white);
line(360,240,420,240); ellipse(390,240,0,180,30,40);floodfill(390,235,white);
line(250,200,250,340);line(390,200,390,340);
line(220,300,280,300);line(360,300,420,300);
line(250,240,270,210);line(250,240,230,210);
line(390,240,370,210);line(390,240,410,210);
{5} rectangle(270,110,370,150);line(270,110,370,110);
floodfill(275,115,white);
ellipse(320,110,0,180,50,30); floodfill(320,105,white);
line(320,110,290,85);
line(320,110,350,85);
line(320,110,320,80);
line(320,110,320,150);
line(270,130,370,130);
{6} setfillstyle(1,2);
rectangle(1,1,640,480);
line(1,260,120,260);
line(520,260,640,260);
floodfill(22,265,white);
setfillstyle(1,1);
floodfill(2,2,white);
{7} setfillstyle(1,3);
circle(140,430,5); floodfill(143,431,white);
setfillstyle(1,4);
circle(150,430,5);floodfill(151,431,white);
circle(130,430,5);floodfill(131,431,white);
circle(140,440,5);floodfill(141,441,white);
circle(140,420,5);floodfill(141,421,white);
readln;
closegraph;end.
Соседние файлы в папке LENA