2015-01-21
1307
(записи)
При использовании массивов основное ограничение заключается в том, что все элементы должны иметь один и тот же тип. Но при решении многих задач возникает необходимость хранить и обрабатывать совокупность данных различного типа.
Пусть известны фамилии и оценки (в баллах) по пяти дисциплинам каждого из двадцати пяти учеников класса. Требуется вычислить среднюю оценку каждого из учеников и выбрать человека, имеющего максимальный средний балл.
В данном случае фамилия может быть представлена символьной строкой, оценки - это целые числа, а средний балл должен быть представлен вещественным числом. В Паскале для описания объектов, содержащих данные разных типов, используются записи.
Запись - это структурированный тип, описывающий набор данных разных типов. Составляющие запись объекты называются ее полями. Каждое поле имеет уникальное (в пределах записи) имя. Чтобы описать запись, необходимо указать ее имя, имена объектов, составляющих запись, и их типы.
Общий вид описания записи:
|
|
|
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;
Чтобы хранить в памяти ЭВМ информацию обо всех 25 учениках класса, необходимо ввести массив klass - массив записей.
Var klass: array[1..25] Of pupil;
Доступ к полям записи можно осуществить двумя способами:
1. С указанием имени переменной и имени поля. Например, 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;
2. С использованием оператора присоединения.
Имеется возможность осуществлять доступ к полям записи таким образом, как если бы они были простыми переменными. Общий вид оператора присоединения:
With < имя записи > Do < оператор >;
Внутри оператора присоединения к компонентам записи можно обращаться только с помощью имени соответствующего поля.
Пример
for i:=1 to 25 do
With klass[i] do
Begin
readln(fam);
readln(b1,b2,b3,b4,b5);
end;
Программа для решения рассматриваемой задачи может быть записана следующим образом:
program zap;
Type pupil = Record
fam: string[15]; {поле фамилии}
b1,b2,b3,b4,b5: 2..5; {поля баллов}
sb: Real {средний бал}
End;
Var klass: array[1..25] Of pupil;
p: pupl;
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;
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);
End.
Пример. Определите дату завтрашнего дня.
Чтобы определить дату завтрашнего дня, надо знать не только дату сегодняшнего дня, но и количество дней в данном месяце (так как если это последний день месяца, то завтра будет первый день следующего), кроме того, надо знать, какой год - високосный или нет.
Пусть дата вводится в формате число - месяц - год следующим образом:
1 2 1997
Опишем запись для хранения даты таким образом:
Type year=1500..2000;
month=1..12;
day=1..31;
data = Record
y: year;
m: month;
d: day;
end;
Заметим, что:
* если дата соответствует не последнему дню месяца, то год и месяц не изменяются, а число увеличивается на 1;
* если дата соответствует последнему дню месяца, то:
а) если месяц не декабрь, то год не изменяется, месяц увеличивается на 1, а число устанавливается в 1;
б) если месяц - декабрь, то год увеличивается на 1, а месяц и число устанавливаются в 1.
Program datanext;
Type year=1500..2000;
month=1..12;
day=1..31;
data = Record
y: year;
m: month;
d: day;
end;
Var dat, next: data;
Function leap(yy:year):boolean; {функция определяет
високосный ли год}
Begin
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.y) then
with nd do
Begin
d:=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);
END.
