Notice: Undefined variable: contentRead in /var/www/www-root/data/www/knizh.ru/funcs.php on line 681

Notice: Undefined variable: row in /var/www/www-root/data/www/knizh.ru/funcs.php on line 719

Notice: Trying to access array offset on value of type null in /var/www/www-root/data/www/knizh.ru/funcs.php on line 719

����������� � �������������� ���������� ��� �����

��������� � ������� ��� ���������� ���������� ����

1.�Function Copy(S: String; Index, Count: Integer): String;

���������� ��������� ������. S � ��������� ���� String. Index � Count � ��������� ������ ����. ������� ���������� ������, ���������� Count ��������, ������������ � ������� Index. ���� Index ������, ��� ����� S, ������� ���������� ������ ������.

2.�Procedure Delete(var S: String; Index, Count: Integer);

������� ��������� �������� ������ Count �� ������ S, ������� � ������� Index. S � ���������� ���� String. Index � Count � ��������� ������ ����. ���� Index ������, ��� ����� S, ������� �� ���������.

3.�Procedure Insert(Source: String; var S: String; Index: Integer); ���������� ��������� � ������, ������� � ������������ �������. Source � ��������� ���� String. S � ���������� ���� String ����� �����. Index � ��������� �������������� ����. Insert ��������� Source � S, ������� � ������� S.

4.�Function Length(S: String): Integer;

���������� ����� ��������, ���������� ������������ � ������ S. �������� ��������: ��� ������������� ����� � ����-����������, ����� �������� �� ����������� ����� ����� ������.

5.�Function Pos(Substr: String; S: String): Integer; ���� ��������� � ������. Pos ���� Substr ������ S

� ���������� ������������� ��������, ������� �������� �������� ������� ������� Substr ������ S. ���� Substr �� ������, Pos ���������� ����.

12.�������

������ ������������ ����� ������������ ������������� ����� ��������� ��������� ���������, ������������� � ������ �����. ���������� ������ ���������� ������, ������ �� ������� ������������ ������. ���� ������ �������� ��� ����, ����� �� ������� ����� ��������� ����������� ��� ����� ����. ���� ������ ����� ���������� � ������ ����, ����������� � ����� Pascal, �� ����������� ��������� ����.

�������� ������ � ����� Pascal �������������� � ������� ���������� ����� RECORD, ����� �� ������� ����������� ���������� ������. ����������� �������� ������ ��������� ������ END.

��������, �������� ������ �������� �������, �������� � ������ ��������, ������� ��������� ������ � �������� ������ ������ ����������� � ���� ��������� ������:

type Row = Record

FIO: String[20];

TEL: String[7];

end;

var str: Row;

�������� ������� �������� � ��� ������������� ����� ����, ��������:

var str: Record

FIO: String[20];

TEL: String[7];

end;

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

��������� � ����������� ������� ����� ���������, ���� ��������������� ���������� ������������� with. �� ��������� �������� ��������� �����, ��������������� ������ ����, ������ �� ����� �����, � ��� ������ ���������� � ��������� �������������.

������ ���������� ��������� ������ ������� �� �������� ������ �� �� �����. � ����� Pascal ����������� �������� ������, ��������� �� ����� � ���������� ������. ���������� ����� �������� � ������� ����������� case P of, ��� � � ��� ���� �� ����� ����� ������. ��������� ��������, ����������� ���� �����, ������������� ��� ��, ��� � � ��������� ��������. ������ ������ �������� ������������ ��������, ��� ��� �������� � ��������� ��������, ����������� ���� ��������, ����������� � ������� ������. �������� ���������� ����� ����������� ��������� ������ end. ��� ���� � ����� ������� � ��������� ���������� �����. ������������� ������� �������������� � ������� �������������� ��������.

��������: �� 12

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

������� �������� � ������������ � ������������ ���������������� ���������������� ��������� � �������...
������-������������ �������� ����� �������� ����������� ��������� � ������������ � ��������������� �...
������������ ��������� �� ������� ���������� ������� �� ���� ��������, ���������� 15 �������, ������...
������� ���. ���������� �� ����� ����������. ��� ����������� ���� ������� �����? ��� ������ ������� ...
���� ������� � ������� �����, ���������� �� ��������� ���������. �������, ��� ��� ��� � ��� ��������...
� ����� ������� ���� ���� ��� ��������� �������� �� �����, ����� ��������� ��������� � �������� ����...