Адреса поточної чарунки відображається:​

Это обычный дешифратор. С увеличением А появляется 0 на очередном Q. Все остальные Q =1 (потому, что Q с инверсией).

А0 А1 А2 Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7

0    0   0    0    1     1     1     1     1     1     1

1     0    0   1    0    1     1     1     1     1     1

0    1     0    1     1    0    1     1     1     1     1

1     1     0   1     1     1    0    1     1     1     1

0    0    1    1    1      1     1    0    1     1     1

1     0    1     1    1     1     1     1     0   1     1

0    1     1      1    1     1     1     1      1   0    1

1    1     1      1    1      1     1    1      1    1     0

Объяснение:

Рисовать здесь не умею, но думаю понятно.

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

uses graphABC;
const
    kegl = 40;

var
    space, line: integer;

procedure M(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl );
    LineTo(cx + kegl div 2, cy);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure I(cx, cy: integer);
begin
    MoveTo(cx, cy - kegl);
    LineTo(cx, cy );
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy);
end;

procedure R(cx, cy: integer);
begin
    MoveTo(cx, cy);
    LineTo(cx, cy - kegl);
    LineTo(cx + kegl, cy - kegl);
    LineTo(cx + kegl, cy - kegl div 2);
    LineTo(cx, cy - kegl div 2);
end;

begin
    space := kegl div 2;
    
    SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
    
    line := space + kegl;
    M(space, line );
    I(2 * space + kegl, line );
    R(3 * space + 2 * kegl, line );
    
    line := 2 * space + 2 * kegl;
    R(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
    
    line := 3 * space + 3 * kegl;
    M(space, line );
    I(2 * space + kegl, line );
    M(3 * space + 2 * kegl, line );
end.