Исходная строка

Не говорите мне - он умер - он живет. Пусть жертвенник разбит, огонь еще пылает, пусть роза сорвана, она еще цветет ...

Исправленная строка

Не говорите мне он умер он живет пусть жертвенник разбит огонь еще пылает пусть роза сорвана она еще цветет

Слова количество

Не 1

Говорите 1

Мне 1

Он 2

Умер 1

Живет 1

Пусть 2

Жертвенник 1

Разбит 1

Огонь 1

Еще 2

Пылает 1

Роза 1

Сорвана 1

Она 1

Цветет 1

Структуры

Вторым, принципиально отличающимся от массива составным типом, является структура.

Структурой называется совокупность разнотипных простых (или составных) данных, объединенных общим именем и расположенных в памяти ЭВМ подряд; обращение к элементам, составляющим структуру, осуществляется с помощью указания, как общего имени структуры, так и внутреннего имени каждого элемента структуры. Имена записываются подряд, разделяясь точкой.

В языке Паскаль этот тип данных носит название "запись". Для его задания используется ключевое слово "record". Примеры описаний переменных типа запись:

TYPE

book = record{ задаем описатель записи - book (книга)}

Title : string;{ поле названия}

Author: string[20]; { поле для фамилии автора }

Pages: word; { поле для количества страниц -

VAR

Instruction,Dictionary : book; {заводим две переменные типа book

Library :array[1..30000] of book; {и массив из 30000 структур типа

book }

Имена полей не должны повторяться в пределах записи, но могут совпадать с именами полей в записях других типов или с именами простых переменных. Общий объем памяти для одной структуры равен сумме объемов, занимаемых отдельными полями этой структуры.

Для переменных и констант типа запись как единого целого, возможны операции чтения или записи, присваивания и операции сравнения на равенство

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

BEGIN

. . . {присваивание значений полям}

Dictionary.Title:='Толковый словарь по вычислительным системам'; Dictionary.Author:='В.Иллингуорт';

Dictionary.Pages:=560;

Dictionary.Price:=180;

{ вывод названия книги на экран}

Writeln('Название: ',Dictionary.Title);

. . .

for i:=1 to 3000 do { печать фамилий авторов дорогих книг библиотеки }

if Library[i].Price > 1000 then Writeln(Library[i].Author);

Как видно из примера, обращение к отдельным полям записи может иметь довольно громоздкий вид. Для некоторого удобства предусмотрено использование специального оператора "with", в котором можно указать общее имя переменной. Например, то же заполнение полей переменной Dictionary можно выполнить так: