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

Program GSA; { ЋваЁж ­ЁҐ Є®­мо­ЄжЁЁ: not ( x and y ) =not x or not y}
             { ‡ Є®­ „Ґ Њ®аЈ ­   }
Uses Crt,graph;
Var driver,mode:integer;{ „«п Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ }
    err:integer;        { Љ®¤ ®иЁЎЄЁ ЇаЁ Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ }
    x,y:Boolean;        { ЏҐаҐ¬Ґ­­лҐ ¤«п ®аЈ ­Ё§ жЁЁ жЁЄ«  Ё ўлў®¤  в Ў«Ёжл }
    i,k:Integer;        { ЏҐаҐ¬Ґ­­лҐ ¤«п ®аЈ ­Ё§лжЁЁ жЁЄ«®ў }
    st:string[11];      { ‚Ї®¬®Ј вҐ«м­ п бва®Є  }
    c:char;             { ‘Ё¬ў®«м­ п ЇҐаҐ¬Ґ­­ п ¤«п ®Їа®б  Є« ўЁ вгал }
BEGIN
         { €­ЁжЁ «Ё§ жЁп Ја дЁЄЁ }
driver:=0;
initgraph(driver,mode,'c:\BPASKAL\bgi');
err:=graphresult;
if err<>0 then begin
               writeln('ЋиЁЎЄ  Ја дЁЄЁ : ',grapherrormsg(err));
               halt;
               end;
        { ђЁб㥬 и ЇЄг }
cleardevice;
setcolor(2);
for i:=0 to 7 do begin
                 setcolor(2);
                 if i<6 then line(0,i*40,getmaxx-2,i*40);
                 if i<3 then setcolor(red);
                 line(i*91,0,i*91,200);
                 end;
setcolor(white);
outtextxy(40,20,'X');
outtextxy(132,20,'Y');
outtextxy(200 ,20,'X and Y');
outtextxy(280,20,'not(XandY)');
outtextxy(390,20,'not X');
outtextxy(485,20,'not Y');
outtextxy(553,20,'notXorNotY');
       { ђЁб㥬 ⥫® }
k:=60;
     For x:=false To true Do
      For y:=false To true Do Begin
                              if x then st:='1' else st:='0';
                              outtextxy(40,k,st);
                              if y then st:='1' else st:='0';
                              outtextxy(131,k,st);
                              if (x And y) then st:='1' else st:='0';
                              outtextxy(222,k,st);
                              if (Not(x And y)) then st:='1' else st:='0';
                              outtextxy(313,k,st);
                              if Not x then st:='1' else st:='0';
                              outtextxy(404,k,st);
                              if Not y then st:='1' else st:='0';
                              outtextxy(495,k,st);
                              if (Not x Or Not y) then st:='1' else st:='0';
                              outtextxy(586,k,st);
                              k:=k+40;
                              End;
setcolor(3);
outtextxy(150,220,'„ЂЌЌЂџ ’ЂЃ‹€–Ђ „ЋЉЂ‡›‚Ђ…’ ‡ЂЉЋЌ „… ЊЋђѓЂЌЂ');
outtextxy(120,240,'Ћ’ђ€–ЂЌ€… ЉЋЌњћЌЉ–€€: NOT(X AND Y)=NOT X OR NOT Y.');
{ Ћ¦Ё¤ ­ЁҐ ­ ¦ вЁп Їа®ЎҐ«  }
repeat
if keypressed then c:=readkey;
 setcolor(random(14)+1);
outtextxy(200,getmaxy-8,'Ќ ¦¬ЁвҐ Їа®ЎҐ« ¤«п ‚›•Ћ„Ђ !');
 delay(100);
until c=#32;
END.