дроби, перевести дробь Опции

[Bard]

Помогите мне перевести обычную дробь в десятичную ...вот кое что есть.

var
ar:array[1..2000]of integer;
a,c,d,b:longint;
begin
readln(a);readln(b);
repeat
inc(d);
if a>b then begin ar[d]:=a div b; a:=a mod b; end;
a:=a*10;
until (a=0) or (d=2000);
for c:=1 to 2000 do 
write(ar[c]);
end;
end.

но эта прога не определяет место запятой и если есть повторяющиеся числа после запятой то их не записывает в таком виде:

1/3=0.(3)
2/3=0.(6)
1/7=0.(142857) и т.д

Большое спс за ранее...

[volvo]

Вот этого я не понял...

Я вот так делал:

Спойлер (Показать/Скрыть)

const
  p = 10;

var
  ar: array[1 .. 2000] of integer;
  a, c, d, b: longint;

  period: string;
  i, j, k, m, n: integer;
  found: boolean;

begin
  // readln(a);readln(b);
  a := 7; b := 30;

  period := '';
  m := a; n := b; k := 1;
  while(k <= n) or (j <> m) do begin

    if k = n then j := m;
    i := p*m div n;
    m := p*m mod n;
    if k >= n then begin
      period := period + chr(ord('0') + i);
    end;
    inc(k);

  end;
  writeln(period);

  repeat
    inc(d);
    if a>b then begin
      ar[d]:=a div b; a:=a mod b;

      if period <> '0' then begin

        found := true;
        for i := 1 to length(period) do begin
          if d - i + 1 > 0 then begin
            if chr(ar[d - i + 1] + ord('0')) <> period[length(period) - i + 1] then begin
              found := false; break;
            end
          end
          else found := false;
        end;

        if found then begin
          dec(d, length(period));
          break;
        end;

      end;
    end;
    a := a * p;
  until (a = 0) or (d = 2000);

  for c := 1 to d do begin

    write(ar[c]);
    if c = 1 then write('.');

  end;
  if found then writeln('(' + period + ')');

end.