Курсовая работа: Доведення теоретико-математичних тотожностей і тверджень

repeat

if pa[i]<pb[j] then begin k:=k+1; pC[K]:=pa[i]; i:=i+1; end

else begin if pa[i]=pb[j] then

begin i:=i+1; j:=j+1; end

else j:=j+1; end;

until (i>pn1)or(j>pn2);

if (i<pn1)and(j>pn2) then

begin for l:=i to pn1 do

begin k:=k+1; pc[k]:=pa[l]; end;

end;

if k=0 then

begin

write(' A={'); for i:=1 to pn1 do write(pa[i]:3); writeln('}');

write(' B={'); for i:=1 to pn2 do write(pb[i]:3); writeln('}');

write(' C={'); for i:=1 to k do write(pc[i]:3); writeln('}');

end

else

begin

write(' A={'); for i:=1 to pn1 do write(pa[i]:3); writeln('}');

write(' B={'); for i:=1 to pn2 do write(pb[i]:3); writeln('}');

write(' C={'); for i:=1 to k do write(pc[i]:3); writeln('}');

end;

pk:=k;

readln;

readln;

end; Procedure PERET(Var pa:ar;Var pb:ar;Var pc:ar;Var pn1, pn2,pk:integer); {вхід:A,B; вихід C}{програма для перетину множин}

{const n=10; m=7;}

var

i,j,k,l:integer;