запись дроби)) Help, перевод из десятичной в правильную Опции

[Катюха]

народ! help! )))) как перевести дробь из десятичной в правильную и чтоб была несократимой (чтобы числитель и знаменатель были простыми натуральными числами)

[Altair]

я не старался.... и время 3.49 .... я еще не спал

const
 eps=0.000001;
var
 r:real;
 z,d,ch,m:integer;
 dt:real;
 i,nod:integer;

function max(a,b:integer):integer;
begin
 if a > b then max := a else max := b;
end;
begin
 readln( r );
 z := trunc( r );
 dt := r-z; m := 1;
 while abs(dt-trunc(dt)) > eps do begin dt := dt * 10; m := m * 10; end;
 d := trunc( dt );
 ch := m*z+d;
 {ñîêðàùàåì}
 for i := 1 to max(ch,m) do if (ch mod i=0) and (m mod i=0) then nod:=i;
 ch:=ch div nod; m:=m div nod;
 writeln(ch,'/',m);
end.

Сообщение отредактировано: Oleg_Z - 13.07.2005 9:46