Размер шрифта
A- A+
Межбуквенное растояние
Цвет сайта
A A A A
Изоображения
Дополнительно

символьные 1 урок

     Для работы с символами в языке Pascal предусмотрен специаль­ный тип данных, который называется символьным и обозначается char(от англ. character — символ). Значениями переменных этого типа яв­ляются отдельные символы: буквы, цифры, знаки.

     Символьные переменные описываются так:

                   var  имя_переменной:   char;

    Пример описания переменных: var  a,   b,   ch:   char;

     Каждый символ имеет свой уникальный двоичный код от 00000000 до 11111111 (от 0 до 255 в десятичном представлении).

Коды всех символов размещают в таблице (приложение 1). Первая половина таблицы (коды 0...127) стала между­народным стандартом, который называется ASCII — AmericanStandardCodeforInformationInterchange (читается «аски код»). В ней содержат­ся цифры, латинский алфавит и служебные символы. Во второй поло­вине таблицы размещены символы национальных алфавитов.

     Над символьными переменными можно выполнять следующие дей­ствия: присваивание, ввод и вывод, сцепление (конкатенацию), сравне­ние символов.

     Значения символьных констант и переменных заключают в апо­строфы (одинарные кавычки), например: 'А', 'В', 'С, '4', '7', ' ' (пробел). Если нужно использовать сам апостроф, то его повторяют дважды: В: ='''' . Символьные значения можно задавать и их числовы­ми кодами. В этом случае перед кодом записывают знак #.

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

     program  Pl;

       var  a, b, с, d: char;

     begin

       d:='!'; 

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

       writeln(a+b+c+d); 

     end.

Пример 2. Составить программу, спрашивающую «Хотите ли Вы посетить наш магазин? (д/н)», и в зависимости от ответа выводит подходящее сообщение.

     program  Pl;

       var  a:   char;

     begin

       write('Хотите ли Вы посетить наш магазин? (д/н) ');

       read(a);

       If  a= 'д' thenWrite ('Приятных покупок! ') else Write('До свидания ')  

     end.

Разделы сайта