Нарисовать рекурсию треугольники

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

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

Нужно нарисовать фигуру рекурсией

@ZX Spectrum-128 · 29.03.2018, 08:49

@Puporev · 29.03.2018, 09:36

Чтобы по ссылке рисовало с внутренними треугольниками, в код нужно добавить

Pascal

{рисуем уменьшенные треугольники}
 MoveTo(xx1,yy1);
 LineTo(xx3,yy3);
 LineTo(xx2,yy2);
 trg(xx1,yy1,xx3,yy3,xx2,yy2,k-1); //вычисляем новые координаты
 trg(xx3,yy3,xx2,yy2,xx1,yy1,k-1);
 trg(xx2,yy2,xx1,yy1,xx3,yy3,k-1);  //ВОТ ЭТУ СТРОКУ
 trg(x1,y1,xx1,yy1,round((2*x1+x3)/3),round((2*y1+y3)/3),k-1);
 trg(x2,y2,xx2,yy2,round((2*x2+x3)/3),round((2*y2+y3)/3),k-1);

И счет лучше начинать с 1
строка 6

Pascal

1 2	if k>1 then begin

@Alina17 1 / 1 / 0 Регистрация: 06.10.2017 Сообщений: 37
		1
	Нарисовать рекурсию треугольники 28.03.2018, 15:41. Показов 1999. Ответов 2 Метки нет (Все метки) Нужно нарисовать фигуру рекурсией Изображения 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	29.03.2018, 08:49	2
	Нарисовать треугольники в PascslABC 0

	29.03.2018, 09:36

Нарисовать рекурсию треугольники

Решение