Блок схемка

program logic_calc;
uses crt, mouse, graph;
const esc = #27;
      up = #72;
      down = #80;
var text, s:string;
    size, i, size_ch:integer;
    img, img_ch:pointer;
    dos_a, dos_b:byte;
    t_uper, _lim, lim:integer;
    a, b, c, c_, menu_, num_out_:integer;
 
procedure config_graph;
var dr, mode:integer;
    dir:string;
begin
 getdir(0, dir);
 insert('\bgi\', dir, length(dir)+1);
 dr:=detect;
 initgraph(dr, mode, dir);
 SetColor(red);
 SetTextStyle(3, 0, 1);
end;
 
procedure config_mouse;
begin
 IsMouse;
 InitMouse;
 ShowMouse;
end;
 
procedure circles(x, y, z:integer);
begin
 setcolor(blue);
 circle(x, y, z);
 SetFillStyle(1, blue);
 FloodFill(x, y, blue);
end;
 
procedure pause;
begin
 for i:=1 to 40 do delay(1000);
end;
 
function menu:integer;  
begin
 setcolor(red);
 settextstyle(1, 0, 1);
 OutTextXY(400, 290, '()');
 OutTextXY(400, 310, '()');
 OutTextXY(400, 330, '(bla)');
 OutTextXY(400, 350, '');
 OutTextXY(400, 370, '');
 OutTextXY(400, 390, '*');
 OutTextXY(400, 410, '*');
 s:='';
 if(keypressed = True)then s:=readkey;
 if(s = up)and(_lim <> 1) then begin
   HideMouse;
   putimage(385, t_uper-5, img^, andput);
   t_uper:=t_uper-20;
   circles(390, t_uper, 5);
   _lim:=_lim-1;
   ShowMouse;
   pause;
 end;
 if(s = down)and(_lim < lim) then begin
   HideMouse;
   putimage(385, t_uper-5, img^, andput);
   t_uper:=t_uper+20;
   circles(390, t_uper, 5);
   _lim:=_lim+1;
   ShowMouse;
   pause;
 end;
 menu:=_lim;
end;
 
procedure logic;
begin
 setcolor(red);
 Rectangle(100, 250, 150, 300);
 Rectangle(100, 350, 150, 400);
 Rectangle(250, 300, 300, 350);
 setcolor(green);
 line(150, 275, 200, 275);
 line(150, 375, 200, 375);
 line(200, 275, 200, 375);
 line(200, 325, 250, 325);
 setcolor(red);
 settextstyle(8, 0, 6);
 if(MouseWhereX >= 13)and(MouseWhereX <= 19)and
   (MouseWhereY >= 32)and(MouseWhereY <= 38)and
   (MousePressed = True)
   then begin
  if(a <> 1)then a:=1
  else a:=0;
  HideMouse;
  putimage(101, 251, img_ch^, andput);
  str(a, text);
  OutTextXY(115, 245, text);
  ShowMouse;
  pause;
  dos_a:=1;
 end;
 if(MouseWhereX >= 13)and(MouseWhereX <= 19)and
   (MouseWhereY >= 44)and(MouseWhereY <= 50)and
   (MousePressed = True)
   then begin
  if(b <> 1)then b:=1
  else b:=0;
  HideMouse;
  putimage(101, 351, img_ch^, andput);
  str(b, text);
  OutTextXY(115, 345, text);
  ShowMouse;
  pause;
  dos_b:=1;
 end;
end;
 
procedure Out_log(num_out:integer);
begin
 if(num_out_ <> num_out)then begin
  SetColor(white);
  SetFillStyle(1, white);
  Rectangle(400, 50, 600, 200);
  FloodFill(401, 51, white);
  SetColor(7);
  SetFillStyle(1, 7);
  Rectangle(400, 50, 600, 200);
  FloodFill(401, 51, 7);
  SetColor(red);
  Line(400, 50, 400, 200);
  Line(600, 50, 600, 200);
  Line(400, 50, 600, 50);
  Line(400, 200, 600, 200);
  Line(466, 50, 466, 200);
  Line(532, 50, 532, 200);
  i:=50;
  while i <= 200 do begin
   Line(400, i, 600, i);
   i:=i+30;
  end;
  SetColor(red);
  SetTextStyle(3, 0, 1);
  OutTextXY(425, 55, 'A');
  OutTextXY(491, 55, 'B');
  OutTextXY(540, 55, 'bla');
  num_out_:=num_out;
  case num_out of
   1:begin
    OutTextXY(425, 85,  '0      0      0');
    OutTextXY(425, 115, '0      1      0');
    OutTextXY(425, 145, '1      0      0');
    OutTextXY(425, 175, '1      1      1');
   end;
   2:begin
    OutTextXY(425, 85,  '0      0      0');
    OutTextXY(425, 115, '0      1      1');
    OutTextXY(425, 145, '1      0      1');
    OutTextXY(425, 175, '1      1      1');
   end;
   3:begin
    OutTextXY(425, 85,  '0             1');
    OutTextXY(425, 115, '1             0');
   end;
   4:begin
    OutTextXY(425, 85,  '0      0      1');
    OutTextXY(425, 115, '0      1      1');
    OutTextXY(425, 145, '1      0      0');
    OutTextXY(425, 175, '1      1      1');
   end;
   5:begin
    OutTextXY(425, 85,  '0      0      1');
    OutTextXY(425, 115, '0      1      0');
    OutTextXY(425, 145, '1      0      0');
    OutTextXY(425, 175, '1      1      1');
   end;
   6:begin
    OutTextXY(425, 85,  '0      0      1');
    OutTextXY(425, 115, '0      1      0');
    OutTextXY(425, 145, '1      0      0');
    OutTextXY(425, 175, '1      1      0');
   end;
   7:begin
    OutTextXY(425, 85,  '0      0      1');
    OutTextXY(425, 115, '0      1      1');
    OutTextXY(425, 145, '1      0      1');
    OutTextXY(425, 175, '1      1      0');
   end;
  end;
 end;
end;
 
procedure Log_Out(num:integer);
begin
 case num of
  1:begin
   if(a = 1)and(b = 1)then c:=1
   else c:=0;
  end;
  2:begin
   if(a = 0)and(b = 0)then c:=0
   else c:=1;
  end;
  3:begin
   if(a = 1)then c:=0
   else c:=1;
  end;
  4:begin
   if(a = 1)and(b = 0)then c:=0
   else c:=1;
  end;
  5:begin
   if(a = b)then c:=1
   else c:=0;
  end;
  6:begin
   if(a = 0)and(b = 0)then c:=1
   else c:=0;
  end;
  7:begin
   if(a = 1)and(b = 1)then c:=0
   else c:=1;
  end;
 end;
 if((c <> c_)and(dos_a = 1)and(dos_b = 1))or((c <> c_)and(dos_a = 1)and(num = 3))then begin
  c_:=c;
  HideMouse;
  setcolor(red);
  settextstyle(8, 0, 6);
  putimage(251, 301, img_ch^, andput);
  str(c, text);
  OutTextXY(265, 311-16, text);
  ShowMouse;
 end;
end;
 
begin
 config_graph;
 config_mouse;
 setbkcolor(7);
 size_ch:=imagesize(0, 0, 48, 48);     {ligic}
 getmem(img_ch, size_ch);
 getimage(0, 0, 48, 48, img_ch^);      {/logic}
 size:=imagesize(0, 0, 10, 10);        {menu}
 getmem(img, size);
 getimage(0, 0, 10, 10, img^);         {/menu}
 _lim:=1;
 lim:=7;   t_uper:=300;
 circles(390, t_uper, 5);
 SetColor(red);
 SetTextStyle(3, 0, 1);
 OutTextXY(100, 100, 'bla');
 OutTextXY(100, 50, 'bla);
 OutTextXY(100, 70, 'bla');
 OutTextXY(430, 250, 'bla');
 SetTextStyle(1, 0, 5);
 OutTextXY(20, 250, 'A = ');
 OutTextXY(20, 350, 'B = ');
 c:=99;
 c_:=99;
 num_out_:=99;
 repeat
  logic;
  menu_:=menu;
  Out_Log(menu_);
  Log_Out(menu_);
 until s = esc;
 closegraph;
end.