6. ��������� � ������ ����� ���������

��������� � ����� ����:

<��� ���������>(...):IF <��> THEN <��>;

������ ����� (��) ��������� ����� ����: ���������, ���������� ��������� (���������) � ��������� ������ ������ ���������. ���������� ��������� ��������.

6.1. ��������:

���� � �� ��������� �������� (��), �� �� ����������� � ��. ��� ���� ���������� ��������� ������ ���� �������� � ����� ����� (��). ��������, ���� � �� ������� �������(X1), �� ������� X1 ������ ���� �������� � �� � � �� ����� �������� ��������, ��� �� ����� X1 ����� �� ��������. ���� X1 �� ��������, �� ��� ���������� �� ���������� ���������.

6.2. ���������� ��������� ������ �� �����:

������ �� ����� �������������� ����������� �����������:

�:�(<��������� ��� ���������� ����������>).

�������� ����� ����� �� ����� 5 ����������� ���� � B:A(...,...,...,...,...).

�:��() - ������� �� ����� ������.

� ������� 4.1 ��� ������ �� ����� ������������ ��������� B:BK() B:A("������� ��.",X1). ���� ���� ����������� X1=��_1, �� �� ����� � ����� ������ ����� ������: "������� ��. ��_1".

6.3. ��������� ������ ��������� � ��������� �������� ����������:

��� ��� ����������, �������� ������ (��� �������� � ������ ���������) ����� ��������� ����������� ����� - ����������. ����� ����� ����� ��������� � ��������� �������� ���������� (����������).

������ 6.1. ������ ���� ����� � ��������� ������. ����� � �� ������������ ������� � ����� ���������:

���(����,��_1) �������(������,��_1)

���(����,��_2) �������(������,��_2)

���(����,��_3) ...

����� ����� ��������������� ��������� ����������:

US1(X1):IF ���(X1,X2) �������(X3,X2) THEN �:��( ) B:A(" - ",X1," ",X3);

���� ������� ������ ��������� �!:US1(����), �� �� ����� ����� ������ ��� ���� � ������ ����:

- ���� ������,

- ���� ������,

- ...

������ ������� ������ ��� �� ���������:

US1(X1):IF ���(X1,X2) THEN T1:US2(X1,X2);

US2(X1,X2):IF �������(X3,X2) THEN �:��( ) B:A(" - ",X1," ",X3);

US2(X1,X2):IF THEN �:��( ) B:A(" - ",X1);

��� ������ �!:US1(����) ������� ����� �������� X2=��_1 � ������� T1:US2(����,��_1). ��� ��������� ������ ������� (������� X3) � ��� ��� ������ �� �����. ����� ����� X2=��_2 � �.�. ���� � ����-���� ������� ��� (�������� � ��_3), �� ������ ��������� US2 �� ����������, � ������ (��� ������ ����������) ������ ���� ��� - ����.

6.4. �������� ����� ����� � ��:

�������� ����� ����� ��� �:IN(<��� �����>).

�� ��������� ���������� �� � ����� (� ���� ���) � ������� ��������� ������� �� � ����������� ������ (��) - ��� ��������� �����������.

��������, ����� �� ��������� � ����� ���.KN. ����� ��� ����������

START:IF THEN �:IN('BBB.KN') ...;

���� ����� ������ � �� � �������������� �����������. ����� ������ ����� ���� ��������� (�� ������� �� �����) � ���� ����� �������������� � ����� ����� ���������. �������� �:IN() ������� ��������� ��������� (�������� ���������� ���������) � �������� ������� ������.

6.5. ���������, ������� ���������� ������ ������:

�:PAR(1,9) - �������� ����������� (��� � ���������� Ctrl^Y).

�� ����� ����� ���������� ������� ���������� ��������� � ����������� �����������.

B:PAR(1,0) - ��������� ����������� (�trl^D).

������ ��������� ����� ��������������� ����.

6.6. ������ � ��������:

B:EDFILE1(<��� �����>) - ������ ���������� ����� � ��������.

���� ���������� �������� �:PAR(39,2) B:EDFILE1('DDD.TXT'), �� �������� ��������� �������������� �����.

B:PAR(39,0) - ����������� �������������� (��������� �� ����� ���������).

B:PAR(18,1) � ������������� EDFILE1 � ���� ����, ��. �. 16.

B:PAR(18,0) � EDFILE1 � ���� ���������.

6.7. ������ ����������� � ����:

� ������� ���������� B:REW(<��� �����>) ... B:REW() ����� ����������� ��������� ������ �� ����� - �� ������ � ��������� ����.

������ 6.2.

���� � ������� 6.1 �������� ���������:

START:IF THEN B:REW('DDD.TXT') {= ������� � ������� ������ ���� 'DDD.TXT' =}

T!:US1(����)

B:REW() {= ������� ���� =}

B:EDFILE1('DDD.TXT'); {= ������ ���� � �������� =}

����� ��������� B:BK() � B:A(...) � ��������� UR1 ����� �������� ��������� �� �� �����, � � ����. ���� � ������ ���� ����� ������ � ����� ��������� ���� DDD.TXT, ������� ����� ����� � ��������. ���� ���� DDD.TXT ��� ���, �� ������� �� ����� ������.

6.8. ������� ����:

