1. адресация ipv62. конвейерный режим шины​

DATA 101,98,100,108,97,106,99,100,112,96,107,98
DIM a(1 TO 12) AS INTEGER
DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER
DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER
CLS
ib = 0: ic = 0
FOR i = 1 TO 12
        READ a(i)
        SELECT CASE a(i)
        CASE 100
                ib = ib + 1
                b(ib) = i
        CASE IS > 100
                ic = ic + 1
                c(ic) = i
        END SELECT
NEXT i

PRINT "План (100%) в месяцах: ";
FOR i = 1 TO ib
        PRINT b(i);
NEXT i
PRINT
PRINT "перевыполнение плана в месяцах ";
FOR i = 1 TO ic
        PRINT c(i);
NEXT i
END

Результат выполнения программы:
План (100%) в месяцах:  3  8
перевыполнение плана в месяцах  1  4  6  9  11

uses Drawman;

begin

Field(22,6);

onvector(3,5);

pendown;

onvector(-2,0);

onvector(0,-4);

onvector(2,0);

onvector(0,2);

onvector(-2,0);

penup;

onvector(3,-2);

pendown;

onvector(1,4);

onvector(1,-4);

penup;

onvector(-2,2);

pendown;

onvector(2,0);

penup;

onvector(1,-2);

pendown;

onvector(0,4);

onvector(2,0);

onvector(0,-2);

onvector(-2,0);

penup;

onvector(3,-2);

pendown;

onvector(1,4);

onvector(1,-4);

penup;

onvector(-2,2);

pendown;

onvector(2,0);

penup;

onvector(3,2);

pendown;

onvector(-2,0);

onvector(0,-4);

onvector(2,0);

onvector(0,2);

onvector(-2,0);

penup;

onvector(3,-2);

pendown;

onvector(1,4);

onvector(1,-4);

penup;

onvector(-2,2);

pendown;

onvector(2,0);

penup;

onvector(1,2);

pendown;

onvector(0,-4);

penup;

onvector(2,4);

pendown;

onvector(0,-4);

penup;

onvector(0,2);

pendown;

onvector(-2,0);

penup;

onvector(-19,-3);

end.