Переменные. Символьные переменные и функции, работающие с ними
Операции в Pascal могут производиться не только над различными по характеру числами, но и над иными объектами. Такими объектами могут быть массивы, файлы, отдельные записи, их совокупности, ограниченные множества, перечисления и прочие логически связанные элементы.
Рассмотрим далее типы переменных - Char и String.
Переменные типа Char описывают отдельные символы кодовой таблицы ASCII (всего 256 символов). С этими переменными могут быть использованы функции Ord(a), Chr(x), UpCase(a).
Если аргументом функции Ord является какой-либо символ, то в результате операции присваивания t:=Ord(a); целочисленная переменная t получит значение, равное её числовому коду в системе ASCII. При выполнении присваивания a:=Chr(x), a окажется символом, соответствующим коду x (при передаче параметра X, если он не Byte типа то преобразуется в него). Функция UpCase(a) при наличии в параметре a прописных символов преобразует их в заглавные, остальные же символы выдаст без изменения. UpCase применима лишь для преобразования символов латинского алфавита. Все эти особенности изложены в двух программах, приводимых далее:
Program Prochar; {Комплексная программа
использования операторов символьных
данных}
Var a: Char;
b, c: Byte;
Begin
Write('Введите символ'); ReadLn(a);
b:= Ord(a); c:=Ord(UpCase(a));
WriteLn('a=',a,' Ord(a)=', b,' UpCase(a)=',UpCase(a),' c=',c);
WriteLn(Chr(b),' ',Chr(c));
ReadLn
End.
Program Casl; {Пример структуры Case<Порядковая
переменная> of <Список выбора> else <Оператор>
end;}
{Выяснить, является ли введённый символ
буквой латинского алфавита}
Var ch: Char;
Begin
Write('Введите символ '); Readln(ch);
Case ch of
'A'..'Z','a'..'z': Writeln('Символ ',ch,' является
символом латинского алфавита');
Else Writeln('Символ ',ch,' не является символом
латинского алфавита');
End;
End.
