745 / Л.Р.№7 / Lab7

Program LAB_7;
  uses crt;
  const x1=(*250*)'0100000001101111010000000000000000000000000000000000000000000000';
        x2=(*050*)'1100000001001001000000000000000000000000000000000000000000000000';
  var a,b:string(*DOUBLE*);

  procedure SUM(b:string; var c:string;n:integer);
    var j,r:integer;
  begin
    r:=0;
    for j:=n downto 1 do
      begin
        if ord(b[j])+ord(c[j])-96+r>1 then
          begin
            if ord(b[j])+ord(c[j])-96+r>2 then c[j]:='1'
              else c[j]:='0';
            r:=1;
          end
          else
            begin
             if ord(b[j])+ord(c[j])-96+r=1 then c[j]:='1'
                else c[j]:='0';
              r:=0;
            end;
      end;
  end;

  Function DOD(b:string):string;
    var i:integer;
        a:string;
  Begin
    a:=b;
    i:=length(a);
    while a[i]<>'1' do dec(i);
    for i:=i-1 downto 1 do if a[i]='0' then a[i]:='1'
      else a[i]:='0';
    DOD:=a;
  end;

  Function Division(a,b:string):String;
    var i:integer;
        a1,b1,m1,M:string;
  begin
    m:='';
    if a[1]=b[1] then m1:='0'
      else m1:='1';
    (*A*)  a1:=copy(a,2,11);
           delete(a,2,11);
           insert('01',a,2);
           a[1]:='0';
    (*B*)    b1:=copy(b,2,11);
             delete(b,2,11);
             insert('01',b,2);
             b[1]:='0';
    SUM(dod(b1),a1,11);
    delete(a1,1,3);
    SUM('01111111',a1,8);
    Sum(dod(b),a,55);
    while a[1]<>'0' do
      begin
        delete(a,1,1);
        a:=concat(a,'0');
        Sum('11111111',a1,8);
        SUM(b,a,55);
      end;
    while length(m)<22 do
      begin
        delete(a,2,1);
        a:=concat(a,'0');
        if a[1]='0' then Sum(dod(b),a,55)
          else Sum(b,a,55);
        If a[1]='0' then m:=concat(m,'1')
          else m:=concat(m,'0');
      end;
    Division:=concat(m1,a1,m);
  end;

Begin
clrscr;
  a:=x1;
  b:=x2;
  Writeln(a);
  Writeln(b);
  Writeln(Division(a,b));
readkey;
End.