745 / Л.Р.№3 / Lab3_var_7

Uses CRT;
Var s,s1,s2,sz:string;
    z1,z2,z:char;
    i:byte;
Function check:boolean;
         Function check0(s_in:string):boolean;
         Var i_f:integer;
         Begin
              check0:=false;
              For i_f:=1 to 16 do if (s_in[i_f]<>'0') and (s_in[i_f]<>'1') then check0:=true;
         End;
Begin
     If (length(s1)<>16) or (length(s2)<>16) or check0(s1) or check0(s2) then
     Begin
          Textcolor(12); Write('Error in input data!');Textcolor(15);
          Readkey;Halt;
     End;
End;

Function Sum(f1,f2:string;x:byte):string;
         Function bin2dec(in_str:string):longint;
         Var p2to10,q:longint;i_f,str_l:byte;

         Begin
              q:=1;str_l:=length(in_str);p2to10:=0;
              for i_f:=str_l downto 1 do
              Begin
                   p2to10:=p2to10+(ord(in_str[i_f])-ord('0'))*q;
                   q:=q*2;
              End;
              bin2dec:=p2to10;
         End;

         Function dec2bin(in_in:longint):string;
         Var s_tmp,stmp:string;
             mod_x,i_d:byte;
         Begin
              s_tmp:='';
              While (in_in>0) do
              Begin
                   mod_x:=in_in mod 2;
                   Str(mod_x,Stmp);
                   s_tmp:=stmp+s_tmp;
                   in_in:=in_in div 2;
              End;
              if s_tmp='' then s_tmp:='0';
              While length(s_tmp)<x do s_tmp:='0'+s_tmp;
              dec2bin:=s_tmp;
         End;

Begin
     sum:=dec2bin(bin2dec(f2)+bin2dec(f1));
End;

BEGIN
     clrscr; textcolor(15);
     writeln('Enter first number in ordinary code (must contain 16 bits)');
     Readln(s1);
     writeln('Enter second number in ordinary code (must contain 16 bits)');
     Readln(s2);
     Check;
     z1:=s1[1]; z2:=s2[1]; s:='000000000000000000000000000000';
     s1:=copy(s1,2,15)+'000000000000000'; s2:=copy(s2,2,15);
     Writeln('<============= Initial state =============>');
     Writeln('2nd operand  ','               ',s2);
     Writeln('1st operand  ',s1);
     Writeln('Sum          ',s);
     sz:=sum(z1,z2,2);z:=sz[2];
     s2:='0'+s2;
     For i:=1 to 15 do
     Begin
          readkey;
          s2:=copy(s2,2,15)+'0';
          s1:='0'+copy(s1,1,29);
          If s2[1]='1' then s:=SUM(s,s1,30);
          Writeln('<=============    STEP   #',i,'   =============>');
          Writeln('2nd operand  ','              ',s2);
          Writeln('1st operand  ',s1);
          Writeln('Sum          ',s);
     End;
     Textcolor(14);
     Writeln('Final sum=',s);
     Writeln('Sign=',z);
     Textcolor(10);
     s:=SUM(copy(s,1,15),s[16],15);
     Write('Sum=');
     If (z='1') and (s<>'000000000000000') then write('-');
     Write(s[1],'.',Copy(s,2,15));
     readkey;
END.