Лабораторные работы_2 / LAB4 / LAB4

{ЋЇҐа жЁЁ ­ ¤ ¬­®¦Ґбвў ¬Ё}
program Lab4_Zaharov;
uses crt;
const R=ord('z')-ord('a');
type Mas=array[1..100] of char;
     Letter='a'..'z';
     TSet=set of letter;
     LogicMas=array [1..100] of boolean;
var  A,B,C,D : TSet;
     la,lb,lc,ld,ld1,ld2,ld3,i,j,con : integer;  p:char;
     fa,fb,fc : text;
     fl : boolean;
     Aarray,Barray,Carray,Darray,D1array,D2array,D3array : Mas;
     ALog,BLog,CLog,DLog,D1Log,D2Log,D3Log : LogicMas;

{Џа®жҐ¤га . ‚ў®¤ ¤ ­­ле Ё§ ⥪бв®ў®Ј® д ©«  Ё д®а¬Ёа®ў ­ЁҐ ¬ ббЁў  Ё ¬­®¦Ґбвў }
procedure VVOD (var f : text; var X : TSet; var Xarray : MAS; var lx : integer; num : char);
var  ch : char;
     i  : integer;
begin
     assign (f,'G:\LAB4\LAB4IN'+num+'.txt');
     reset (f);
     lx:=0;
     while not eof(f) do
     begin
          read (f,ch);
          X:=X+[ch];
          lx:=lx+1;
          Xarray[lx]:=ch;
     end;
     close (f);
end;

    Procedure WriteSet(X:TSet);
    Var a,b,i:integer;
    Begin
         a:=ord('a');
         b:=ord('z');
         For i:=a to b do
             If chr(i) in X then
                Write(chr(i),'  ');
    End;

{Џа®жҐ¤га . ‚лў®¤ ¬­®¦Ґбвў  ­  нЄа ­}
procedure VIVODset (var X : TSet);
begin
     write ('[ ');
     writeSet (X);
     write (']');
     readln;
end;

{Џа®жҐ¤га . ‚лў®¤ ўҐЄв®а  ­  нЄа ­}
procedure VIVODarray (var Xarray : Mas; lx : integer);
var  i : integer;
begin
     write ('[ ');
     for i:=1 to lx do write (Xarray[i],' ');
     write (']');
     readln;
end;

{Џа®жҐ¤га . ‚лў®¤ «®ЈЁзҐбЄ®Ј® ¬ ббЁў }
procedure VIVODarraylog (var Xarray : LogicMas; lx : integer);
var  i : integer;
begin
     write ('[ ');
     for i:=1 to lx do
         if Xarray[i]=true
         then write (chr(i+ord('a')-1),' ');
     write (']');
     readln;
end;

{Џа®жҐ¤га . ”®а¬Ёа®ў ­ЁҐ ўҐЄв®а  Ё§ ¬­®¦Ґбвў }
procedure SetToArray (X : TSet; lx : integer; Var Xarray : Mas);
var i:char;
begin
     lx:=0;
     for i:='a' to 'z' do
         if i in X then
         begin
              lx:=lx+1;
              Xarray[lx]:=i;
         end;
end;

