УРОК 12.  СТРОКИ В СТАНДАРТНОМ ПАСКАЛЕ.

В ЭТОМ УРОКЕ МЫ С ВАМИ ПЕРЕЙДЁМ ОТ ЦИФР К СЛОВАМ, А ТОЧНЕЕ К СТАНДАРТНЫМ СТРОКАМ.

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

CONST

Name: ‘ВАСИЛИЙ ПУПКИН’;

ТАКОЕ ОБЪЯВЛЕНИЕ ДАЁТ НАМ ВОЗМОЖНОСТЬ ИСПОЛЬЗОВАТЬ ИМЕНОВАННУЮ КОНСТАНТУ NAME ВМЕСТО САМОЙ СТРОКИ, НО ВАМ НУЖНО ОБЯЗАТЕЛЬНО ЗАПОМНИТЬ, ЧТО В ПРОГРАММЕ НЕЛЬЗЯ ПРИСВОИТЬ КОНСТАНТЕ ЛЮБОЕ ЗНАЧЕНИЕ. САМО ПО СЕБЕ, ПОНЯТИЕ СТРОКОВОЙ ПЕРЕМЕННОЙ В ПАСКАЛЕ НЕ СУЩЕСТВУЕТ. СТРОКА В ПАСКАЛЕ ХРАНИТСЯ В PACKED ARRAY OF CHAR ( УПАКОВАННЫЙ МАССИВ СИМВОЛОВ ), КОТОРЫЙ МОЖНО ОБЪЯВИТЬ ПРИМЕРНО ТАК:

VAR

Name: PACKED АRRAY [1…20] OF CHAR;

ЭТО ЗНАЧИТ, ЧТО ВАША СТРОКА БУДЕТ ДЛИНОЙ РОВНО 20 СИМВОЛОВ, НЕ БОЛЬШЕ И НЕ МЕНЬШЕ!

МОЖНО ОБЪЯВИТЬ ПЕРЕМЕННУЮ ТИПА STRING, НАПРИМЕР:

VAR

Name: STRING;

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

VAR

Name: STRING[20];

ДЛИНА СТРОКИ В ЭТОМ СЛУЧАЕ БУДЕТ РАВНА ДВАДЦАТИ СИМВОЛАМ. ВНИЗУ ПРИВЕДЁН ПРИМЕР ПРОГРАММЫ, КОТОРЫЙ ЧИТАЕТ ИМЯ ДЛИНОЙ МАКСИМУМ В 20 СИМВОЛОВ И ВЫВОДИТ ЕГО НА ЭКРАН:

PROGRAM Primer14 (INPUT, OUTPUT);

VAR

Name: STRING[20];

BEGIN

WRITELN (‘ВВЕДИТЕ ИМЯ ДЛИНОЙ НЕ БОЛЕЕ 20 СИМВОЛОВ:’);

READLN (Name);

WRITELN (‘ВЫ ВВЕЛИ ИМЯ ‘,Name,’ ПРАВИЛЬНО?’);

END.

ЕСЛИ, ДОПУСТИМ, ВЫ ЗАХОТИТЕ ЧТОБЫ ВАША ПРОГРАММА МОГЛА ОПРЕДЕЛЯТЬ ДИНАМИЧЕСКУЮ ДЛИНУ СТРОКИ, Т.Е. СКОЛЬКО СИМВОЛОВ ( КОЛИЧЕСТВО ) ВЫ ВВЕЛИ, ТО ДЛЯ ЭТОГО СЛУЖИТ ФУНКЦИЯ LENGTH:

LENGTH ( Name )

В КАЧЕСТВЕ ПРИМЕРА, ИЗМЕНИМ ВЫШЕОПИСАННУЮ ПРОГРАММУ:

PROGRAM Primer14 (INPUT, OUTPUT);

VAR

Name: STRING[20];

BEGIN

WRITELN (‘ВВЕДИТЕ ИМЯ ДЛИНОЙ НЕ БОЛЕЕ 20 СИМВОЛОВ:’);

READLN (Name);

WRINELN (‘ДИНАМИЧЕСКАЯ ДЛИНА СТРОКИ РАВНА ‘,LENGTH (Name),’СИМВОЛОВ’);

END.

КАК ВИДЕТЕ, ПРОГРАММА СОСЧИТАЛА КОЛИЧЕСТВО ВВЕДЁННЫХ ВАМИ СИМВОЛОВ И ВЫВЕЛА ИХ РЕЗУЛЬТАТ НА ЭКРАН.