УРОК 11.  СТАНДАРТНЫЕ СИМВОЛЬНЫЕ ФУНКЦИИ.

В ПАСКАЛЕ СУЩЕСТВУЕТ ЧЕТЫРЕ СТАНДАРТНЫЕ ФУНКЦИИ ДЛЯ РАБОТЫ С СИМВОЛАМИ:

ORD (n)  ВОЗВРАЩАЕТ ПОРЯДКОВЫЙ НОМЕР СИМВОЛА (n);

CHR (n)  ВОЗВРАЩАЕТ СИМВОЛ, ПРЕДСТАВЛЕННЫЙ ПОРЯДКОВЫМ НОМЕРОМ (n);

PRED (n) ВОЗВРАЩАЕТ СИМВОЛ, ПРЕДШЕСТВУЮЩИЙ СИМВОЛУ (n) В СООТВЕТСТВИИ С ПОРЯДКОВЫМ НОМЕРОМ;

SUCC (n) ВОЗВРАЩАЕТ СИМВОЛ, СЛЕДУЮЩИЙ ЗА СИМВОЛОМ (n) В СООТВЕТСТВИИ С ПОРЯДКОВЫМ НОМЕРОМ.

ЭТО ОЗНАЧАЕТ, К ПРИМЕРУ, ЧТО МОЖНО ПОЛУЧИТЬ ПОРЯДКОВЫЙ НОМЕР ЛЮБОГО СИМВОЛА ПРИ ПОМОЩИ ORD:

WRITELN (ORD (‘A’));

ПОРЯДКОВЫЙ НОМЕР СИМВОЛА 'A' БУДЕТ ВЫВЕДЕН НА ЭКРАН.

К ПРИМЕРУ, ВОТ ТАКАЯ ПРОГРАММА:

PROGRAM Primer11 (INPUT, OUTPUT);

VAR

Bucva: CHAR;

BEGIN

WRITELN (‘ВВЕДИТЕ БУКВУ:’);

READLN (Bucva);

WRITELN (‘ПОРЯДКОВЫЙ НОМЕР ЭТОЙ БУКВЫ’, ORD (Bucva));

WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ КЛАВИШУ <ENTER>…’);

READLN

END.

ОБРАТИТЕ ВНИМАНИЕ В ЭТОЙ ПРОГРАММЕ НА ПОСЛЕДНИЙ ОПЕРАТОР READLN, ОН НАПИСАН БЕЗ СКОБОК, ЧТО ЗАСТАВЛЯЕТ ПРОГРАММУ ЖДАТЬ ПОКА ВЫ НЕ НАЖМЁТЕ КЛАВИШУ <ENTER).

ПРОТИВОПОЛОЖНОСТЬЮ ФУНКЦИИ ORD ЯВЛЯЕТСЯ ФУНКЦИЯ CHR, ОНА ПРИНИМАЕТ ПАРАМЕТРОМ ПОРЯДКОВЫЙ НОМЕР, А ВЫДАЁТ СИМВОЛ, СООТВЕТСТВУЮЩИЙ ЭТОМУ НОМЕРУ:

WRITELN (CHR (66));

ПРОГРАММА, ПРИВЕДЁННАЯ НИЖЕ, ПОКАЗЫВАЕТ РАБОТУ CHR В ДЕЙСТВИИ. ВЫ ВВОДИТЕ ПОРЯДКОВЫЙ НОМЕР, А ПРОГРАММА ВЫВОДИТ НА ЭКРАН СООТВЕТСТВУЮЩИЙ СИМВОЛ:

PROGRAM Primer12 (INPUT, OUTPUT);

VAR

Nomer: BYTE;

BEGIN

WRITELN (‘ВВЕДИТЕ НОМЕР ОТ 0 ДО 255:’);

READLN (Nomer);

WRITELN (‘ЭТО СООТВЕТСТВУЕТ СИМВОЛУ ‘’ ‘,CHR (Nomer),’ ‘’ ‘);

WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ <ENTER>…’);

READLN

END.

ДЛЯ ХРАНЕНИЯ ПОРЯДКОВЫХ НОМЕРОВ, В ЭТОМ ПРИМЕРЕ ИСПОЛЬЗУЕТСЯ ТИП BYTE, КОТОРЫЙ, КАК ВЫ УЖЕ ЗНАЕТЕ ИЗ ПРЕДЫДУЩИХ НАШИХ С ВАМИ УРОКОВ, ПРЕДСТАВЛЯЕТ СОБОЙ ЦЕЛЫЕ ЧИСЛА ОТ 0 ДО 255. ЕСЛИ У ВАС ТАКОГО ТИПА НЕТ НА КОМПЬЮТЕРЕ, ТО ИСПОЛЬЗУЙТЕ ТИП INTEGER.

СЛЕДУЮЩИЙ ПРИМЕР ПОКАЗЫВАЕТ КАК ИСПОЛЬЗУЮТСЯ ФУНКЦИИ PRED И SUCC. ВЫ ВВОДИТЕ КАКОЙ-ЛИБО СИМВОЛ, А ПРОГРАММА УЖЕ ВЫВОДИТ НА ЭКРАН ПРЕДШЕСТВУЮЩИЙ И ПОСЛЕДУЮЩИЙ СИМВОЛЫ:

PROGRAM Primer13 (INPUT, OUTPUT);

VAR

Letter: CHAR;

WRITE (‘ВВЕДИТЕ СИМВОЛ:’);

READLN (Letter);

WRITELN (‘ПРЕДШЕСТВУЮЩИЙ СИМВОЛ – '’ ‘PRED (Letter),’ ‘’ ‘ );

WRITELN (‘ПОСЛЕДУЮЩИЙ СИМВОЛ – ‘’ ‘,SUCC (Letter), ‘ ‘’ ‘);

WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ <ENTER>…’);

READLN

END.