5. ��������� ��������� DECL

��������� �� DECL ����������� � ���� ���������� �����, �������� ������������� ��� - ���������� ������������, ��������, TEST.Z. ���������� ��������� �������������� �� ������� DECL_WIN.EXE <��� ���������>, ��������, DECL_WIN.EXE TEST.Z. ����� ���� TEST.Z �������� � ����������� ������ (���� � ����� �������� ��, �� ������ � ���). ���������� ���������� � ���������, ������� ��� START - T1:START.

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

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

������ ��������� - �������� � ����� ������ BEG(/91+).

���� ��������� ... START ... ��������� ...

����� ��������� � �� ����������� - �������� � ����� ����� END(/92+) � ����������� �������� @BL(91-,92-).

����������� �������� @B(91-,92-) ���������, ���� ��������� ���������� ��������� � ����� ����. ���� � ���, ��� ���� ��������� ����������� � ����������� � ��, ��� ��� �������������� � ���� ���. ��� ������������ �������������� ������: ����������� ����� ��������� ������������� ������� ������ � �������� �� ����������. � ���������� �������� ����� �� ���������. ������� � ������� ����������� ���������� ���������� ���� �� 91+ �� 92+, � ������� ��������� �� �����������.

�������� ������ (��� � � ����� PASCAL) ������������ � �������� ������������.

������ 5.1. ��������� ������ ��������� ������ ��_1.

{== ���� ������ ==}

�������(��_1,STUD_1) ���(IVANOV,STUD_1) ���(IVAN,STUD_1)

�������(��_1,STUD_2) ���(PETROV,STUD_2) ���(PETER,STUD_2)

�������(��_1,STUD_3) ���(SIDOROV,STUD_3) ���(IVAN,STUD_3)

�������(��_1,STUD_4) ���(SMIRNOV,STUD_4) ���(PETER,STUD_4)

�������(��_1,STUD_5) ���(IVANOV,STUD_5) ���(ANDREY,STUD_5)

�������(��_1,STUD_6) ���(PETROV,STUD_6) ���(OLEG,STUD_6)

{== ���������==}

BEG(/91+) {= ������ ��������� - ��� 91+ =}

{= � ��������� START ���������� ���������� ��������� =}

START:IF THEN

B:PAR(1,9) {= ��������� �����������. B:PAR(1,0) - ���������� =}

T!:STUD_OUT(��_1)

B:IN() {= DECL ������ � ������� ������� ������� =}

B:HALT(); {= ����� �� DECL =}

{== ����� �� ������ X1 �� ��������� X2 � ������� ��� ==}

STUD_OUT(X1):IF �������(X1,X2) ���(X10,X2) ���(X20,X2) THEN

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

B:A("������� ��.",X1) {= ������ �� ����� =}

B:A(":",X10," ",X20);

END(/92+) {= ����� ��������� - ��� 92+ =}

@BL(91-,92-) {= ��������� �� ����, � ������� �� ������ ����������� ��������� =}

���� �������� ��� ��������� � ���� TEST_1.Z � ��������� DECL_WIN.EXE TEST_1.Z, �� �� ����� ����� ������ ���������:

������� ��. ��_1: IVANOV IVAN

������� ��. ��_1: PETROV PETER

������� ��. ��_1: SIDOROV IVAN

������� ��. ��_1: SMIRNOV PETER

������� ��. ��_1: IVANOV ANDREY

���� ����� ����������� � B:PAR(1,9) = ��������� ����������� =, �� �� ����� ����� ����� ������� ���������� ��������� � ������������ ����������.

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

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