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 - �����.
���������� ������|��������� ������