Var a, b, c, d : char;

Begin

d:='!'; { присваивание значения }

write('Введите три символа: ');

read(a,b,c); { ввод трех символов }

writeln(a,b,c,d); { вывод четырех символов }

End.

Благодаря тому, что в компьютере символы представляются в виде числовых кодов, к ним можно применять операции сравнения (отношения).

Допустимы шесть операций сравнения: =, <=, >=, <, >, < > .

Из двух символов большим считается тот, код которого больше.

Символы упорядочены в соответствии с их кодами следующим образом:

'0' < '1' <...< '9'

'A' < 'B'<...< 'Z' 'a '< ' b' <...< 'z' 'А' < 'Б' <...< 'Я' 'а' < 'б' <...< 'я'

Пример 2. Составить программу, которая выполняет сравнение введенного с клавиатуры символа с заданным.

Прежде всего, объявляем тип char (символьный) переменных x и y. Переменной y присваиваем некоторое значение, например y:='h'. Записываем процедуру ввода значения переменной x. Записываем условие сравнения переменных: if x<y. Если оно выполняется, то выводим значения, соединенные знаком меньше: x, '<', y , иначе выводим x, '>=', y.

Программа может выглядеть так:

Program Primer1_2;

Var x, y: char; { переменные символьного типа }

Begin

y:='h'; { присваивание значения символа }

Write('Введите символ: '); Read(x); {ввод символа}

If x<y then writeln(x, '<', y) else writeln(x, '>=', y); {сравнение символов}

End.

Pascal содержит несколько стандартных функций для работы с символами. Рассмотрим на примерах использование функций ORD(S) – определяет код символа s и CHR(N) – возвращает символ с кодом n

Пример 3. Составить программу, которая определяет код введенного с клавиатуры символа.

Код введенного символа s определяем с помощью функции ord(s).

Программа может выглядеть так:

Program Primer1_3;

Var s: char;

begin

write('Введите символ '); readln(s); { ввод символа }

writeln('Код этого символа = ', ord(s)); { вывод кода }

end.

Пример 4. Составить программу, которая выводит символ по его коду, введенному с клавиатуры.

Символ с кодом n возвращается функцией chr(n).

Программа может выглядеть так:

Program Primer1_4;

Var n: integer;

begin

write('Введите код символа от 33 до 255 '); readln(n); { ввод кода }

writeln(' Символ = ', chr(n)); { вывод символа }

end.

Пример 5. Составить программу, которая определяет, какой символ введен с клавиатуры: цифра, большая или малая латинская буква.

Введенный символ a преобразуем в код функцией ord(a).

Цифры имеют коды от 48 до 57, заглавные латинские буквы от 65 (A) до 90 (Z), строчные от 97 (a) до 122 (z).

Программа может выглядеть так:

Program Primer1_5;

Var a: char;

Begin

Write('Введите символ: '); Read(a);

if (ord(a)>=48) and (ord(a)<=57) then Writeln(a,' цифра');

if (ord(a)>=65) and (ord(a)<=90) then Writeln(a,' заглавная буква');

if (ord(a)>=97) and (ord(a)<=122) then Writeln(a,' малая буква');

End.

5 Индивидуальное задание

1. Составьте программу, которая по таблице кодов определяет символ по соответствующему коду: а) 27 ; б) 32 ; в) 33 ; г) 80 ; д) 120

2. Составьте программу, которая по таблице кодов определяет код введенного символа

3. Составьте программу, которая определяет коды двух введенных с клавиатуры символов

4. Составьте программу, которая выполняет сравнение двух введенных с клавиатуры символов и вывод их в порядке возрастания

5. Составьте программу, которая выполняет сравнение двух введенных с клавиатуры символов и вывод их с нужным знаком. Например: а < б или А = А или я > Я

Примечание. Выполните программы при различных значениях переменных: запустите программу на выполнение (Ctrl-F9); введите данные (наберите символ и нажмите клавишу Enter); после того как опять появится текст программы (т.е. программа выполнена), нажмите Alt-F5 для просмотра результатов (для возврата — любую клавишу). При выполнении программы могут возникнуть ошибки. Сообщение об ошибке выдается в верхней части окна. При этом курсор устанавливается в ту позицию, где возможна ошибка. Если сразу после этого нажать F1, то на экране появляется дополнительная информация об ошибке. Нажатие любой другой клавиши стирает информацию об ошибке. При возникновении ошибки необходимо: а) исправить ошибку; б) повторить выполнение программы