Программирование / Лабораторные / ЭВТ-1-Паскаль / LAB_6

Program GSA;
            { ‚뢥бвЁ в Ў«Ёжг ЁбвЁ­­®бвЁ ¤«п § Є®­  ¤Ґ Њ®аЈ ­  }
          { ®ваЁж ­ЁҐ Є®­мо­ЄжЁЁ: not ( x and y ) =not x or not y}
Uses Crt,graph;
Var x,y:Boolean;  { ЏҐаҐ¬Ґ­­лҐ ¤«п ®аЈ ­Ё§ жЁЁ жЁЄ«  Ё ўлў®¤  в Ў«Ёжл }
    i:Integer;              { ЏҐаҐ¬Ґ­­ п ¤«п ®аЈ ­Ё§лжЁЁ жЁЄ«  }
BEGIN
            { ‚뢥бвЁ в Ў«Ёжг ЁбвЁ­­®бвЁ ¤«п § Є®­  ¤Ґ Њ®аЈ ­  }
          { ®ваЁж ­ЁҐ Є®­мо­ЄжЁЁ: not ( x and y ) =not x or not y}

     Clrscr;

           {  ЇЄ  }
     Textcolor(15);
     For i:=1 To 78 Do Write('*');  Writeln;
     Write('*    X     *    Y     *');
     Textcolor(5);  Write('  XandY   ');
     Textcolor(15); Write('*');
     Textcolor(5);  Write('not(XandY)');
     Textcolor(15); Write('*');
     Textcolor(10);  Write('   notX   ');
     Textcolor(15); Write('*');
     Textcolor(10);  Write('   notY   ');
     Textcolor(15); Write('*');
     Textcolor(10);  Write('notXorNotY');
     Textcolor(15); Write('*');  Writeln;
     For i:=1 To 78 Do Write('*');  Writeln;

           { ’Ґ«® }
     For x:=false To true Do
     For y:=false To true Do Begin
                  If x Then Write('*   ',x,'   *')
                       Else Write('*   ',x,'  *');
                  If y Then Write('   ',y,'   *')
                       Else Write('   ',y,'  *');

                  If x And y Then Write('   ',x And y,'   ')
                             Else Write('   ',x And y,'  ');
                  Textcolor(15);  Write('*');  Textcolor(5);
                  If Not(x And y) Then Write('   ',Not(x And y),'   ')
                                  Else Write('   ',Not(x And y),'  ');
                  Textcolor(15);  Write('*');  Textcolor(10);
                  If Not x Then Write('   ',Not x,'   ')
                           Else Write('   ',Not x,'  ');
                  Textcolor(15);  Write('*');  Textcolor(10);
                  If Not y Then Write('   ',Not y,'   ')
                           Else Write('   ',Not y,'  ');
                  Textcolor(15);  Write('*');  Textcolor(10);
                  If Not x Or Not y Then Write('   ',Not x Or Not y,'   ')
                                    Else Write('   ',Not x Or Not y,'  ');
                  Textcolor(15);  Write('*');  Writeln;
                  For i:=1 To 78 Do Write('*'); Writeln
                             End;


     Textcolor(3);       { “бв ­®ўЄ  жўҐв  Ё§®Ўа ¦Ґ­Ёп }
     Writeln('„ЂЌЌЂџ ’ЂЃ‹€–Ђ ‚›‚…„…ЌЂ „‹џ ‡ЂЉЋЌЂ „… ЊЋђѓЂЌЂ');
     Writeln('Ћ’ђ€–ЂЌ€… ЉЋЌњћЌЉ–€€: NOT(X AND Y)=NOT X OR NOT Y.');
     Textcolor(13);      { “бв ­®ўЄ  жўҐв  Ё§®Ўа ¦Ґ­Ёп }
     Writeln('„«п ўл室  Ё§ Їа®Ја ¬¬л ­ ¦¬ЁвҐ «оЎго Є« ўЁиг.');
     Readkey;
END.