Графика: нарисовать узор, образованный вложенными треугольниками

@GETupProgramm · Регистрация: 27.08.2012

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

Для меня это вообще нереальное задание с графикой... надо сделать 2) а)

Добавлено через 8 часов 8 минут
Up Up Up

@Puporev · 04.09.2012, 07:55

Pascal

uses graph;
var gd,gm,a,n,xc,yc,i:integer;
    m,ax,bx,cx,ay,by,cy:real;
begin
gd:=detect;
initgraph(gd,gm,'');
a:=200;
n:=20;
m:=0.08;
{центр экрана}
xc:=getmaxX div 2;
yc:=getmaxY div 2;
{координаты исходного треугольника}
ax:=xc+a*cos(pi/2);
ay:=yc-a*sin(pi/2);
bx:=xc+a*cos(7*pi/6);
by:=yc-a*sin(7*pi/6);
cx:=xc+a*cos(11*pi/6);
cy:=yc-a*sin(11*pi/6);
for i:=1 to n+1 do
 begin
  {строим треугольник}
  line(round(ax),round(ay),round(bx),round(by));
  line(round(bx),round(by),round(cx),round(cy));
  line(round(cx),round(cy),round(ax),round(ay));
  {новые координаты}
  ax:=ax+(bx-ax)*m; ay:=ay+(by-ay)*m;
  bx:=bx+(cx-bx)*m; by:=by+(cy-by)*m;
  cx:=cx+(ax-cx)*m; cy:=cy+(ay-cy)*m;
 end;
readln
end.

@GETupProgramm 0 / 0 / 0 Регистрация: 27.08.2012 Сообщений: 4
		1
	Графика: нарисовать узор, образованный вложенными треугольниками 04.09.2012, 07:10. Показов 1877. Ответов 1 Метки нет (Все метки) Для меня это вообще нереальное задание с графикой... надо сделать 2) а) Добавлено через 8 часов 8 минут Up Up Up 0

	04.09.2012, 07:55

Опции темы

Графика: нарисовать узор, образованный вложенными треугольниками

Решение