Matematické Fórum

Skrytý text:
program Delsper;

{$APPTYPE CONSOLE}

uses
  SysUtils{, StrUtils};

var m,n,i,zbytek,cislo,j,m1,n1,p,q,dva,pet,deset,kr:integer;
  zakl,des,per:string;
  pole:array[1..2000] of string;
  hotovo:boolean;

begin
  WriteLn('---------------------- Program deleni s periodou ------------------------');
  WriteLn;
  Write('Zadej dve prirozena cisla z intervalu <1,1000>, oddelena mezerou: ');
  Read(n);
  Read(m);
  hotovo := false;
  i := 0;
  cislo := n div m;
  zbytek := n mod m;
  Writeln;
  if zbytek=0 then
    WriteLn(cislo)
  else
  begin
    Write(cislo,DecimalSeparator);
    while (hotovo=false)and(i<=2000) do
    begin
      Inc(i);
      cislo := zbytek*10;
      Str(cislo div m,pole[i]);
      zbytek := cislo mod m;
      if zbytek=0 then
        hotovo := true;
    end;
    if i<6 then
    begin
      for j := 1 to i do
        Write(pole[j]);
      WriteLn;
    end
    else
    begin
      p := 0; q := 0;
      m1 := n; n1 := m;
      while m1 mod 2=0 do
      begin
        m1 := m1 div 2;
        p := p+1;
      end;
      while n1 mod 2=0 do
      begin
        n1 := n1 div 2;
        q := q+1;
      end;
      if q-p>0 then
        dva := q-p
      else
        dva := 0;
      if p>q then
        kr := q
      else
        kr := p;
      m1 := n; n1 := m;
      for i := 1 to kr do
      begin
        m1 := m1 div 2;
        n1 := n1 div 2;
      end;

      p := 0; q := 0;
      while m1 mod 5=0 do
      begin
        m1 := m1 div 5;
        p := p+1;
      end;
      for i := 1 to p do
        m1 := 5*m1;
      while n1 mod 5=0 do
      begin
        n1 := n1 div 5;
        q := q+1;
      end;
      for i := 1 to q do
        n1 := 5*n1;
      if q-p>0 then
        pet := q-p
      else
        pet := 0;
      if p>q then
        kr := q
      else
        kr := p;
      for i := 1 to kr do
      begin
        m1 := m1 div 5;
        n1 := n1 div 5;
      end;

      p := 0; q := 0;
      while m1 mod 10=0 do
      begin
        m1 := m1 div 10;
        p := p+1;
      end;
      for i := 1 to p do
        m1 := 10*m1;
      while n1 mod 10=0 do
      begin
        n1 := n1 div 10;
        q := q+1;
      end;
      for i := 1 to q do
        n1 := 10*n1;
      if q-p>0 then
        deset := q-p
      else
        deset := 0;
      p := dva+pet-deset;

      zakl := '';
      des := '';
      for i := 1 to p do
        zakl := zakl+pole[i];
      for i := p+1 to 1999 do
        des := des+pole[i];
      if Length(des)>0 then
      begin
        i := 2;
        while Copy(des,1,i)<>Copy(des,1+i,i) do
          i := i+1;
        per := '('+Copy(des,1,i)+')';
        if Length(per)=4 then
          if per[2]=per[3] then
            per := '('+per[2]+')';
        WriteLn(zakl,per);
      end;
    end;
  end;
  ReadLn;
  ReadLn;
end.