Вторник, 20.02.2018, 03:05
ПРОГРАММИРОВАНИЕ ДЛЯ НОВИЧКОВ. ТУРБО ПАСКАЛЬ.
Приветствую Вас Гость | RSS
Главная Регистрация Вход
меню сайта

Форма входа

Поиск

Календарь
«  Март 2010  »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
293031

Друзья сайта
Русские программы
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • сайт создан

    Главная » 2010 » Март » 8 » УРОК 11. СТАНДАРТНЫЕ СИМВОЛЬНЫЕ ФУНКЦИИ.
    01:45
    УРОК 11. СТАНДАРТНЫЕ СИМВОЛЬНЫЕ ФУНКЦИИ.

    УРОК 11.  СТАНДАРТНЫЕ СИМВОЛЬНЫЕ ФУНКЦИИ.

     

    В ПАСКАЛЕ СУЩЕСТВУЕТ ЧЕТЫРЕ СТАНДАРТНЫЕ ФУНКЦИИ ДЛЯ РАБОТЫ С СИМВОЛАМИ:

     

    ORD (n)  ВОЗВРАЩАЕТ ПОРЯДКОВЫЙ НОМЕР СИМВОЛА (n);

    CHR (n)  ВОЗВРАЩАЕТ СИМВОЛ, ПРЕДСТАВЛЕННЫЙ ПОРЯДКОВЫМ НОМЕРОМ (n);

    PRED (n) ВОЗВРАЩАЕТ СИМВОЛ, ПРЕДШЕСТВУЮЩИЙ СИМВОЛУ (n) В СООТВЕТСТВИИ С ПОРЯДКОВЫМ НОМЕРОМ;

    SUCC (n) ВОЗВРАЩАЕТ СИМВОЛ, СЛЕДУЮЩИЙ ЗА СИМВОЛОМ (n) В СООТВЕТСТВИИ С ПОРЯДКОВЫМ НОМЕРОМ.

     

    ЭТО ОЗНАЧАЕТ, К ПРИМЕРУ, ЧТО МОЖНО ПОЛУЧИТЬ ПОРЯДКОВЫЙ НОМЕР ЛЮБОГО СИМВОЛА ПРИ ПОМОЩИ ORD:

     

    WRITELN (ORD (‘A’));

     

    ПОРЯДКОВЫЙ НОМЕР СИМВОЛА 'A' БУДЕТ ВЫВЕДЕН НА ЭКРАН.

    К ПРИМЕРУ, ВОТ ТАКАЯ ПРОГРАММА:

     

    PROGRAM Primer11 (INPUT, OUTPUT);

    VAR

    Bucva: CHAR;

    BEGIN

    WRITELN (‘ВВЕДИТЕ БУКВУ:’);

    READLN (Bucva);

    WRITELN (‘ПОРЯДКОВЫЙ НОМЕР ЭТОЙ БУКВЫ’, ORD (Bucva));

    WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ КЛАВИШУ <ENTER>…’);

    READLN

    END.

     

    ОБРАТИТЕ ВНИМАНИЕ В ЭТОЙ ПРОГРАММЕ НА ПОСЛЕДНИЙ ОПЕРАТОР READLN, ОН НАПИСАН БЕЗ СКОБОК, ЧТО ЗАСТАВЛЯЕТ ПРОГРАММУ ЖДАТЬ ПОКА ВЫ НЕ НАЖМЁТЕ КЛАВИШУ <ENTER).

    ПРОТИВОПОЛОЖНОСТЬЮ ФУНКЦИИ ORD ЯВЛЯЕТСЯ ФУНКЦИЯ CHR, ОНА ПРИНИМАЕТ ПАРАМЕТРОМ ПОРЯДКОВЫЙ НОМЕР, А ВЫДАЁТ СИМВОЛ, СООТВЕТСТВУЮЩИЙ ЭТОМУ НОМЕРУ:

     

    WRITELN (CHR (66));

     

    ПРОГРАММА, ПРИВЕДЁННАЯ НИЖЕ, ПОКАЗЫВАЕТ РАБОТУ CHR В ДЕЙСТВИИ. ВЫ ВВОДИТЕ ПОРЯДКОВЫЙ НОМЕР, А ПРОГРАММА ВЫВОДИТ НА ЭКРАН СООТВЕТСТВУЮЩИЙ СИМВОЛ:

     

    PROGRAM Primer12 (INPUT, OUTPUT);

    VAR

    Nomer: BYTE;

    BEGIN

    WRITELN (‘ВВЕДИТЕ НОМЕР ОТ 0 ДО 255:’);

    READLN (Nomer);

    WRITELN (‘ЭТО СООТВЕТСТВУЕТ СИМВОЛУ ‘’ ‘,CHR (Nomer),’ ‘’ ‘);

    WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ <ENTER>…’);

    READLN

    END.

     

    ДЛЯ ХРАНЕНИЯ ПОРЯДКОВЫХ НОМЕРОВ, В ЭТОМ ПРИМЕРЕ ИСПОЛЬЗУЕТСЯ ТИП BYTE, КОТОРЫЙ, КАК ВЫ УЖЕ ЗНАЕТЕ ИЗ ПРЕДЫДУЩИХ НАШИХ С ВАМИ УРОКОВ, ПРЕДСТАВЛЯЕТ СОБОЙ ЦЕЛЫЕ ЧИСЛА ОТ 0 ДО 255. ЕСЛИ У ВАС ТАКОГО ТИПА НЕТ НА КОМПЬЮТЕРЕ, ТО ИСПОЛЬЗУЙТЕ ТИП INTEGER.

    СЛЕДУЮЩИЙ ПРИМЕР ПОКАЗЫВАЕТ КАК ИСПОЛЬЗУЮТСЯ ФУНКЦИИ PRED И SUCC. ВЫ ВВОДИТЕ КАКОЙ-ЛИБО СИМВОЛ, А ПРОГРАММА УЖЕ ВЫВОДИТ НА ЭКРАН ПРЕДШЕСТВУЮЩИЙ И ПОСЛЕДУЮЩИЙ СИМВОЛЫ:

     

    PROGRAM Primer13 (INPUT, OUTPUT);

    VAR

    Letter: CHAR;

    WRITE (‘ВВЕДИТЕ СИМВОЛ:’);

    READLN (Letter);

    WRITELN (‘ПРЕДШЕСТВУЮЩИЙ СИМВОЛ – '’ ‘PRED (Letter),’ ‘’ ‘ );

    WRITELN (‘ПОСЛЕДУЮЩИЙ СИМВОЛ – ‘’ ‘,SUCC (Letter), ‘ ‘’ ‘);

    WRITELN (‘ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ <ENTER>…’);

    READLN

    END.

    Просмотров: 1914 | Добавил: mila | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *:
    Архив записей

    Мини-чат

    подписка на рассыл
    Подписаться на турбо паскаль
    Имя:
    E-mail:

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    Copyright MyCorp © 2018