TURBO PASCAL

Новости           

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности

Гостевая книга

От автора

Переменные. Символьные переменные и функции, работающие с ними

Операции в 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.

содержание

(с)Все права защищены

По всем интересующим вопросампрошу писать на электронный адрес

    Rambler's Top100 PROext: Top 1000
    Rambler's Top100 Яндекс цитирования
Hosted by uCoz