Протокол работы программы

Программа обработки массива строк

ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ ОБРАБОТКИ СТРОКОВЫХ ДАННЫХ

Функции для обработки строк

LENGTH (ST) - вычисляет длину в символах строки ST. Результат – целочисленного типа.

Например, при ST, равном ‘длина строки’, выражение LENGTH (ST) дает результат 12.

COPY (ST, POZ, N) – выделяет из строки ST подстроку длиной N символов, начиная с позиции

POZ. POZ, N – целочисленные выражения.

Если POZ > LENGTH (ST), то результатом будет пробел;

Если POZ > 255, возникнет ошибка при выполнении.

Например, при значении ST= ‘ABCDEFG’, выражение COPY (ST,2,3) дает результат ‘BCD’.

CONCAT (STR1, STR2,…, STRN) – выполняет конкатенацию (сцепление) строк STR1,STR2,…,STRN в том порядке, в каком они указаны в списке параметров. Сумма символов всех сцепляемых строк должна быть не более 255.

Например, выражение CONCAT (‘AA’, ’BB’, ’CC’) дает результат ‘AABBCC’.

POS (ST1, ST2) – обнаруживает первое появление в строке ST2 подстроки ST1.

Результат целочисленного типа и равен номеру той позиции, в которой находится первый символ подстроки ST1. Если в ST2 не найдено ST1, то результат равен 0. Например, для значения ST2 ‘ABCDEFGH’ выражение POS (‘DE’,ST2) дает результат, равный 4.

UPCASE (CH) - преобразует строчную букву в прописную. Параметр и результат имеют тип

CHAR. Обрабатывает только буквы латинского алфавита.

Например, для значения CH = ‘f’, выражение UPCASE (CH) дает результат ‘F’.

program days;

uses CRT;

var

day:array[1..7] of string[10];

i,k:byte;

begin

clrscr;

day[1]:='Sunday';

day[2]:='Monday';

day[3]:='Tuesday';

day[4]:='Wednesday';

day[5]:='Thursday';

day[6]:='Friday';

day[7]:='Saturday';

for i:=1 to 7 do {Цикл для вывода дней недели}

writeln(i,' ',day[i]);

readln;

{Вывод наименования дня недели по номеру}

writeln ('vvedite N dnya');

readln (k);

writeln ('day N ', k, ' ',day[k]);

readln;

end.