В ПОМОЩЬ СТУДЕНТУ
И ШКОЛЬНИКУ
Горбачев Л.И. Основы программирования в среде Turbo Pascal.
СИМВОЛЫ И СТРОКИ.
Помимо числовой информации компьютер может обрабатывать символьную информацию. Турбо Паскаль оперирует с символьной информацией, которая может быть представлена отдельными символами или строками символов.
Символы.
Для хранения и обработки отдельных символов используются переменные типа CHAR. Значением переменной типа CHAR может быть любой символ.
Как и любая переменная программы, переменная типа CHAR может получить значение в результате выполнения присваивания или ввода (Read, ReadLn). Если переменная типа CHAR получает значение в результате выполнения операции присваивания, то справа от знака := должно стоять выражение типа CHAR, например, переменная типа CHAR или символьная константа - символ, заключенный в апострофы.
Переменную типа CHAR можно сравнивать с другой переменной типа CHAR или с символьной константой. Сравнение основано на том, что каждому символу поставлено в соответствие число (код из кодовой таблицы ASCII).
Таким образом, можно
записать:
'0'<1<...<9<...A
Символам русского
языка соответствуют коды таблицы ASCII большие, чем символа латинского алфавита,
при этом справедливо
следующее:
'А'<Б<В<...<Ю<Я<а<б<в<...<э<ю<я.
Пример: Программа выводит на экран первую половину таблицы кодировка
символов (символы с кодами от 0 до 128). так как символы с кодами от 7 до 13
являются служебными, например, при выводе символа с кодом 7 раздается звуковой
сигнал, а символ с кодом 13 вызовет переход к новой строке, то вместо этих
символов в таблице выведем пробелы.
Program TabChar;
Uses CRT;
Var Ch :
char; { Символ }
dec : integer; { Десятичный код символа }
i, j :
integer;
Begin
ClrScr;
dec := 0;
for i := 1 to 16 do { Шестнадцать
строк }
begin
{ Чтобы получить таблицу кодировки для символов с кодами
128-255, следующую инструкцию замените на dec:=i+128; }
dec := i;
for j :=
1 to 8 do { ...восемь колонок }
begin
if (dec < 7) or (dec >= 14)
then
Write(dec:4, '-', ' ', chr(dec):1, chr(179))
else { ...символы CR,
LF, TAB не отображаются }
Write(dec:4, '-', ' ', chr(179));
dec := dec +
16;
end;
WriteLn; { ...переход к новой строке экрана
}
end;
ReadLn
End.
| Главная |
| Новости |
| TurboPascal |
| Учебное пособие |
| Лекции |
| Исходники |
| Математика |
| Книги |
| Лекции |
| Шпоры |
| ЦТ и ЕГЭ |
| Физика |
| Шпоры |
| ЦТ и ЕГЭ |
|
Литература |
| Другое |
| Мой родной край |
| Фотогалерея |
| Форум |
| Ссылки |
© Copyright(c) 2004 Amro Group. All rights reserved
