преобразование десятичной дроби в обыкновенную и обратно, Delphi

[ИгорьОК]

Доброго вам времени суток. Пришла к студенту беда страшная - курсовая. Вроде все ее написал, а вот с вот этим действием не могу справиться, нужен калькулятор, который переводил десятичную дробь в обычную и обратно, подскажите пожалуйста как это зделать и если возможно на примерах, ибо в програмировании я пока почти 0.

[RSLoader]

Попробуй этот вариант - вроде, работает:

// Преобразование из десятичной дроби в обычную
// fl - десятичная дробь. Результат - строка
// вида 'm/n', где m - числитель, а n - знаменатель.
function FloatToFrac(fl:Extended):string;
var
  i,f:Extended;
  k,m,n,l,nod:Integer;
  s:string;
begin
  i:=Int(fl); // целая часть
  f:=Frac(fl);// дробная часть
  s:=FloatToStr(f); // отсекаем '0,'
  Delete(s,1,2);
  f:=StrToFloat(s);
  m:=StrToInt(FloatToStr(i*length(FloatToStr(f))*10+f)); // числитель
  n:=Length(FloatToStr(f))*10;                           // знаменатель
  if n>m then k:=m else k:=n;                            // находим НОД и упрощаем дробь
  for l:=1 to k do
  if (n mod l = 0) and (m mod l = 0) then nod:=l;
  m:=m div nod;
  n:=n div nod;
  Result:=IntToStr(m)+'/'+IntToStr(n);
end;
// Преобразование из обычной дроби в десятичную
function FracToFloat(fr:string):Extended;
begin
  // Числитель - это часть строки до / а знаменатель - после.
  // Просто делим числитель на знаменатель
  Result:=StrToFloat(Copy(fr,1,Pos('/',fr)-1)) / StrToFloat(Copy(fr,Pos('/',fr)+1,Length(fr)-Pos('/',fr)));
end;

[ИгорьОК]

а для нахождения НОД, ты использовал алгоритм Эвклида

[RSLoader]

А по-моему нет. Здесь принцип в том, чтобы в цикле l от 1 до k=min(m,n) проверять, является ли l одновременно делителем m и n

[Virtson]

у меня есть алгоритм последовательного уточнения.

случаи
0<|a/b|<=1 и
|a/b|>1 нужно рассматривать отдельно ..

может найду свою реализацию, как повезет %)