КОМБИНИРОВАННЫЙ ТИП ДАННЫХ (ЗАПИСИ)

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

Пример 1

Известны фамилии и оценки (в баллах) по пяти дис­циплинам каждого из двадцати пяти учеников класса. Тре­буется вычислить среднюю оценку каждого из учеников и выбрать человека, имеющего максимальный средний балл.

В данном случае фамилия может быть представлена символьной строкой, оценки − это целые числа, а сред­ний балл должен быть представлен вещественным (дейст­вительным) числом. В Паскале для описания объектов, содержащих данные разных типов, используются записи.

Запись − это структурированный тип, описывающий набор данных разных типов. Составляющие запись объекты называются ее полями. Каждое поле имеет уникальное (в пределах записи) имя. Чтобы описать запись, необходимо указать ее имя, имена объектов, составляющих запись, и их типы. Общий вид описания записи следующий:

Type <имя записи>=Record

 <поле 1>:<тип 1>;

<поле 2>:<тип 2>;

<поле n>:<тип n>

End;

Применительно к рассматриваемой задаче запись мож­но описать следующим образом:

Type

pupil=Record

fam: String[15];

{поле фамилии ученика}

b1, b2, b3, b4, b5: 2..5;

{поля баллов по дисциплинам}

sb: Real{поле среднего балла}

End;

Переменная типа pupil будет хранить структуру, содержащую информацию об одном ученике.

Чтобы хранить в памяти ЭВМ информацию обо всех 25 учениках класса, необходимо ввести массив klass, представляющий массив записей:

Var klass: Array[1..25] Of pupil;

Примечания

1. Имена полей, составляющих запись, не должны повто­ряться.

2. Каждое поле записи может иметь любой тип (кроме файлового), в частности, оно может быть снова записью.

Доступ к полям записи можно осуществить двумя спо­собами:

С указанием имени переменной и имени поля. Напри­мер, klass[2].fam, klass[3].sb, klass[1].b4. Ввод фамилий и оценок учащихся, то есть элементов массива klass, можно записать так:

For i:=1 To 25 Do

Begin

Readln(klass[i].fam);

Readln(klass[i].b1);

Readln(klass[i].b2);

Readln(klass[i].b3);

Readln(klass[i].b4);

Readln(klass[i].b5);

End;

С использованием оператора присоединения. Имеет­ся возможность осуществлять доступ к полям записи та­ким образом, как если бы они были простыми перемен­ными. Общий вид оператора присоединения:

With <имя записи> Do <оператор>;

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

Пример 2

For i:=1 To 25 Do

With klass [i] Do

Begin

Readln(fam);

Readln (b1, b2, b3, b4, b5);

End;

Программа для решения рассматриваемой задачи мо­жет быть записана следующим образом:

Program Example_144;

Туре

pupil=Record

fam: String[15] ;

b1, b2, b3, b4, b5:2..5;

sb: Real;

End;

Var klass: Array[1..25] Of pupil;

p: pupil;

i, m: Integer;

sbmax: Real;

Begin

For i:=1 To 25 Do {ввод исходных данных}

With klass[i] Do

Begin

Writeln ('Введите фамилию и пять

оценок');

Readln(fam);

Readln(b1, b2, b3, b4, b5);

End;

For i:=1 To m Do

{вычисление среднего балла}

With klass[i] Do

sb:=(b1+b2+b3+b4+b5)/5;

For i:=1 To 25 Do {вывод данных}

With klass[i] Do

Writeln(fam:20, '-', b1:5,

b2:5,b3:5,b4:5,b5:5,sb:6:3);

sbmax:=0;

{поиск максимального среднего балла}

For i:=1 To m Do

If klass[i].sb>=sbmax Then

sbmax:=klass[i].sb;

For i:=1 To m Do {печать результатов}

If klass[i].sb=sbmax Then

With klass[i] Do Writeln(fam:20,' - ',

sb: 6:3);

Readln;

End.

Пример 3

Определить дату завтрашнего дня.

Решение

Чтобы определить дату завтрашнего дня, надо знать не только дату сегодняшнего дня, но и количество дней в данном месяце (так как если это последний день меся­ца, то завтра будет первый день следующего), кроме того, надо знать, какой год − високосный или нет (от этого зависит количество дней в феврале).

Пусть дата вводится в формате число − месяц − год следующим образом:

1 2 1997

Опишем запись для хранения даты таким образом:

Type year=1500..2000;

month=1..12;

day=1..31;

data=Record

у: year;

m: month;

d: day;

End;

Заметим, что:

Если дата соответствует не последнему дню меся­ца, то год и месяц не изменяются, а число увели­чивается на 1.

Если дата соответствует последнему дню месяца, то:

а) если месяц не декабрь, то год не изменяется, месяц увеличивается на 1, а число устанавливается в 1;

б) если месяц − декабрь, то год увеличивается на 1, а месяц и число устанавливаются в 1.

Program Example_145;

Type year=1500..2000;

month=1..12;

day=1..31;

data=Record у: year;

m: month;

d: day;

End;

Var dat, next: data;

{dat - переменная для сегодняшней даты

next - переменная для определения даты

завтрашнего дня}

Function Leap(yy: year ): Boolean;

{функция, определяющая, високосный год

или нет}

Begin

{год называется високосным, если его номер делится на 4, но если это год столетия, то номер столетия високосного года не делится на 4, то есть не номер года делится на 400}

Leap:=(yy Mod 4=0) And (yy Mod 400<>0);

End;

Function Dmonth (mm: month; yy: year): day;

{функция определения количества дней

данного месяца в данном году}

Begin

Case mm Of

1, 3, 5, 7, 8, 10, 12: Dmonth:=31;

4, 6, 9, 11: Dmonth:=30;

2: If Leap (yy) Then Dmonth:=29

Else Dmonth:=28;

End;

End;

Procedure Tomorrow(td: data;Var nd: data);

{процедура определения завтрашней даты}

Begin {если это не последний день месяца}

If td.d<>Dmonth(td.m, td.у) Then

With nd Do

Begind:=td.d+1;

m:=td.m;

y:=td.y;

End

Else {если это последний день месяца}

If td.m=12 Then {если это декабрь}

With nd Do

Begin

d:=1;

m:=1;

y:=td.y+1;

End

Else {если это не декабрь}

With nd Do

Begin

d:=1;

m:=td.m+1;

y:=td.y;

End;

End;

Begin

  Writeln('Введите сегодняшнее число,

месяц и год ');

Readln(dat.d, dat.m, dat.y);

Tomorrow(dat, next);

Writeln('Завтра будет ');

Writeln(next.d, '.', next.m, '.',

 next.y);

Readln;

End.