Задание №3 (обширное)

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

Методы работы со строками

Как вы знаете, тип-строка обозначается как String. Переменная такого типа может хранить любые символы, в т.ч. и буквы русского алфавита. Строки нельзя представлять как числа, их нельзя сопоставлять типу Integer и другим числовым, однако в некотором роде этот тип совместим с типом Char, который может хранить один символ. А сколько же может хранить строка? Ведь у всех типов есть свой диапазон. Действительно, это так и String тоже имеет свой диапазон.

Тип String может хранить до 255 символов, то есть максимальная длина строки - 255 знаков. Запомните это!

А теперь зададимся таким вопросом - как определить фактическую длину строки? Понятно, максимальная длина 255 символов. Но если нам нужно точно знать, сколько символов ввел пользователь? Это просто. Для этого есть специальная функция, которая и определяет длину строки. Это функция Length.

Функция Length (англ. ДЛИНА) - определяет, точное количество символов в строке. Заметьте, это функция, а не процедура. Сейчас постараюсь объяснить, в чем здесь разница.

Процедура выполняет какие-либо действия внутри себя, то есть все данные, которые ей передаются, доступны ей и только ей. Функция - результаты ее работы могут быть использованы прямо в программе, причем делается это простым присваиванием. То есть она возвращает значение от своего действия, и это значение можно занести в какую-либо переменную или использвоать в непосредственно в выражениях. Если не понятно, поймете на примере использвания Length.

Функция Length очень наглядно демонстрирует пример использования функций. Чтобы это показать, расскажу как использовать ее в действии.

Итак, имеем мы какую-нибудь строку, например S: String. Нам нужно вычислить ее длину. Понятно, что длина - то число, например, 120. При своей работе Length возвращает длину строки как результат своей работы. Зная принцип работы функий (можно присваивать их переменным), а также зная, что она возвращет число, мы и запишем:

A := Length(S);

,где A: Byte; S: String;

Вот и вся работа функции Length! После такого присваивания переменная А будет содержать длину строки. Естественно, если строка пустая - А будет равна нулю. Итак, пример использования функции Length:

Program N3;

var

A: Byte;

S: String;

begin

Write('Введите строку: ');

Readln(S);

A := Length(S);

Write('Длина введенной строки: ', A);

Readln;

end.

Видите, насколько посто использование функций? Усвойте это, в Паскале кроме Length есть довольно много функций. А теперь вспомните, что я говорил выше - результат функции можно использовать непосредственно в выражениях? Вспомнили? Под этим я понимал, что для использования значения, возвращемого функцией, необязательно присваивание его переменной, его можно сразу подставлять в выражения. Вот модифицированный пример предыдущей программы:

Program N4;

var

S: String;

begin

Write('Введите строку: ');

Readln(S);

Write('Длина введенной строки: ', Length(S));

Readln;

end.

Вот непосредственное использование в выражении. При такой конструкции Паскаль какбы "подставляет" вместо функции результат ее вычисления. Заметили, насколько при этом сократилась программа? Теперь давайте подумаем, какие еще есть выражения, куда можно прилепить функцию? Это может быть известная нам конструкция if...then...else. В ней с успехом могут быть использованы функции. Для примера напишем программу, которая будет читать строку, проверять - она меньше 10 символов? Если да, читать заново. Если нет, печатать ее длину. Текст программы:

Program N5;

label

L1;

var

S: String;

Begin

L1:

Write('Введите строку: ');

Readln(S);

if Length(S) < 10 then goto L1;

Write('Длина введенной строки: ', Length(S));

Readln;

end.

Заметили, мы используем сразу функцию, без промежуточных переменных. Здорово и удобно, правда?

Ну а теперь после изучения новой функции, которая понадобиться нам в дальнейшем, хочу рассказать о дополнительных медотах работы со строками.

