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

Posted by obzor under Delphi

Есть ли такой исходник, который будет сокращать дроби типа: 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;

тема на форуме

Случайные статьи

• Как сделать экспорт ветки реестра?
• Рассылка. Выпуск 138
• Считывание данных с Com-порта
• Псевдопараллельное выполнение процедур (Потоки)
• Как открыть свойства обозревателя программно?
• БПФ. Практика использования
• Как сделать что бы в определеное время выполнялось определеное действие?
• Запретить удаление процесса
• Как сделать снимок memo поля в программе
• Специфическое удаление строк в Memo