Записи (record)

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

Запись – структурированный тип данных, состоящий из фиксированного числа величин разных типов, называемых полями или компонентами записи. Так же как массив, запись содержит ряд отдельных компонент, но компоненты могут быть разных типов.

Схема записи:

type <имя типа записи> = record

имя поля 1: тип;

…………………

имя типа N: тип

end;

Как и при описании массивов, можно совместить описание типа записи и соответствующих переменных.

Для доступа к полям используются составные имена, состоящие из имени переменной типа запись и имени поля, разделенных точкой. Например, M1.Marka – обращение к полю Marka. Поля могут получать значения с помощью оператора присваивания: M1.Marka:=’Волга 3110’; M1.Fio:=’Петров А.И.’;

Составные имена можно использовать в операторе ввода-вывода: writeln(M1.Marka); и т.д. Поля записи, в свою очередь, могут быть записями.

Для сокращения записей при использовании составных имен применяется оператор with. Его структура: with <имя записи> do <оператор>. В операторе можно использовать имена полей без имени переменной типа запись.

В Паскале разрешается использовать тип «запись» при описании других составных типов данных, например, можно построить массив записей.

Пример. Используя записи составить программу начисления стипендии

Предположим, что вводится список группы с оценками за экзамены. Графа «Балл» вычисляет суммарную оценку. Графа «Сумма» определяет размер стипендии по правилу: если нет троек и балл равен 12, то стипендия 600 рублей, если нет четверок, и балл равен 15, то стипендия 800 рублей. В других случаях сумма равна нулю.

№	ФИО	Эк 1	Эк 2	Эк 3	Балл	Сумма
	Иванов

Program spisok;

type stud= record

fio: string[20];

ex1, ex2, ex3: 2..5;

bal: 6..15;

sum: real;

end;

var x: array[1..30] of stud;

i,k,m,n: integer;

y: 6..15; z: stud;

begin write (‘введи число студентов:’); readln (n);

for i:=1 to n with x[i] do

begin write (‘введи ФИО’, i,’-го студента:’);

readln (fio); write (‘введи три оценки:’);

readln (ex1,ex2,ex3);

end;

for i:=1 to n do with x[i] do

begin bal:=ex1+ex2+ex3;

if (ex1=2) or (ex1=3) or (ex2=2) or (ex2=3) or (ex3=2) or (ex3=3)

then sum:=0 else if bal<12 then sum:=0

else if bal<15 then sum:=600 else if bal=15 then sum:=800;

end;

{Можно перед распечаткой ведомости упорядочить записи по убыванию в графе «Балл»}

{ for k:=1 to n-1 do begin y:=x[k].bal; m:=k;

for i:=k+1 to n do if y<x[i].bal then begin y:=x[i].bal; m:=i end;

z:=x[k]; x[k]:=x[m]; x[m]:=z; end;}

writeln; writeln (‘Стипендиальная ведомость’);

for i:=1 to 64 do write (‘-‘); writeln;

write (‘N|ФИО|эк1|эк2|эк3|балл|сумма|’);

for i:=1 to 64 do write (‘-‘); writeln;

for i:=1 to n do with x[i] do

begin write (i:3, fio:20, ex1:4, ex2:4, ex3:4); writeln (bal:5, sum:9:2); end end.

Задания к работе 6

Дата добавления: 2015-06-04