2. Строковые процедуры.

Имя процедуры	Назначение процедуры
Delete(<строка>,<позиция>,<количество>)	Удаление части строки с заданной позиции 1) S:=’abcdefgh’; Delete(S,2,4); Результат: S=’afgh’ 2) S:=’abcdefgh’; Delete(S,2,10); Результат: S=’a’
Insert(<подстрока>,<строка>,<позиция>)	Вставка подстроки в строку с заданной позиции S:=’abcdefgh’; Insert(‘XXL’,S,3); Результат: S=’abXXLcdefgh’
Str(<число>,<строка>)	Преобразование числового значения в строку символов 1) Str(567,A); Результат: A=’567’ 2) )B:=567; {B:integer} Str(B:5,A); Результат: A=’_ _567’ 3) B:=5.67E+3; {B:real} Str(B:8:0,A); Результат: A=’_ _ _ _5670’
Val (<строка>,<число>,<код>)	Преобразование строки в числовое значение (если нет ошибки, то < код>=0) 1)A:=’135’; Val(A,R,Code); Результат: R=135;Code=0 2)A:=’_135’; Val(A,R,Code); Результат: R=не определено;Code=1 3)A:=’2.5Е+4’; Val(A,R,Code); Результат: R=25000;Code=0

5. Прочие процедуры и функции.

Имя функции	Модуль	Назначение процедуры или функции
Keypressed	Crt	Функция. Возвращает значениеTrue, если на клавиатуре была нажата клавиша иFalseв противном случае
ReadKey	Crt	Функция. Приостанавливает выполнение программы до нажатия на любую клавишу
ClrScr	Crt	Процедура. Очищает экран
Exit	System	Процедура. Преждевременное завершение процедуры, функции или основной программы

5. Процедуры ввода данных.

READ ([<имя файла>,]<список переменных>);

READLN ([<имя файла>,]<список переменных>);

INPUT

А) Ввод числовых данных:

Var B,A,D: Real;

K:Integer; Входной поток данных:

. . . 2.5 –4.95 20 1.25Е2

Read(A,D); После ввода:

Read(K,B); A=2.5; D=-4.95; K=20; B=125

Б) Ввод числовых и строковых данных.

Var A: Real;

B:Integer;

C1,C2,C3: Char; Входной поток данных:

D: String[5]; 2.5 10 KLMКОШКА

. . . После ввода:

Read(A,B,C1,C2,C3,D); A=2.5; B=10; C1=’ ’;

C2=’K’;C3=’L’;

D=’MКОШК’

.

___________________________________________________________

Read(A,B,C); Входной поток:2 9 5 3 7 или

Read(D,Е); Входной поток 1 строка:2 9 5

2 строка 3 7

1) For I:=1 to 2 DO

Begin

For J:=1 to 3 do

Read (A[I,J]);

Readln

End;

Входной поток: 3 5 1

-4 7 9

__________________________________________-

2) For I:=1 to 2 do

For J:=1 to3 do

Read (A[I,J]);

Входной поток: 3 5 1

-4 7 9

________________________________________________________

3. For I:=1 to 2 do

For J:=1 to 3 do

Readln(A[I,J]);

Входной поток: 3

5

1

-4

7

9

_________________________________________________________

Var A,B,C,D:integer; Входной поток:

1 строка: 10 20 30 40 50

… 2 строка: 60

Readln(A,B,C);

Readln(D); Результат:

A=10;B=20;C=30;D=60