Пример 4

PROCEDURE …;

VAR

S1, S2: STRING;

I: BYTE;

BEGIN

S1:= ’AB’;

S2:= ’PQRABCDABPQR’;

I:= POS (S1, S2); // I = 4

I:= POS (’AB’, ’CBA’); // I = 0

I:= POS (’’, ’AB’); // I = 0

I:= POS (’AB’, ’’); // I = 0

I:= POS (’’, ’’) // I = 0

END;

Рассмотрим стандартную функцию LENGTH. Заголовок этой функции имеет вид.

FUNCTION LENGTH (S: STRING): INTEGER;

Функция возвращает значение длины строки S.

Например,

LENGTH (’ABC’) = 3,

LENGTH (’’) = 0.

Рассмотрим стандартную функцию CONCAT. Заголовок этой функции имеет вид.

FUNCTION CONCAT (S1 [, S2, …, SN]: STRING): STRING;

Значением её является строка, равная S1 + S2 + … + SN.

Рассмотрим стандартные функции UPPERCASE, LOWERCASE, ANSIUPPERCASE и ANSILOWERCASE. Запишем их заголовки:

a) FUNCTION UPPERCASE (CONST S: STRING): STRING;

b) FUNCTION LOWERCASE (CONST S: STRING): STRING;

c) FUNCTION ANSIUPPERCASE (CONST S: STRING): STRING;

d) FUNCTION ANSILOWERCASE (CONST S: STRING): STRING;

Значением функции

a) UPPERCASE,

b) LOWERCASE,

c) ANSIUPPERCASE,

d) ANSILOWERCASE

является строка, получаемая из строки S как результат замены

a) строчных латинских букв соответствующими прописными,

b) прописных латинских букв соответствующими строчными,

c) строчных букв (как латинских, так и русских) соответствующими прописными,

d) прописных букв (как латинских, так и русских) соответствующими строчными

и тождественного преобразования всех остальных символов.

Пример 5.

PROCEDURE …;

VAR

S, ST: STRING;

BEGIN

S:= ’UVW uvw ЖЗЛ жзл 123’;

ST:= UPPERCASE (S); // ST = ’UVW UVW ЖЗЛ жзл 123’

ST:= LOWERCASE (S); // ST = ’uvw uvw ЖЗЛ жзл 123’

ST:= ANSIUPPERCASE (S); // ST = ’UVW UVW ЖЗЛ ЖЗЛ 123’

ST:= ANSILOWERCASE (S) // ST = ’uvw uvw жзл жзл 123’

END;

Множественные типы данных.