745 / Л.Р.№4 / lab4_var_6

PROGRAM LABA_4;
var
a,b,c,d,n,m,i,l,r,e:integer;
s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s_ogo,s_ika,s_cha:string;
procedure zsuv;
var
sa,sb,sc:string;
var
a,b,c,p:integer;
begin
a:=pos('1',s_ogo);
b:=pos('1',s_ika);
b:=b-a;
delete(s_ika,1,b);
for i:=1 to b do
s_ika:=s_ika+'0';
end;
function minus(sa,sb:string):boolean;
var
j,i,k,l,m:integer;
sc,sd:string;
begin
sc:='uuuuuuuuuuuuuuuu';
sd:='0000000000000000';
for j:=length(sa) downto 1 do
begin
if sb[j]='0' then sc[j]:=sa[j]
else
if sa[j]=sb[j] then sc[j]:='0'
else
begin
sc[j]:='1';
k:=j-1;
repeat
if sa[k]='1' then
begin
sa[j]:='1';
sa[k]:='0'; end
else sa[k]:='1';
k:=k-1;
until (sa[j]='1') or (k=0);
end;
end;
s_ogo:=sc;
end;
procedure plus(var s_ogo:string);
var
a,b,c,d,e,i,k:integer;
var
s3,s4,s5:string;
begin
k:=0;
s5:='';
c:=0;
for i:=16 downto 1 do
begin
val(s_ika[i],a,e); val(s_ogo[i],b,e);
c:=a+b+k;
if c= 0 then begin c:=0; k:=0; end else
if c= 1 then begin c:=1; k:=0; end else
if c= 2 then begin c:=0; k:=1; end else
if c= 3 then begin c:=1; k:=1; end;
str(c,s4);
s5:=copy(s4,1,1)+s5;
end;
S3:=COPY(S5,1,16);
s_ogo:=s3;
end;
BeGIN
writeln('vvedite dilene Ta dil`nuk 16 simvolov!!!');
readln(s_ogo);
readln(s_ika);
if length(s_ogo)<> 16 then writeln('error 1');
if length(s_ika)<> 16 then writeln('error 1');
s_cha:='0000000000000000';
s:='0000000000000000';
val(s_ogo[1],l,e); val(s_ika[1],r,e);
writeln(l,r);
s_ika[1]:='0';
s_ogo[1]:='0';
writeln(' Dil`ne Dil`nuk chastka');
write(s_ogo,' | ');
write(s_ika,' | ');
write(s_cha);
writeln;
a:=pos('1',s_ogo);
b:=pos('1',s_ika);
b:=b-a;
n:=b+1;
zsuv;
repeat
writeln;
minus(s_ogo,s_ika);
if s_ogo[1]='1' then
begin
delete(s_cha,1,1);
s_cha:=s_cha+'0';
plus(s_ogo);
delete(s_ika,16,1);
s_ika:='0'+s_ika;
end
else
begin
delete(s_cha,1,1);
s_cha:=s_cha+'1';
delete(s_ika,16,1);
s_ika:='0'+s_ika;
end;
n:=n-1;
until n=0;
if (l=1) or (r=1) then
s_cha[1]:='1';
writeln(s_ogo,' | ',s_ika,' | ',s_cha);
s5:=s_ogo;
s6:=s_ika;
s7:=s_cha;
READLN;
END.