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

Следующий пример иллюстрирует, как с помощью функции UpCase можно заменить все строчные буквы в строке на прописные:

PROGRAM function_Upcase;

VAR Words : STRING;

i : INTEGER;

BEGIN

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

FOR i:= 1 TO Length (Words) DO Words[i]:= UpCase(Words[i]);

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

END.

В результате работы этой программы на экран выводится строка, содержащая большие английские и маленькие русские буквы.

Процедура VAL.

Процедура val позволяет преобразовать цифровые символы (изображение числа) в число. В общем виде обращение к процедуре выглядит так:

VAL (Строка, Число, Код) ;

где Строка – строковая константа или переменная, содержащая изображение числа; Число – переменная целого или дробного типа, которой должно быть присвоено значение, изображенное строкой Строка;

Код – возвращаемый процедурой код ошибки (целое число), Если строка успешно преобразована в число, то код ошибки равен нулю. Если строка не может быть преобразована в число из-за того, что строка не является изображением числа, то значение Код будет равно номеру символа строки, который явился причиной невозможности преобразования.

Например:

VAL(’1,25’, n, code);

значение переменной code равно 2, так как строка 1,25 не является изображением числа, поскольку для отделения дробной части числа от целой используется точка, а не запятая.

Процедура VAL полезна при организации ввода с клавиатуры. Например, если в программе объявлена переменная month (месяц) типа integer, и ее значение вводится с клавиатуры инструкцией read, то в результате возможной ошибки оператора, задавшего месяц строкой символов, например, 'июнь', а не цифрой, программа завершится ошибкой времени выполнения. Однако если числовые данные вводить как строку, а затем преобразовывать в число с помощью процедуры VAL, то можно избежать подобного неприятного завершения программы.