Ниже приведены основные функции для работы с символьным типом данных:
Ord (X) - функция возвращает код символа Х.
Тип аргумента - Char, тип результата - Integer.
Ord (‘D’) = 68
Chr (X) - функция возвращает символ по коду Х.
Тип аргумента - Integer, тип результата - Char.
Chr (100) = 'd'
Pred (X) - функция возвращает значение, стоящее перед Х.
Тип аргумента - Integer, тип результата - Integer.
Pred (100) = 99
Тип аргумента - Char, тип результата - Char.
Pred ('L') = 'K'
Succ (X) - функция возвращает значение, стоящее после Х.
Тип аргумента - Integer, тип результата - Integer.
Pred (110) = 111
Тип аргумента - Char, тип результата - Char.
Pred ('M') = 'N'
UpCase (X) - если Х - строчная буква, то функция возвращает соответствующую прописную букву, в противном случае символ Х возвращается без изменений.
Тип аргумента - Char, тип результата - Char.
UpCase ('q') = 'Q'
Тип аргумента - Char, тип результата - Char.
UpCase ('D') = 'D'
Задача #1
Задать случайным образом kod - код символа. Напечатать Symb - сам символ и его соседей Symb_L - слева и Symb_R- справа.
program Symbol;
const x0 = 0; {x0 и x1 отвечают за случайный выбор кода}
x1 = 255;
var Symb, Symb_L, Symb_R: char;
kod: integer;
begin
randomize;
kod := random (x1 - x0) + x0;
write (' Код=', kod);
Symb := Chr (kod);
write (' символ: ', Symb);
Symb_L := Pred (Symb);
write (' слева: ', Symb_L);
Symb_R := Succ (Symb);
writeln (' справа: ', Symb_R);
readln;
end.
|