��� ������ ����� B:EDFILE1('DDD.TXT') � ����� ����� ������ � ��� ��������� ��� �������� ������������ ����. ����� B:EDFILE1(...) �������� ��������:

B:GETWINDOW(X1,X2,N1,N2,"�����")

�� ������� ���� ���������� ����:

X1,X2 - ���������� ������ �������� ����,

N1 - ���������� ������� � ������ (����� �� 78).

N2 - ���������� ����� (����� �� 21),

"�����" - ����� � ������� ����� ����.

��������,

... B:GETWINDOW(1,3,78,21,"���� � ������ ����:") B:EDFILE1('DDD.TXT')...;

����� ���� DDD.TXT ����� ����� �� ���� �����.

6. �������� �������.

6.1. ����� ������� ���������� (���������� �������).

��������� ��������:

�. ���������� �� ���� (��� ����� �����������): ����� - ���������� - ������ - ��������.

�. ����� - ���� (������������, ��, ��) - ������� - �������.

�. ��� �������� - ������� - ����� ������������ (������), �����������.

�. ����� - ����� - ������� - ��������.

�. ������ - ���� ������� - �����������, ��� ������������, ���������.

�. ���������� (��� ����� ������ �������) - ���� - �����������.

�. ������� ������� - ������� - ����� ����������� - ������� �����.

�. ���������� ����, ������, �����������, �������� � ��. ���������...

6.2. ������ ������� (������-���� ����) � ��������.

6.9. ����:

��� ���������� ���� ������������ �������� B:MENU(X1,X2,<�����>), ��� X1,X2 - ���������� ������ �������� ���� (�� X1 ������� � ������, � X2 - ����� ������), <�����> - �����, ����������� �� ���������� ����� ����.

������� ������������ ��������� B:BK() � B:A(...), ������� ������������� �� ������ � ����������� ���������� ������ - B:REW(MEMORY) ... B:REW(). � �� ������� ����������� ��������, ������� � ������� B:MENU(X1,X2,<�����>) �������� ��� ����. ������ ������ ������� �������� - ��� ������ � ������� ����� ���� - ��� ����������.

������ 6.3.

START:IF THEN

B:REW(MEMORY) {= ������������ �� ������ � �����. ������ =}

B:A("��������:") {= �������� ���� =}

B:BK() B:A("1. ������� ������")

B:BK() B:A("2. ������� ������")

B:REW() {= ����� ���������� �������� =}

B:MENU(2,2,1) {= �������� ���� =}

B:HALT();

�� ����� ����� ������ ����:

    ---- ��������: -----  

| 1. ������� ������ |

| 2. ������� ������ |

������ ���� ������������ �������� ����� - ��� �������. ������ ����� ������ ���������� � ������ �������. ���� ����� ������ ������� ������, �� �� ����������� �� ���������� �������.

������ 6.4.

���� � ������� 6.1 �������� ���������:

START:IF THEN

B:REW(MEMORY)

B:A("���� � ������ ����:") {= �������� ���� =}

T!:US1(����) {= ���������� ������� ���� =}

B:REW()

B:MENU(3,3,1);

����� �� ����� (� ����� ������� ����) ����� ������ ����:

-- ���� � ������ ����: -----

| - ���� ������             |

| - ���� ������             |

| - ...                                 |

��� ������ N-�� ������ ���� � �� ���������� �������� @@(N) � ��������������� �������� PAR(7,N). ��������, ��� ������ �.2 ����� @@(2) � PAR(7,2). ��� ������� F2 - ����� @@(F>2) � PAR(7,2). ����������� ������ � ���� - ��. �.13.

6.10. ������� � ������ ��������:

��� ������ �� ������ ��������� � ���� ������ ������������ ��������: B:LINES(<������ ������� � ������>,<;����� ������>). ��������� ����������� � MEMORY:

... THEN B:REW(MEMORY) B:A("<�����>") B:REW() B:LINES(1,1);

�� ����� (� ������ ������� ������ ������) ����� ����� <�����>. ���� ������������ B:LINES(1,25), �� <�����> ����� ����� � ������ ������. ����� ��������� ������ ��� ������ ��������� ���������, ���������� ������ � ���� �� �������.

6.11. ������ ��������� � ��:

�) �������� �������� ���������� � ��������� ������.

B:DELFR(@@) - ������� �� �� ��� ��������� � ������ @@, �.�. @@(...) @@(...,...) � ��. ��������, �������� B:DELFR(���) ������ �� �� ����� ���� �����.

�) �������� �������� ����� ������� (���������������� ����) � �� - B:NEW(X1). ��������, ���������

IF ... THEN B:NEW(X2) B:NEW(X3) ����(X2,X3) ...;

������� ���������� ���� 1+ � 2+, ��������������� ����� ����������� �����, � ������ �� ���������� ����(1-,2-). ���� �������� ����� �������������� ��� ��������� ���, ��. �.15.

�) �������� �������� ����� �� ������� ���������� -

B:DELFILE(<��� �����>)

�) ��������� ����� ���� ��� ������ �� �����:

B:COLT(<����� �� 1 �� 15>) B:A("�����")

��������, B:COLT(10) B:A("�����") - ���� ������� ���� ������, 11 - �������, 12 - ��������, 13 - �������, 14 - ������, 15 - �����.

���������� ������|��������� ������

- ������� �������� -