Геометрические преобразования на плоскости

@Tyrbo · Регистрация: 23.10.2010

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

Построить изображение флажка и применив к нему преобразования поворота и переноса получить композицию из флажков

@Puporev · 12.05.2011, 14:28

Можно так.

Pascal

uses graph;
procedure Flag(a,x,y,c,u:integer);
var p:array[1..6] of pointtype;
    r,up:real;
    i:integer;
begin
p[1].x:=x;p[1].y:=y;
r:=a*sin(pi/4);
up:=(u+45)*pi/180;
for i:=2 to 5 do
 begin
  p[i].x:=x+round(r*cos(up));
  p[i].y:=y-round(r*sin(up));
  up:=up+pi/2;
 end;
p[6].x:=p[1].x;p[6].y:=p[1].y;
setcolor(c);
setfillstyle(1,c);
fillpoly(6,p);
end;
 
var d,a,xc,yc,x,y,i:integer;
    r:real;
begin
x:=0;
initgraph(x,y,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
d:=40;
r:=d*cos(pi/8)/sin(pi/8)/2+d div 2;
a:=0;
for i:=1 to 8 do
 begin
  x:=xc+round(r*cos(a*pi/180));
  y:=yc-round(r*sin(a*pi/180));
  Flag(d,x,y,i+1,a);
  a:=a+45;
 end;
readln
end.

@Tyrbo 2 / 2 / 2 Регистрация: 23.10.2010 Сообщений: 53
		1
	Геометрические преобразования на плоскости 12.05.2011, 13:25. Показов 1905. Ответов 1 Метки нет (Все метки) Построить изображение флажка и применив к нему преобразования поворота и переноса получить композицию из флажков Миниатюры 0

	12.05.2011, 14:28

Геометрические преобразования на плоскости

Решение