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