Архитектура микропроцессоров и их программирование. Карягин А.П. - 40 стр.

      Пример 4.1 - Написать программу, модулирующую работу логической
микросхемы К155ЛР1. Текст программы на языке Паскаль:

      program K155LR1;
      uses crt;
      var y,i:Integer;
             x:array[1..8] of integer;
             ch:char;
       begin
         repeat
         clrscr;
         writeln('       логическая микросхема К155ЛР1        ');
         writeln('введите входные переменные Х1..Х2');
         y:=1;
            for i:=1 to 8 do begin
            write('X',y,'=');
            readln(X[y]);
            if (X[y]<>0) and (X[y]<>1) then
               begin
               writeln('переменные принимают значения только 1 или 0!');
               i:=i-1; y:=y-1;
               end;
        y:=y+1;
        end;
        x[1]:=x[1] and x[2];
        x[3]:=x[3] and x[4];
        x[5]:=x[5] and x[6];
        x[7]:=x[7] and x[8];
        x[1]:=x[1] or x[3];
        x[1]:= not x[1];
        x[1]:=x[1]+2;
        x[5]:=x[5] or x[7];
        x[5]:= not x[5];
        x[5]:=x[5]+2;
        writeln (' ___________');
        writeln('Y1=X1&X2+X3&X4=',x[1]);
        writeln (' ___________');
        writeln('Y2=X5&X6+X7&X8=',x[5]);
        writeln;
        writeln('Esc-выход‚ Enter - заново');
      ch:=readkey;
      until ch=#27;
      end.



40