Функция UpCase

Функция UpCase позволяет преобразовать символ любой литеры из строчного в прописной. Эта функция рассчитана на обработку отдельного символа. Поэтому для обработки строки символов с помощью этой функции приходиться организовывать цикл.

Например, замена всех строчных букв в строке на прописные:

Program Demo_ UpCase;

Var

Words: string;

i: integer;

Begin

Words:= ‘Фирма Microsoft’;

For I:=1 to Length(Words) do Words[i]:= UpCase (Words[i]);

Writeln (Words); {Выводиться текст ‘Фирма MICROSORT’}

End.

Примечание. Русские литеры не могут обрабатываться этой функцией (см. Задача 2).

Функция Copy

Функция Copy позволяет копировать фрагмент некоторой строки из одной переменной в другую. Вызывая функцию Copy, необходимо указывать следующие параметры:

· Имя строки, из которой должен извлекаться копируемый фрагмент;

· Позицию в строке, начиная с которой будет копироваться фрагмент;

· Число копируемых символов.

Пример,

Program Demo_Copy;

Var Words: string[79];

Word1, Word2, Word3: string[20];

Begin

Words:= ‘картографирование’;

WriteLn (Words);

Word1:= Copy (Words, 6, 4);

WriteLn (Word1); {на экран выводиться слово ‘граф’}

Word2:= Copy (Words, 2, 3);

WriteLn (Word2); { на экран выводиться слово ‘арт’}

Word3:= Copy (Words, 11, 3);

WriteLn (Word3); { на экран выводиться слово ‘ров’}

End.

Примечание. Сообщения об ошибке будет в случаях, если начальная или конечная позиции копируемого фрагмента находятся вне пределов исходной строки символов. Результатом выполнения операции в первом случае будет строка нулевой длины, во втором – фрагмент от начальной позиции копирования до конца исходной строки.

Функция Pos

Функция Pos может осуществить в некоторой строке поиск определенного фрагмента. Если заданный фрагмент в строке присутствует, то функция возвращает номер позиции в строке, с которой этот фрагмент начинается. Если фрагмент не найден, то функция возвращает нуль.

Например,

Program Demo_Pos;

Var

Words: string[79];

Search_Word: string[20];

Position: byte;

Procedure Search_stencil;

Begin

Position:= Pos (Search_Word, Words);

If Position <> 0 then

Writeln (‘Фрагмент ” ’, Search_Word, ‘ ” содержится в ’, ‘слове ” ’ Words, ‘ ”, начиная с позиции ’, Position: 3)

Else

Writeln (‘Фрагмент ” ’, Search_Word, ‘ ” не содержится в ’, ‘слове ” ’ Words, ‘ ”.‘);

End;

Begin

Words:= ‘Электрификация’;

Search_Word:= ‘кац’;

Search_stencil;

Search_Word:= ‘Кац’;

Search_stencil;

End.

Примечание. Функция Pos требует полного совпадения искомого фрагмента и фрагмента строки, в которой производиться поиск. Причём, большие и маленькие буквы считаются различными символами (“К” не идентично “к”).