Модули/алгоритмы сокращения дроби

[DarkPower]

Вот интересно, есть ли модули сокращения дроби?

Есть ли такой модуль/исходник, который будет сокращать дроби типа: 2/3*3.
Я создал программу для подсчета, но она считает с небольшой ошибкой, так как она сначала делит 2/3=0,666(6)и потом умножает на 3, ну в общем суть понятно думаю...

И конечный результат отличается от правильно примерно на 3780-3720=60...

[min@y™]

а какая у тебя дробь считается несократимой? числитель и знаменатель которой – целые числа, не имеющие общего делителя?

[DarkPower]

Сообщение от min@y™

а какая у тебя дробь считается несократимой? числитель и знаменатель которой – целые числа, не имеющие общего делителя?

2 целых любых (отрицательные/положительные/0) числа (числитель и знаменатель).

[Аватар]

2/3*3

где в такой записи сокращаемая дробь?

[Pavia]

Находишь наибольшее общее кратное(НОД) делителя и знаменателя.
Есть такой алгоритм, алгоритм Евклида называется.

function gcd(a, b):
    while b <> 0 do
       begin
       t := b;
       b := a mod b;
       a := t;
       end;
    Result:= a;

Далее делишь числитель и знаменатель на НОД.

R.P:=R.P div GCD_Result;
R.Q:=R.Q div GCD_Result;

[northener]

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

Вот интересно, есть ли модули сокращения дроби?

Есть ли такой модуль/исходник, который будет сокращать дроби типа: 2/3*3.
Я создал программу для подсчета, но она считает с небольшой ошибкой, так как она сначала делит 2/3=0,666(6)и потом умножает на 3, ну в общем суть понятно думаю...

И конечный результат отличается от правильно примерно на 3780-3720=60...

Покажи что ты создал. И мы ответим в чём ты не прав.
P.S. Хотя на 90% я и так знаю в чём проблема. В неверном выборе типа вещественных переменных.

[DarkPower]

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

Покажи что ты создал. И мы ответим в чём ты не прав.
P.S. Хотя на 90% я и так знаю в чём проблема. В неверном выборе типа вещественных переменных.

http://pastebin.com/dQ3sruje Это основная процедура подсчета

[Utkin]

где в такой записи сокращаемая дробь?

Наверно 2/3 и 3/1 умножаются

[DarkPower]

m:=m-Ail*Akj/n; double
это без дроби.
Для дроби я могу сделать как стринг. И разделить например "/", отправлять стринг в процедуру, которая возвращает тип и с 2-ух целых чисел (числитель/знаменатель).
m:=m-Ail*Akj/n; то есть тут может быть соответственно:
(2/3)-(1/3)*(4/1)/(3/8)

[northener]

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

http://pastebin.com/dQ3sruje Это основная процедура подсчета

А почему double, а не Extended?