Символьный тип данных

1. Символьный тип данных • Описание:Char; • Диапазон значений:любой символ – это буквы, цифры, знаки препинания и специальные символы. Каждому символу соответствует индивидуальный числовой код от 0 до 255(10); ( 0 – FF(16); 0 – 1111 1111(2).)

2. Наиболее распространенной международной согласованной системой символов кодирования всех символов является система ASCII. Символы с кодами от 0 до 127 – основная таблица кодов ASCII. Она идентична для всех на всех IBM-совместимых компьютерах. Коды с символами от 128 до 255 представляют национальную часть.

3. Функции: Pred(x)– определяет предыдущее значение величины х; Succ(x) – определяет последующее значение величины х; Ord(x) – возвращае порядковый номер величины х; Chr(x) – определяет символ по его порядковому номеру. Символьный тип данных является порядковым типом данных. Область значений такого типа данных – упорядоченное счетное множество. Каждому элементу такого множества соответствует некоторое порядковое число, являющееся его номером при перечислении.

4. ПРИМЕР Program example_1; {Программа выводит строки символов: } var i,k:char; {A AB ABC ... AB..YZ } Begin For i:='A' to 'Z' do {Количество строк} Begin For k:='A' to i do {Количество символов в строке} Write (k); {Печатает символ} writeln; {Переводит курсор в следующую в строку} End; readln; end.

5. Написать программу вывода последовательности символов на экран: ZYYXXX…AA…AA; Что будет выведено на экран в результате работы следующего фрагмента: a:=‘Э’; b:=‘В’; c:=‘М’; write(a,b,c,#13); a:=‘Э’; b:=‘В’; c:=‘М’; writeln(a,b,c);

6. Напишите программу, которая запрашивает символ и выводит соответствующий ему код. Написать программу для вывода на экран всех символов таблицы ASCII

7. 1. Написать программу, которая подсчитывает количество цифр, входящих в исходный текст. (Текст – это последовательность символов, ввод которой заканчивается нажатием клавиши <Enter>.) 2. Определить, является ли введенная строка правильной записью целого числа 3. Вычислить сумму цифр введенного числа

8. Program kolichestvo; var ch:char; k:integer; Begin k:=0; read(ch); while ch<>#13 begin if ch>=‘0’ and ch<=‘9’ then k:=k+1; read(ch); End; Writeln(‘Количество цифр =’,k); End. K=0 Ch Ch ≠ #13 Да ‘0’≤ch≤’9’ Да K=k+1 Ch K 1. Написать программу, которая подсчитывает количество цифр, входящих в исходный текст. (Текст – это последовательность символов, ввод которой заканчивается нажатием клавиши <Enter>.)

9. 1. Написать программу, которая подсчитывает количество букв ‘А’ в тексте. (Текст – это последовательность символов, ввод которой заканчивается нажатием клавиши <Enter>.) 2. Написать программу, которая печатает true, если в заданном тексте буква А встречается чаще, чем В, и печатает false в противном случае. 3. Составить программу, запрашивающую координаты ферзя на шахматном поле и показывающую поля доски, находящиеся под боем.

10. Задача: вычислить сумму цифр введенного числа Program Cumma_chisel; var ch:char; k,n,s:integer; begin s:=0; readln(ch); while ch<>#13 do begin if (ch>='0') and (ch<='9') then begin n:=ord(ch); s:=s+n-48; end; readln(ch); end; writeln('s=',s); end.