Читайте также:
|
Записи в Паскале - фиксированное число элементов одного или нескольких типов. Т.е. в отличие от массивов, в которых содержатся элементы одного типа, в записях могут содержаться элементы как одного, так и разных типов. Например, сведения о книгах: автор, название книги, издательство, год издания, её цена. Первые три элемента относится к строковому типу данных, четвертый к целому, а цена - к вещественному типу. Элементами записей могут быть базовые типы, переменные, массивы, указатели, записи и т.д. Элементы записи вместе с их описанием называются полями записи. Над элементами записи можно выполнять действия, допустимые для данных этого типа.
Все записи должны быть описаны в разделе TYPE. Описание записи начинается со служебного слова RECORD заканчивается END, между которыми указывается список имен и типов полей, выбранных пользователем.
Все идентификаторы полей в записи должны быть различными.
Например, запись Вооk можно описать следующим типом card:
TYPE card = record
Author: string [15];
Title: string [20];
Firm: string[10];
year: integer;
cena: real
End;
VAR Book: card;
Тип записи (например, card) вводит только шаблон записи и с его именем не связан никакой конкретный объект. Обращение к полю выполняется с помощью составного имени (селектора записи), которое состоит из:
<имя_записи>. <имя_элемента>
Например, присвоить значения элементам записи Author и Title можно так:
Book.author:='Довгаль С.И.'; Book.title:='Турбо Паскаль V 7.0';
Ввод цены книги с клавиатуры: readln (Book.cena);
Для упрощения и сокращения записи составных имен используется оператор присоединения WITH. Имя записи выносится в заголовок оператора присоединения, а в блоке используются только имена полей записи. Общий вид оператора присоединения:
WITH <имя записи> DO <оператор>;
Предыдущие операторы можно записать проще:
With Book do begin
author:='Довгаль С.И.'; title:='Турбо Паскаль V 7.0'; readln (cena);
end;
Пример: Из ведомости 10 студентов с их оценками (порядковый номер, Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.
Program lab6;
Type wed = record {Тип wed включает 3 поля: n, fio, bal}
n: integer;
fio: string[15];
bal: array [1..3] of integer {Поле bal - массив из 3 оценок }
end;
Var spisok: wed; {Запись spicok типа wed}
i, j, kol, s: integer;
sr: real;
Begin
kol:=0; {kol- количество отличников}
With spisok do {with присоединяет имя записи spisok ко всем }
For i:=1 to 10 do { полям внутри цикла For по i }
begin
n:=i;
Writeln(' Введите ФИО N ', i); Readln (fio);
s:=0;
For j:= 1 to 3 do
begin
write ('введите оценку: '); readln (bal [j]);
s:= s+ bal [j];
end;
if s=15 then kol:=kol+1; {подсчет количества отличников}
sr:= s/3;
writeln (fio, ' средний бал =', sr:4:1);
end;
writeln (' Количество отличников = ', kol);
readln;
end.
Дата добавления: 2014-11-24; просмотров: 19 | Поможем написать вашу работу | Нарушение авторских прав |