Как сделать чтобы дробь не сокращалась?

[Drizhenko]

Есть цикл, в котором к дроби прибавляется один этаж. В общем цепная дробь. Пытаюсь сделать алгоритм, но дробь соращается. Как сделать чтобы она не скокращалась? Например ввожу: s:=((8*a+a)/a)/a; Отевет: 9/a, А мне нужно просто вывести на экран эту трехэтажную дробь, потом она станет четырехэтажной и т.д.

[aar]

Такое представление дроби называется continued fraction. Смотрите хелп по этим ключевым словам и пакет numtheory.

[Drizhenko]

Спасибо. Функция cfrac() то что нужно. Она мне безусловно пригодится. Но в связи с этим возник такой вопрос:

Код: Выделить всё

W:=(0.4*S^2+0.5*S+0.2)/(0.3*S^4+0.5*S+0.4);
massiv:=cfrac(W, 'quotients');

Получается цепная дробь записанная в форме матрицы или массива. А можно ли совершить обратное преобразование. Т.е. из одномерного массива в цепную дробь?

[aar]

А можно ли совершить обратное преобразование. Т.е. из одномерного массива в цепную дробь?

В хелпе я не вижу такой процедуры, но это несложно самому запрограммировать. Удачи.