Функция Chr(x: byte): char

Возвращает символ, соответствующий ASC II – коду числа x;

Функция Ord(x: char): Byte.

Возвращает число, соответствующее символу x в ASC II – таблице;

Функция UpCase(x: char): char.

Преобразует символы из строчных букв в прописные, но распространяется только на литеры латинского алфавита, русские просто игнорируются;

Функция Pred (x: char): char.

Возвращает символ, который предшествует в ASC II таблице символу x;

Функция Succ (x: char): char.

Возвращает символ, который следует в ASC II – таблице за символом x.

Следующая короткая программа выдает все символы таблицы ASC II на экран монитора.

Program Byte_To_Chr;

Var

i: Byte;

Begin

For i:=0 to 255 do writeln (i, '=', chr(i));

End.

Тип данных char в программах на Турбо Паскаль часто используют для хранения вводимых с клавиатуры одно-литерных ответов на запросы меню. Например, часто используются конструкции вида:

……………

repeat

ch:=readkey;

……………….

until (ch = 'n') or (ch = 'N');

Для использования в программе функции readkey необходимо подключить модуль CRT, который существенно расширяет возможности использования символьных типов. Он будет подробно рассмотрен ниже.

Задачи

1. Вывести на экран последовательность заглавных и строчных букв русского алфавита.

2. Ввести wtkjt число n, последовательность символов S₁,…, S_n, (n>1). Подсчитать:

а) сколько раз среди данных символов встречается символ + и сколько раз – символ *.

б) общее число вхождений символов +, -, * в последовательность S₁,…, S_n.

3. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Выяснить, встречается ли в данной последовательности символов группа из трех стоящих рядом точек.

4. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Выяснить, имеются ли в последовательности S₁,…, S_n члены S_i, S_i+1 такие, что S_i – запятая, а S_i+1 – тире.

5. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Определить позицию первой и последней запятой.

6. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1):

а) выяснить, верно ли, что среди, S₁,…, S_n имеются все буквы, входящие в слово «шина».

б) выяснить, имеется ли среди S₁,…, S_n пара соседствующих букв «но» или «он».

в) выяснить, имеется ли среди S₁,…, S_n пара соседствующих одинаковых символов.

7. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Выяснить, где больше символов «а» – в первой половине текста или во второй (не исключается и случай равенства).

8. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Подсчитать максимальное число букв «А», идущих подряд в данной последовательности.

9. Ввести целое число n, последовательность символов S₁,…, S_n, (n>1). Определить общее число латинских букв (малых и больших), входящих в данную последовательность символов.

10. Разработать программу ввода последовательности символов (не больше 200 символов, образующих текст), которая не реагирует на ввод лишних пробелов (не вводит лишние пробелы).