{ѓ‹Ђ‚ЌЂџ ЏђЋѓђЂЊЊЂ}
begin
     repeat
           clrscr;
           textcolor (lightgray);
           writeln;
           writeln ('               ‹ Ў®а в®а­ п а Ў®в  # 4');
           writeln ('              ЋЇҐа жЁЁ ­ ¤ ¬­®¦Ґбвў ¬Ё.');
           writeln;
           VVOD (fa,A,Aarray,la,'1');
           VVOD (fb,B,Barray,lb,'2');
           VVOD (fc,C,Carray,lc,'3');
           textcolor (lightblue);
           writeln;
           writeln ('ђҐ «Ё§ жЁп ¬­®¦Ґбвў  бЇ®б®Ў®¬ 1:');
           textcolor (lightgray);
           D:=(A-B)+(B-A)-C;
           write ('Њ­®¦Ґбвў® Ђ   --> '); VIVODset (A);
           write ('Њ­®¦Ґбвў® B   --> '); VIVODset (B);
           write ('Њ­®¦Ґбвў® C   --> '); VIVODset (C);
           write ('Њ­®¦Ґбвў® D   --> '); VIVODset (D);
           textcolor (lightblue);
           writeln;
           writeln ('ђҐ «Ё§ жЁп ¬­®¦Ґбвў  бЇ®б®Ў®¬ 2a:');
           textcolor (lightgray);
           {ЋЎа Ў®вЄ  ¤ ­­ле}
           {D1:=A-B}
           ld1:=1;
           for i:=1 to la do
           begin
                fl:=true;
                for j:=1 to lb do
                    if Aarray[i]=Barray[j]
                       then fl:=false;
                if fl=true then begin D1array[ld1]:=Aarray[i]; ld1:=ld1+1; end;
           end;
           ld1:=ld1-1;
           write ('‚ҐЄв®а D1=A-B   --> '); VIVODarray (D1array,ld1);
           {D2:=B-A}
           ld2:=1;
           for i:=1 to lb do
           begin
                fl:=true;
                for j:=1 to la do
                    if Barray[i]=Aarray[j]
                       then fl:=false;
                if fl=true then begin D2array[ld2]:=Barray[i]; ld2:=ld2+1; end;
           end;
           ld2:=ld2-1;
           write ('‚ҐЄв®а D2=B-A   --> '); VIVODarray (D2array,ld2);
           {D3:=D1+D2}
           for i:=1 to ld1 do D3array[i]:=D1array[i];
           ld3:=ld1;

           for j:=1 to ld2 do
           begin
                fl:=true;
                for i:=1 to ld1 do
                    if D3array[i]=D2array[j]
                       then fl:=false;
                if fl=true then begin ld3:=ld3+1; D3array[ld3]:=D2array[j]; end;
           end;
           write ('‚ҐЄв®а D3=D1+D2 --> '); VIVODarray (D3array,ld3);
           {D:=D3-C}
           ld:=1;
           for i:=1 to ld3 do
           begin
                fl:=true;
                for j:=1 to lc do
                    if D3array[i]=Carray[j]
                       then fl:=false;
                if fl=true then begin Darray[ld]:=D3array[i]; ld:=ld+1; end;
           end;
           ld:=ld-1;
           write ('‚ҐЄв®а D=D3-C   --> ');  VIVODarray (Darray,ld);
           {‘Ї®б®Ў 2Ў}
           {”®а¬Ёа®ў ­ЁҐ "зЁбвле" ¬ ббЁў®ў Ђ,B,‘ Ё D}
           textcolor (lightblue);
           writeln;
           writeln ('ђҐ «Ё§ жЁп ¬­®¦Ґбвў  бЇ®б®Ў®¬ 2Ў:');
           textcolor (lightgray);
           For i:=1 to R do
           begin
                    ALog[i]:=false;
                    BLog[i]:=false;
                    CLog[i]:=false;
                    DLog[i]:=false;
           end;
           {‡ Ї®«­Ґ­ЁҐ ¬ ббЁў®ў}
           for p:='a' to 'z' do
               if p in A then ALog[ord(p)-ord('a')+1]:=true;
           for p:='a' to 'z' do
               if p in B then BLog[ord(p)-ord('a')+1]:=true;
           for p:='a' to 'z' do
               if p in C then CLog[ord(p)-ord('a')+1]:=true;
           {ЋЎа Ў®вЄ  ¤ ­­ле}
           {D1:=A-B}
           for i:=1 to 26 do
               if (ALog[i]=true) and (BLog[i]=false)
               then D1Log[i]:=true
               else D1Log[i]:=false;
           {D2:=B-A}
           for i:=1 to 26 do
               if (BLog[i]=true) and (ALog[i]=false)
               then D2Log[i]:=true
               else D2Log[i]:=false;
           {D3:=D1+D2}
           for i:=1 to 26 do
               D3Log[i]:=D1Log[i] or D2Log[i];
           {D:=D3-C}
           for i:=1 to 26 do
               if (D3Log[i]=true) and (CLog[i]=false)
               then DLog[i]:=true
               else DLog[i]:=false;
           write ('Њ­®¦Ґбвў® Ђ   --> '); VIVODarraylog (ALog,26);
           write ('Њ­®¦Ґбвў® B   --> '); VIVODarraylog (BLog,26);
           write ('Њ­®¦Ґбвў® C   --> '); VIVODarraylog (CLog,26);
           write ('Њ­®¦Ґбвў® D   --> '); VIVODarraylog (DLog,26);
           readln;
           clrscr;
           writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln;
           textcolor (red);
           writeln ('             Џ®ўв®аЁвм Їа®Ја ¬¬г? (¤  - «оЎ п Є« ўЁи , ­Ґв - n/N)');
           p:=readkey;
           textcolor (lightgray);
     until (p='n') or (p='N');
End.