Как написать код для укорачивание дробей?

[Dinamovec]

Мне задали задачку. Есть кнопка Button1 и две строки Edit1 и Edit2. Edit1 и Edit2 ето числитель и знаменатель. Нужно зделать так, что б при нажатии на кнопку Button1 дробь скорачивался. На пример есть 6/8, после нажатия на Button1 должно выйти 3/4. Моя проблема в том, что я не могу догнать что писать в коде!

[eskander]

к сожалению нет под рукой дельфи, опишу алгоритм на словах:
берете наименьшее из чисел (в вашем примере это 6)
в цикле downto от 6 до 1 делим первое число (6) и второе (8) на 6,5,4,3,2,... соответственно
когда mod первого и mod второго будут равноы нулю - мы нашли наибольший общий делитель, на него и надо разделить первое и второе числа.

[Dinamovec]

Так как я совсем не силен в етом, то мне бы сам код не помешал.
Все что мне нужно зделать, ето прописать ето вот здесь:
http://www.bikeways.com.ua/assets/00...__________.bmp

[Jean-Esther]

Ой, ой, зачем, eskander? Поиск наибольшего общего делителя легко и изящно ведется через алгоритм Эвклида.

[Dinamovec]

Сообщение от Jean-Esther

Ой, ой, зачем, eskander? Поиск наибольшего общего делителя легко и изящно ведется через алгоритм Эвклида.

Да... лазивши в гугле я видел что-то подобное!
http://ru.wikipedia.org/wiki/Алгорит...BA.D0.B6.D0.B5

Но я не знаю что с ним делать!

[Jean-Esther]

 function nod(a, b:longint):longint; 
 begin
  while (a<>0) and (b<>0) do 
  if a >= b then a := a mod b 
            else b := b mod a;  
  nod:=a+b; 
 end;

procedure TForm1.Button6Click(Sender:Tobject);
var a,b,n:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=nod(a,b);
Edit1.Text:=IntToStr(a div n);
Edit2.Text:=IntToStr(b div n);
end;

[Dinamovec]

О! Спасиб, работает! Вот только еще один вопросик: при укорачивении числителя со знаком "+" , а знаменателя со знаком "-" - прога перестает пахать. Что ето?

[eskander]

надо брать значения по модулю ( abs() )

[Dinamovec]

если можешь, то отредактируй пожалуйста код написаный выше!

[Jean-Esther]

 function nod(a, b:longint):longint; 
 begin
  while (a<>0) and (b<>0) do 
  if a >= b then a := a mod b 
            else b := b mod a;  
  nod:=a+b; 
 end;

procedure TForm1.Button6Click(Sender:Tobject);
var a,b,n:integer;
var sign:boolean;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
sign:=true;
if a<0 then sign:=not sign;
if b<0 then sign:=not sign;
a:=abs(a); b:=abs(b);
n:=nod(a,b);
if not sign then Edit1.Text:='-'+IntToStr(a div n);
Edit2.Text:=IntToStr(b div n);
end;