Программирование / Лабораторные / ЭВТ-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.