0.14 = 14/100
Puedes partir de ahi y despues tratar de encontrar la minima expresión de ese número fraccionario...
ten en cuenta que 0.14 asi sin mas decimales no da exactamente 1/7 por lo que la minima expresión de 14/100 no es precisamente 1/7 sino algo así como 7/50
El algoritmo es simple se trata de encontrar el maximo comun divisor de ambos operadores y obtener la división de ambos...aqui mas o menos como lo simplificarias a partir de 2 cajas de edición con el numerador y el denominador:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var a, b, mcd, mcm, tmp, resto: INTEGER;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
tmp := a;
mcd := b;
repeat
resto := tmp mod mcd;
if resto <> 0
then begin
tmp := mcd;
mcd := resto;
end;
until resto = 0;
mcm := a * b div mcd;
Edit1.Text := IntToStr(A div mcd);
Edit2.Text := IntToStr(b div mcd);
end;
Saludos