Из Repeat сделать рекурсию

@Linkolnnn · Регистрация: 26.07.2016

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

Здравствуйте, дано код на PascalABC.NET, в нет есть цикл repeat - until, нужно переделать программу на рекурсию, но вот как сделать я не пойму... Подскажите пожалуйста, буду очень благодарен.
P.S.Программа рисует фрактал Ресслера

Pascal

uses crt, graphABC;
var x, y, z, dt, a, b, c, x1, y1, z1: real;
    x2, y2: integer;
begin
   x := 3.051522;
   y := 1.582542;
   z := 15.62388;
   dt := 0.0001;
   a := 0.2;
   b := 0.2;
   c := 5.7;
repeat
      x1 := x + (-y-z)*dt;
      y1 := y + (x+a*y)*dt;
      z1 := z + (b+z*(x-c))*dt;
      x := x1;
      y := y1;
      z := z1;
      putpixel(round(19.3*(y - x*0.292893) + 320), round(-11*(z + x*0.292893) + 392), clBlack);
   until keypressed;
end.

@volvo · 03.04.2018, 18:38

Сообщение от Linkolnnn

нужно переделать программу на рекурсию

Плохая идея. Как такового цикла - нет, есть цикл "от забора и до обеда", то есть, пока пользователь не нажмет клавишу, чтобы прервать построение. А это поведет за собой бесконечную (очень глубокую) рекурсию.

Написать, конечно, можно, но скорее всего программа просто вылетит с переполнением стека.

@Puporev · 03.04.2018, 19:26

Сообщение от volvo

Написать, конечно, можно, но скорее всего программа просто вылетит с переполнением стека

Попробовал, рисует штук 100 пикселелей и вылетает.

@volvo Супер-модератор 32986 / 21294 / 8178 Регистрация: 22.10.2011 Сообщений: 36,580 Записей в блоге: 8
	03.04.2018, 18:38	2
	Сообщение от Linkolnnn нужно переделать программу на рекурсию Плохая идея. Как такового цикла - нет, есть цикл "от забора и до обеда", то есть, пока пользователь не нажмет клавишу, чтобы прервать построение. А это поведет за собой бесконечную (очень глубокую) рекурсию. Написать, конечно, можно, но скорее всего программа просто вылетит с переполнением стека. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.04.2018, 19:26	3
	Сообщение от volvo Написать, конечно, можно, но скорее всего программа просто вылетит с переполнением стека Попробовал, рисует штук 100 пикселелей и вылетает. 0

Опции темы