Вы когда нибудь задавались вопросом, как можно обратиться к любому символу строки? Понятно, что строка - это набор символов, идущих один за другим. Обычно хватает работы с одними строками, но иногда нужно проверять и отдельные символы в строке. Вот, например понадобилось нам проверять - есть ли в введенной строке пробелы. Как мы сможем это сделать?

На самом деле, здесь все просто и такая возможность существует. Как это осуществить, читайте ниже.

Методы работы со строками - доступ к отдельным символам

Строка - это набор символов, идущих один за другим. При этом они все нумеруются по порядку и каждый из них имеет свой номер. Вот наглядный пример того, как нумеруются символы в сроке (для примера возьмем строку, в которой лежит слово "Строка"):

1	2		3	4	5	6
C	т		р	о	к	а

Вот таким образом и проводиться нумерация символов. Здесь видно, что для того, чтобы обратиться к символу "С", нужно обратиться к 1-му элeменту. К символу "р" - ко второму. Как же реализовать такое обращение?

Для этого нужно написать переменную-строку, с номером символа в ней, указанным в квадратных скобках - [ и ]. Вот пример обращения к символу "C":

S[1];

А вот полный пример присваивания переменной Char 1-го символа строки:

var

C: Char;

S: String;

begin

S := 'Строка';

C := S[1];

end.

Просто? Просто. А возможностей много. Ниже в разделе домашних заданий смотрите задание по этой теме.

Ну а теперь мы попробуем решить такую задачу:

Задача

Запросить у пользователя строку и проверить ее на пробелы. В качестве ответа вывести количество пробелов.

Решение

Как всегда давайте определяться, чтоже нам надо и как будем поступать.

1. Нам нужен будет счетчик, который будет хранить количество пробелов. Это не проблема - заведем переменную Byte.

2. Нам нужно сканировать все символы веденной строки по очереди и проверять, текущий символ является пробелом? Если да, то увеличиваем счетчик.

3. Выведем счетчик на экран.

Что скажете? Есть мысли по поводу того, как будем решать? Особых проблем возникнуть не должно, но как проверить все символы по очереди? Какой здесь использовать алгоритм?

Если вы сами еще не догадались, привожу описание алгоритма, с помощью которого будем проводить сканирование.

Итак, что нам нужно, чтобы проверить все символы по очереди? Нам нужно всего лишь знать количество этих символов, после чего мы сможет пустить цикл - от 1 до этого количества. В этом цикле и будем производить сравнение. При этом текущим символом будет являться значение цикла. Догадались? Если что-то непонятно, просмотрите материал выше, ну а если все ясно, привожу текст программы:

Program N6;

var

I: Byte;

Count: Byte;

S: String;

begin

Write('Введите строку: ');

Readln(S);

For I := 1 to Length(S) do

If S[I] = ' ' then Inc(Count);

Write('Количество пробелов: ', Count);

Readln;

end.

Вот, собственно и есть вся релизация этого алгоритма. В качестве комментариев хочу сказать следующее:

1. Обратите внимание, что я использую описанную выше возможность функций - подстановку в выражениях;

2. Также заметьте, что я не пишу begin...end в цикле For, хотя там и не однин оператор. Это потому, что констрункция if...then...else вместе с теми операторами, что в ней заключены, является всеже одним действием и выполняется едино.

На этом хочу закончить, сегодня вам довольно много информации для размышления. Разбирайтесь, делайте и решайте возникшие у вас задачи. Придумывайте побольше сами! В качестве практичеких заданий я дам вам пару задач по темам "циклы" и "строки", простых, но требующих внимания.

Задания:

1.По теме "циклы": - напишите программу, печатающую столбик строк такого вида:

1 0 0 0 0 0 0 0 0

0 2 0 0 0 0 0 0 0

0 0 3 0 0 0 0 0 0

0 0 0 4 0 0 0 0 0

0 0 0 0 5 0 0 0 0

0 0 0 0 0 6 0 0 0

0 0 0 0 0 0 7 0 0

0 0 0 0 0 0 0 8 0

0 0 0 0 0 0 0 0 9