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

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;

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

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

• Перемещение формы не за заголовок
• Получение всех ссылок со страницы
• Вставка символа Unicode в RichEdit в Delphi 7
• Компонент TImage
• Как на HTML и CSS сделать круглые кнопки?
• Random слов в Memo
• Нужен ли ассемблер программистам?
• Перевести 4-битное число в RGB
• Копирование файлов в делфи
• Как перенести данные из TString в TStringList?