Ellipse(200,200,0,360,30,50); { рисуем дугу эллипса с центром 200,200, начальный угол=0, конечный – 360 (замкнутый,
эллипс радиусами 30,50 }
readln;
Ellipse(300,200,0,180,50,30); {полэллипса }
for Radius:=1 to 5 do
Arc(300,100,0,90,radius*10); {дуги с центром 300,100, от
0 до 90 градусов, радиусами 10,20..50}
Width:=10;
Bar(30,20,50,100); {прямоугольник с координатами 30,20 –
верхний левый угол и 50,100 – нижний правый угол}
for i:=1 to 5 do
Bar(10+i*Width,300+i*10,20+i*Width,400);
{пять прямоугольников: первый 20,310.30,400,
второй 30,320,40,400 и т.д. }
Bar3D(210,300,250,360,10,TopOn); {параллелепипед с крышкой}
x1:=410; y1:=300; x2:=450; y2:=360;
Bar3D(x1,y1,x2,y2,10,TopOff); { параллелепипед без крышки }
CloseGraph; {закрыть Graph}
end
else Halt(1); { режим Graph не удалось открыть. }
End.
Prim 55 рисует в динамике случайно расположенные цветные линии в окне до тех пор, пока не будет нажата клавиша Enter. Затем машина выводит последним случайным цветом главную диагональ окна, после Enter – случайные лучи и после Enter – прямоугольник.
Program Prim55;
Uses CRT,Graph;
var GrDriver,grMode,errCode:integer;
begin grDriver:=Detect;
InitGraph(grDriver,grMode,' ');
errCode:=GraphResult;
if errCode=grOK then
begin Randomize; {запустить генератор случайных чисел}
repeat {рисуются цветные линии в квадрате 500 x 500,
пока не будет нажата любая клавиша, координаты
линий случайны, цвета линий случайны}
SetColor(Random(GetMaxColor)+1);
Line(Random(500),Random(500),Random(500),Random(500));
Delay(1000); {каждая линия рисуется с задержкой}
until KeyPressed;
Cleardevice;
MoveTo(1,2); {перевести курсор}
LineRel(500,500); {провести линию из предыдущей точки в 500,500
последним цветом}
readln; readln;
repeat
LineTo(random(500),random(500)); {провести линию в случайную точку}
Delay(6000);
until KeyPressed; readln;
ClearDevice;
Rectangle(29,29,GetMaxX-29,GetMaxY-29); {прямоугольник}
CloseGraph; end
else Halt(1); end.
Prim56 рисует эллипсы и круги, закрашенные красным цветом.
Program Prim56;
Uses CRT, Graph;
Var grDriver,grMode,errCode:integer;
Begin grDriver:=Detect;
InitGraph(grDriver,grMode, ' ');
errCode:=Graphresult;
Begin SetBkColor(blue);
SetFillStyle(1,4);
FillEllipse(220,150,50,50);
FillEllipse(420,150,50,50);
FillEllipse(320,230,50,130);
FillEllipse(370,405,50,30);
FillEllipse(275,410,50,30);
readln; end
Prim56 рисует обезьяну с тазиком.
Program Prim57;
Uses Graph;
Var i,grDriver,grMode,TrrCode,errCode:integer; x,y:word;
xm,ym,rc,xc,yc,x1,y1,x2,y2,r:word;
k:arccoordsType; kr:array[1..20] of PointType;
Begin grDriver:=detect;
InitGraph(grDriver,grMode,' ' );
begin
x:=150; y:=150;
SetBkColor(white);
{уши}
y1:=y-30; x1:=x-30; x2:=x+40; r:=15;
SetColor(lightred);
SetFillStyle(solidfill,brown);
pieslice(x1,y1,0,360,r);
pieslice(x2,y1,0,360,r);
r:=r-3;
SetFillStyle(solidfill,lightred);
{голова}
r:=(x2-x1) div 2-3;
x1:=x1+r+2;
y1:=y1+2;
xc:=x1;
yc:=y1;
rc:=r;
setColor(brown);
{майка}
SetFillStyle(solidfill,yellow);
y2:=y1+r-3;
x1:=x1-r div 2+2;
ym:=y2;
line(x1-5,y2-5,x1-27,y2+68);
x2:=x1+r+16;
xm:=x2;
line(x2-15,y2-5,x2+27,y2+68);
line(x1-27,y2+68,x2+27,y2+68);
putpixel(x2-22,y2+25,blue);
floodfill(x2-22,y2+25,brown);
{пояс}
setcolor(green);
setfillstyle(solidfill,green);
bar(112,215,214,225);
{штаны}
setcolor(blue);
setfillstyle(solidfill,blue);
kr[1].x:=113; kr[1].y:=223;
kr[2].x:=113; kr[2].y:=270;
kr[3].x:=165; kr[3].y:=270;
kr[4].x:=170; kr[4].y:=260;
kr[5].x:=180; kr[5].y:=270;
kr[6].x:=225; kr[6].y:=270;
kr[7].x:=212; kr[7].y:=223;
kr[8].x:=113; kr[8].y:=223;
fillpoly(8,kr);
{левая нога}
setcolor(brown);
setfillstyle(solidfill,brown);
kr[1].x:=135; kr[1].y:=270;
kr[2].x:=145; kr[2].y:=320;
kr[3].x:=123; kr[3].y:=350;
kr[4].x:=145; kr[4].y:=358;
kr[5].x:=145; kr[5].y:=350;
kr[6].x:=162; kr[6].y:=320;
kr[7].x:=145; kr[7].y:=270;
kr[8].x:=135; kr[8].y:=270;
{правая нога}
kr[1].x:=195; kr[1].y:=270;
kr[2].x:=205; kr[2].y:=320;
kr[3].x:=183; kr[3].y:=350;
kr[4].x:=205; kr[4].y:=358;
kr[5].x:=205; kr[5].y:=350;
kr[6].x:=222; kr[6].y:=320;
kr[7].x:=205; kr[7].y:=270;
kr[8].x:=195; kr[8].y:=270;
{башмаки}
setfillstyle(solidfill,red);
pieslice(160,360,0,360,10);
pieslice(200,370,10,160,20);
pieslice(215,360,0,360,10);
pieslice(142,370,10,160,20);
setfillstyle(solidfill,white);
fillellipse(145,115,5,8);
fillellipse(163,115,5,8);
pieslice(147,115,0,360,3);
pieslice(165,115,0,360,3);
setcolor(yellow);
arc(154,160,30,145,30);
setcolor(red);
setfillstyle(solidfill,lightmagenta);
fillellipse(154,146,5,8);
{бабочка}
kr[1].x:=140; kr[1].y:=153;
kr[2].x:=135; kr[2].y:=163;
kr[3].x:=155; kr[3].y:=158;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26
