мне задали построить вид школы сверху.
Код:
Program pr1;
uses CRT,graph;
var
gd,gm:integer;
a,b,s: integer;
begin
clrscr;
gd:=0;
initgraph(gd, gm,'c:\tp7\bgi');
setbkcolor(6); {korichneviy fon}
{zdanie}
setcolor(7);{tsvet kontura linii}
line(140,220,275,220);
line(140,400,580,400);
line(140,400,140,220);
line(580,400,580,280);
line(465,280,580,280);
line(465,330,465,280);
line(465,330,275,330);
line(275,330,275,220);
setfillstyle(9,7); {1-bIo parametr eto tip zakrashivania, 2-oi eto tsvet zakrashivaniya}
floodfill(200,300,7);floodfill(200,300,7);{1,2 parametri eto koordinatbI tochki prinadlezhei figure}
setcolor(7);{begovaya dorozhka}
rectangle(90,35,530,205);
setfillstyle(1,7);
floodfill(92,40,7);
setcolor(2);{gazon polya}
rectangle(120,60,500,180);
setfillstyle(11,2);
floodfill(123,175,2);
{cxema futbolnogo polya}
setcolor(15);
line(310,60,310,180); {srednyaya liniya polya}
{levaya} {pravaya}
line(120,80,187,80); line(500,80,450,80);
line(120,160,187,160); line(450,80,450,160);
line(187,80,187,160); line(450,160,500,160);
line(120,100,150,100); line(500,140,470,140);
line(120,140,150,140); line(500,100,470,100);
line(150,100,150,140); line(470,100,470,140);
line(108,130,108,110); line(500,110,512,110);
line(108,110,120,110); line(512,110,512,130);
line(108,130,120,130); line(512,130,500,130);
setcolor(15);
ellipse(310,120,25,380,20,20);
setcolor(1);
line(55,70,60,70);
line(55,73,60,73);
line(55,76,60,76);
line(55,79,60,79);
line(55,82,60,82);
line(55,85,60,85);
line(55,88,60,88);
line(55,70,55,88);
line(60,70,60,88);
setcolor(3);
line(57,95,57,108);
line(57,117,57,128);
setcolor(7);
rectangle(30,290,140,310);
setfillstyle(1,7);
floodfill(52,300,7);
setcolor(1);
rectangle(30,10,630,470);
{kriltso}
setcolor(14);
rectangle(130,290,140,310);
setfillstyle(1,14);
floodfill(131,294,14);
setcolor(14);
rectangle(126,295,134,305);
setfillstyle(1,14);
floodfill(127,300,14);
setcolor(7);
rectangle(285,230,455,320);
setfillstyle(1,7);
floodfill(400,300,7);
setcolor(2);
rectangle(300,250,440,300);
setfillstyle(1,2);
floodfill(352,270,2);
setcolor(2);
circle(150,430,16);
setfillstyle(1,2);
floodfill(152,430,2);
setcolor(2);
circle(230,430,16);
setfillstyle(1,2);
floodfill(230,430,2);
setcolor(2);
circle(270,430,16);
setfillstyle(1,2);
floodfill(270,430,2);
setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);
setcolor(2);
circle(380,430,16);
setfillstyle(1,2);
floodfill(390,430,2);
setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);
setcolor(2);
circle(70,430,16);
setfillstyle(1,2);
floodfill(80,430,2);
setcolor(2); setcolor(2);
circle(70,380,16); circle(580,80,16);
setfillstyle(1,2); setfillstyle(1,2);
floodfill(80,380,2); floodfill(580,80,2);
setcolor(2); setcolor(2);
circle(70,340,16); circle(580,125,16);
setfillstyle(1,2); setfillstyle(1,2);
floodfill(80,340,2); floodfill(580,125,2);
setcolor(2); setcolor(2);
circle(70,268,16); circle(580,170,16);
setfillstyle(1,2); setfillstyle(1,2);
floodfill(80,268,2); floodfill(580,170,2);
setcolor(2); setcolor(2);
circle(70,230,16); circle(580,215,16);
setfillstyle(1,2); setfillstyle(1,2);
floodfill(80,230,2); floodfill(580,215,2);
setcolor(2);
outtextxy(570,450,'-derevo');
setcolor(2);
circle(552,450,16);
setfillstyle(1,2);
floodfill(563,451,2);
readkey;
closegraph;
end.