Графика в Турбо Паскаль - Turbo Pascal - Ответ 765696

program Fractal;
uses graph;
 
function ttree(rx, ry, d1, d2, count: integer): integer;
var z: integer;
begin
if count=0 then ttree:=0
else
 begin
 z:=random(100);
 if z<=50 then z:=1
 else z:=-1;
 line(rx, ry, rx, (ry-z*d1));
 line((rx-d2),(ry-z*d1),(rx+d2), (ry-z*d1));
 dec(count);
 ttree:=ttree((rx-d2),(ry-z*d1), d1 div 2, d2 div 2, count);
 ttree:=ttree((rx+d2),(ry-z*d1), d1 div 2, d2 div 2, count);
 end;
end;
 
var gd, gm: integer;
begin
gd:=VGA;
gm:=VGAHi;
initgraph(gd,gm,'../bgi');
ttree(300,400,200,90,10);
readln;
end.

uses crt,graph;
var
 i:byte;
 l,h:integer;
 gd,gm:integer;
procedure draw_6(x,y:integer;c:byte);
var tx,ty:array[1..6] of integer;
i:byte;
begin
for i:=1 to 6 do
 begin
  tx[i]:=round(x+75*sin(pi*(i*60-30)/180));
  ty[i]:=round(y+75*cos(pi*(i*60-30)/180))
 end;
 setcolor(c);
for i:=1 to 5 do
 line(tx[i],ty[i],tx[i+1],ty[i+1]);
 line(tx[6],ty[6],tx[1],ty[1]);
 setfillstyle(1,c);
 floodfill(x,y,c);
 floodfill(x+70,y,c);
 floodfill(x,y-h+5,c);
 l:=tx[3]-tx[4];
end;
begin
 gd:=installuserdriver('svga256',nil);
 gm:=2;
 initgraph(gd,gm,'');
for i:=0 to 2 do
 draw_6(65+i*(l+150),65,white);
h:=round(sqrt(75*75-(l/2)*(l/2)));
for i:=0 to 3 do
 draw_6(round(-15-l/2)+i*(l+150)+4-3*(i div 3),65-h,lightgray);
for i:=0 to 3 do
 draw_6(round(-15-l/2)+i*(l+150)+4-3*(i div 3),65+h,darkgray);
for i:=0 to 2 do
 draw_6(65+i*(l+150),65+2*h,lightgray);
for i:=0 to 3 do
 draw_6(round(-15-l/2)+i*(l+150)+4-3*(i div 3),65+3*h,white);
for i:=0 to 2 do
 draw_6(65+i*(l+150),65+4*h,darkgray);
for i:=0 to 3 do
 draw_6(round(-15-l/2)+i*(l+150)+4-3*(i div 3),65+5*h,lightgray);
for i:=0 to 2 do
 draw_6(65+i*(l+150),65+6*h,white);
for i:=0 to 3 do
 draw_6(round(-15-l/2)+i*(l+150)+4-3*(i div 3),65+7*h,darkgray);
 readkey;
end.

uses graph;
procedure Figura(x1,y1,d,m,u,c:integer);
{x1,y1-координаты центра, d-радиус=размер фигуры, 
m-во сколько раз внутренний радиус меньше внешнего
u-начальный угол построения, с-цвет фигуры}
var a,i,d1:integer;
    p:array[1..9] of pointtype;{полигон-массив координат вершин}
begin
d1:=d div m;{внутренний радиус}
a:=u;{}
for i:=1 to 8 do{определяем координаты вершин}
  begin
    if i mod 2=0 then{внешние}
      begin
        p[i].x:=x1+round(d*cos(a*pi/180));{большой радиус}
        p[i].y:=y1-round(d*sin(a*pi/180));
      end
    else{внутренние}
      begin
        p[i].x:=x1+round(d1*cos(a*pi/180));{малый радиус}
        p[i].y:=y1-round(d1*sin(a*pi/180));
      end;
    a:=a+45;{наращиваем угол}
  end;
p[9].x:=p[1].x;{замыкаем полигон}
p[9].y:=p[1].y;
MoveTo(p[1].x,p[1].y);{в первую вершину}
SetColor(c);{выбираем цвет}
for i:=1 to 9 do
LineTo(p[i].x,p[i].y);{соединяем вершины}
Setfillstyle(1,c);{стиль закраски}
floodfill(x1,y1,c);{закрашиваем}
end;
var gd,gm,xc,yc:integer;
begin
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
Figura(xc,yc,120,5,-45,9);{первая фигура}
Figura(xc,yc,80,8,0,1);{вторая, параметры сами подбирайте}
readln
end.