20.9. Взаимно рекурсивные подпрограммы

Две подпрограммы называются взаимно рекурсивными, если первая подпрограмма обращается ко второй, а втораяк первой. Обычное описание таких подпрограмм невозможно, так как при этом вызов подпрограммы будет предшествовать ее описанию. Противоречие разрешается использованиемопережающего описания. Описывается заголовок одной из подпрограмм, а тело ее заменяется ключевым словомforward. Затем описывается другая подпрограмма полностью, а после неенеполный заголовок (без указания параметров) и тело первой подпрограммы:

Program pr1(x:real);

forward;

procedure pr2(...);

{описание тела с вызовом pr1}

procedure pr1;

{ описание тела с вызовом pr2 };

21. Комбинированный тип (запись)

Комбинированный тип данных или тип запись это структурированный тип, состоящий из компонентов, типы которых могут быть различны. Компоненты записей называются полями. Записи удобно использовать для хранения и обработки различных характеристик одного и того же объекта. Например, отдел кадров хранит и поддерживает в актуальном состоянии информацию о каждом сотруднике: фамилия, имя, отчество, пол, дата рождения, адрес, образование, оклад и т.п. Записиосновная структура данных, используемая в информационных системах.

Описание записи:

Идентификаторы имена полей. Типы полей могут быть любыми.

Пример 1.

Const MaxLen = 25;

type t_range=1.. MaxLen;

t_date=record {Тип для работы с датами}

day: 1..31;

month: 1..12;

year: 0..9999

end; {endзаписано под соответствующимrecord}

t_student=record {Тип для хранения информации о студенте}

name : string[20];

birthday : t_date; {Поле-запись}

group : string[5];

marks : array[1..4] of 2..5

end;

t_group= array[t_range] of t_student;

var d1,d2:t_date; {Переменные для хранения дат}

group :t_group;{Переменная для хранения информации о студентах группы}

Над записями, как едиными целыми, не определены никакие операции. Совместимость по присваиванию требует тождественности типов. Для описанных выше переменных допустимы присваивания:

d1:=d2;group[1]: =group[25].

Обращение к полю записи представляет собой составное имя:

Составное имя можно использовать везде, где допустим тип поля. Например, d1.day:=5; read(group[1].name). Имена полей записей могут совпадать с именами других переменных, при этом путаницы не возникает, так как обращение к ним иное. Например,groupмассив,group[i]элемент массива,group[i].groupполеi-й записи.

Пример 2.Процедура для определения даты следующего дня невисокосного года:

Procedure next_date(d1: t_date; var d2: t_date);

{d1 - данная дата,d2 - результат (дата следующего дня)}

varmax: 28..31; {число дней в месяце}

begind2:=d1;

cased2.monthof{Определение числа дней в заданном месяце}

2: max:=28;

4, 6, 9, 11: max:=30

else max:=31

end;

if d2.day<max then d2.day:= d2.day+1

else begin d2.day:= 1;

if d2.month<12 then d2.month:= d2.month+1

else begin d2.month:= 1; d2.year:= d2.year+1

end

end

end;

21.1. Оператор присоединения

В Паскале есть возможность обращаться к полям записи без указания имени записи. Такую возможность дает оператор присоединения:

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

Пример 3. Описание процедуры ввода информации о студентах группы.

Procedure read_group(var gr : t_group; n : t_range); {n  число студентов}

begin write(‘Введите число студентов’, MaxLen); read(n);

writeln(‘Введите. фам., даты рожд., группу и экз. оценки студентов.’);

for i:=1 to n do

with group[i], birthday do

begin read(name); {вместо gr[i].name}

readln(day, month, year); {вместо gr[i]. birthday. day, ... }

read(group);

for j:=1 to 4 do

read(mark[j]); {вместо gr[i]. mark[j]}

readln

end

end;

With group[i], birthday do <оператор>

Оператор

р

with group[i] do with birthday do<оператор>

авносилен оператору