Листинг 8. пример использования val для контроля вводимых с клавиатуры данных

Program month;

Var

Mon: integer; {месяц}

Buf: string [10]; {буфер для ввода строки}

Code: integer; {код ошибки преобразования строки в число}

Begin

Repeat

Write (‘Месяц- > ‘);

Readln (buf) ; {вводим номер месяца как строку}

Val (buf, mon, code);{преобразуем строку в число}

If code <>0 {введенная строка не цифра}

Then Writeln (‘Ошибка! Месяц следует задать цифрой.’);

Until code=0;

End.

Вот пример работы программы:

Месяц –> май

Ошибка! Месяц следует задать цифрой.

Месяц ->5

Практическая часть

1. Напишите программу, которая по введенному символу определяет его порядковый номер, а также предыдущий и последующий символы.
2. Напечатайте все буквы латинского алфавита.
3. Пусть вводится последовательность символов длиной 10. Подсчитайте, сколько среди них цифр?
4. Пусть вводится последовательность символов длиной не более 20. Признак конца последовательности- точка. Верно ли, что в последовательности содержится четкое количество строчных латинских букв?
5. Подсчитайте, сколько раз среди последовательности символов встречается символ, задаваемый вводом. Количество вводимых символов также определяется вводом.
6. Напечатайте заданную последовательность символов, заменяя каждую точку многоточием.
7. Пусть входной поток литер содержит по крайней мере одну цифру. Считая первую из них началом записи числа (целого или вещественного с фиксированной точкой), по правилам языка Паскаль выполните преобразование этой записи в число, Присвойте его значение переменной и выведите результат.
8. Пусть дана последовательность литер, имеющая вид d₁ d_{2 …} d_n (d_i- цифры, n >1), за которой следует точка. Вычислите значение этой алгебраической суммы.
9. Пусть даны целое число n, символы s_1, s_2,…s_n. Выясните, имеются ли в этой последовательности такие члены, что s_i- это запятая, а s_i+1 –тире.
10. Пусть даны символы s_1, s_2,…s_n. Известно, что символ s₁ отличен от восклицательного знака и что среди символов s₂ ,s₃,… есть по крайней мере один восклицательный знак. Пусть s₁,s₂,…, s_n- символы данной последовательности, предшествующие первому восклицательному знаку (n-заранее неизвестно).

a) определите количество пробелов в последовательности s_1, s_2,…s_n;

b) выясните, имеется ли среди_, s₁s_2,…s_n пара соседних символов но и он;

c) выясните, имеется ли среди s₁s_2,…s_n пара соседних одинаковых символов.

11.Пусть даны целое число n, символы s₁,s₂,…, s_n. Удалите из данной последовательности все группы букв, образующих запись abcd, то есть получите новую последовательность, не содержащую этих групп литер.

12.Пусть даны целое число , символы s₁,s₂,…, s_n. Преобразуйте последовательность s₁,s₂,…, s_n, удалив каждый символ звездочки (*) и повторив каждый символ, отличный от звездочки.

13.Пусть даны целое число n, символы s₁,s₂,…, s_n, среди которых есть двоеточие. Получите все символы, расположенные:

a) до первого двоеточия включительно;

b) между первым и вторым двоеточием; если второго двоеточия нет, то получите все символы, расположенные после имеющегося двоеточия.

14.Напечатайте заданный непустой текст, удалив из него все буквы b, непосредственно перед которыми находится буква c.

15.Заданный текст распечатайте по строкам, понимая под строкой либо очередные 60 литер, если среди них нет запятой, либо часть текста до запятой включительно.

Контрольные вопросы

1. Верно ли, что литерный (символьный) тип относится к скалярным типам данных?
2. Как задается описание переменных литерного типа?
3. Каково множество значений литерного типа?
4. Какой объем памяти требуется для хранения переменной символьного типа?
5. Приведите примеры символьных констант?
6. Верно ли то, что значением литерного типа является множество ввех символов кодовой таблицы ПЭВМ?
7. Что такое код символа?
8. Верно ли то, что каждому символу ставится в соответствие целое число в диапазоне 0…2557
9. Можно ли к данным символьного типа применять операции отношения?
10. Верно ли, что в программе значения символьного типа должны быть заключены в апострофы?
11. Каков результат работы функции ord(c), где с- переменная символьного типа?
12. Верно ли утверждение, что ord(‘0’)=0?
13. Верно ли, что ‘a’=’A’?
14. Верно ли утверждение, что если c и d- литеры, то c<d тогда и только тогда, когда ord(c)<ord(d)?
15. Как работает стандартная функция chr(i), где i-целочисленная переменная?
16. Каковы особенности кодировки цифр, латинских и русских букв?
17. Какие операции применимы к символьным данным?
18. Какие встроенные функции можно применить к символьным данным?
19. Верно ли, что chr(ord(c))=c, где c- переменная символьного типа?
20. Верно ли, что оrd(chr(i))=I, где i- переменная целого типа?
21. Как работают стандартные функции pred(c), succ(c), где c- переменная литерного типа?
22. Верно ли, что pred(c)=chr(ord(c)-1), где с- переменная символьного типа?
23. Верно ли, что succ(c)=chr(ord(c)+1), где с- переменная символьного типа?
24. Можно ли переменные символьного типа использовать в выражениях?
25. Можно ли к переменным символьного типа применять стандартные процедуры ввода- вывода?