Разработать алгоритм и составить программу для построения на экране изображения

@biken · Регистрация: 06.10.2017

Author24 — интернет-сервис помощи студентам

@Puporev · 06.10.2017, 09:32

Для примера.

Delphi

{$R *.dfm}
procedure trg(x,y,a:integer);
var u,r:real;
    p:array of Tpoint;
    i:integer;
begin
r:=sqrt(3)*a/3;
u:=-pi/4;
setlength(p,4);
for i:=0 to 3 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+2*pi/3;
 end;
with Form1.Canvas do
 begin
  brush.Style:=bsClear;
  polygon(p);
  ellipse(x-round(r),y-round(r),x+round(r),y+round(r));
 end;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var a,n,i,x,y,x1,y1,x2,y2:integer;
    h:real;
begin
a:=100;
n:=5;
x:=100;
y:=100;
h:=sqrt(3)*a/2;
x1:=x-round(h*cos(pi/4));
y1:=y-round(h*sin(pi/4));
for i:=1 to n do
 begin
  trg(x,y,a);
  x:=x+round(h*cos(pi/4));
  y:=y+round(h*sin(pi/4));
 end;
x2:=x;
y2:=y;
with Canvas do
 begin
  Pen.Style:=psDot;
  moveto(x1,y1);lineto(x2,y2);
 end; 
end;

@biken 1 / 1 / 0 Регистрация: 06.10.2017 Сообщений: 1
		1
	Разработать алгоритм и составить программу для построения на экране изображения 06.10.2017, 08:33. Показов 1703. Ответов 1 Метки нет (Все метки) Разработать алгоритм и составить программу для построения на экране изображения 1

	06.10.2017, 09:32

Разработать алгоритм и составить программу для построения на экране изображения

Решение