Период дроби

[Магистраль]

Все в принципе банально до безобразия, но у меня хоть убей не получается..

Задачка проста:

Дана дробь вида 1/n где n- всегда простое число. подобная дробь всегда переодическая. так вот нужно не только высчитать и вывести период этой дроби, но так же нужно посчитать сколько цифр в этом периоде.
язык Delphi, модули используемые не важно какие

Например
1/7 = 0,(142857).. итого шесть цифр периода,
1/3=0,(3).. итого одна цифра периода.

Буду рада помощи..

[OCTAGRAM]

Остаток := 1;
Период := '';
repeat
  Остаток := Остаток * 10;
  Период := Период + IntToStr(Остаток div n);
  Остаток := Остаток mod n;
until Остаток = 1;
ЦифрВПериоде := Length(Период);

WriteLn('1/' + IntToStr(n) + '=0,(' + Период + ')... итого ' + ЦифрВПериоде + ' цифр в периоде');

[Магистраль]

Сообщение от OCTAGRAM

;

спасибо конечно, но это немного не то..
просто если посчитать то 1/7 = 0,142857142857142857142857.. и так далее и на сколько я поняла твой код выведет что то похожее на это...

[Stilet]

Маги, если я правильно тебя понял то тебе нужно вот так:

var r:Extended; m,k,s:string;e,i:integer;
begin
r:=1/7;
s:=FloatToStr(r);
// Для проверки s:='0,142857142857142857142857';
k:=s;
delete(k,1,2);
i:=1; while (i<=length(k) div 2)and(copy(k,1,i)<>copy(k,1+i,i)) do inc(i);
m:=copy(k,1,i);
e:=0; while pos(m,k)<>0 do begin delete(k,1,length(m)); inc(e); end;
caption:=s+'   -   '+copy(s,1,pos(',',s))+'('+m+') '+'кол-во='+Inttostr(e);;
end;

[Plague]

длина периода может быть даже например больше 10000!
extended - не пойдет!

[Stilet]

extended - не пойдет!

Не спорю, но тогда длинную арифметику.
Я просто смысловой пример привел.

[Plague]

если n-простое то дробь почти всегда чисто периодическая (кроме n=2,n=5), предпериод значит вычислять не надо. длина периода равна показателю 10 по модулю знаменателя.

function p(z:longint):longint;
var x,y,k:longint;
begin
  y:=1;
  k:=0;
  if z<>1 then
  repeat
   x:=10*y mod z;
   k:=k+1;
   y:=x;
  until x=1;
  p:=k;
end;
var n,a,b,i:longint;
begin
  read(n);
  a:=10;
  write('0.(');
  for i:=1 to p(n) do
    begin
      b:=a div n;
      write(b);
      a:=(a-b*n)*10;      
    end;
  write(')');
end.

не работает для чисел деляшихся на 2 и(или) на 5.

[Магистраль]

Спасибо огромное))) очень выручили ))