36563

Структурный тип запись

Контрольная

Информатика, кибернетика и программирование

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

Русский

2013-09-22

45 KB

3 чел.

Структурный тип запись.

Например, анкета служащего содержит такие данные, как фамилия, имя, отчество (строковый тип), год рождения (целый тип), разряд (целый тип) и многие другие данные. Объединение таких данных общий структурный тип-анкета затруднительно сделать в рамках массива или множества. Естественным средством структурирования в этом и подобных случаях является структурный тип - Запись. Этот структурный тип специально введен для объединения любого конечного числа неоднородных данных. Объединяемые данные составляют поля записи. Однако, объединяя неоднородные данные, мы уже не можем рассчитывать иметь эффективный доступ к полям посредством их индексации (т.е. вычислимых имён), как это было в случае массивов: это может привести к несоответствию типов в выражениях. Доступ к полям записи осуществляется посредством составных имён (имён с точкой), имеющим, как и простые имена переменных, статическую природу (имена, неизменяемые в процессе выполнения программы). Запись является одной из наиболее общих форм композиции неоднородных данных. Она распространяется не только на объединение полей-типов данных, но и на объединение полей-типов данных с процедурами и функциями, приводя к понятию объекта, как новой категории программных структур. Рассмотрим структурный тип Запись применительно к объединению полей-типов данных.

2. Описание типа Запись и доступ к полям записи.

Тип Запись описывается в следующей форме:

type < имя типа-запись> = record < список полей > end;

где: < список полей > - последовательность разделов, разделяемых точкой с запятой; каждый раздел имеет структуру < список имен полей > : < тип поля >. Типом поля может быть любой тип, кроме типа файл. Если тип поля также является записью, мы имеем дело с иерархической структурой записей. Например:

type stud = record numb:byte;name:string[16]; aver:real end;{запись о студенте}

gr = record title:string; studs: array[1..15] of stud; end; {данные о группе }

Для работы с записями необходимо описать переменные типа-запись.

Например: var stud1:stud; {данные о студенте styd1} grA1:gr; {группа А1}

Допустимы также типизированные константы типа-запись, устанавливающие значения полям записи в виде списка констант-полей, перечисляемых через точку с запятой. Например:

const st00:stud = (numb:0; name:''; aver:0.0);

Доступ к элементам записи осуществляется посредством составного имени, в котором указывается имя переменной-записи и имя поля записи, разделяемые точкой. Так, например, доступ к полю среднего балла студента stud1 имеет вид: stud1.aver. Если запись описывает иерархическую структуру с несколькими уровнями, то составное имя содержит кроме имени записи также имена всех промежуточных полей-уровней, разделяемые точками. Например, для доступа к полю среднего балла 8 студента группы следует использовать составное имя: grA1.studs[8].aver.

3. Обработка записей.

Для составных имён допустимы все те же средства обработки, что и для простых переменных: операторы присваивания и использование имен при построении выражений или условий. Так для составных имен оператор присваивания имеет вид:

< составное имя > := < выражение соответствующего типа-поля >;

Например: gr1.studs[8].aver:=4.6;

При обработке записей можно избежать использования полных имен полей записей, используя специальный оператор with. Оператор присоединения with позволяет упростить доступ к полям записей за счёт выделения "общих частей" в составных именах. Оператор with имеет следующую синтаксическую структуру:

with < переменная > do < оператор >;

где: < переменная > - имя переменной-записи, за которым может также следовать иерархический список полей (разделяемых точкой);

 < оператор > - любой оператор Турбо Паскаля. В нём можно использовать имена полей вместо составных имён. Последовательность операторов, выполняемых внутри оператора with должна заключаться в скобки begin end .

Оператор with является единственным видом операторов, введенным специально для обработки записей. Во всем остальном обработка записей опирается на обычные средства Турбо Паскаля, доступные для большинства типов.

Удобным оператором обработки записей является оператор выбора case-of , ветви которого можно эффективно использовать для обработки полей, сопоставляя каждой ветви поле записи.

Тип Запись может иметь вариантную часть, которая способна изменяться при различных выполнениях программы, обеспечивая различную структуру записи при разных выполнениях. По структуре вариантная запись подобна оператору выбора case-of, но у ключа выбора может быть указан тип (любой порядковый тип). После of перечисляются поля записи в форме:

< константа выбора> : ( < список полей > );

Вариантная часть должна располагаться только в конце описания записи и может быть только одна. Для ключа выбора конкретное значение необязательно, так как выбор осуществляется непосредственно по именам полей.

 Замечание:

В Турбо Паскале имеется стандартный тип-запись DateTime для представления даты и времени. Имеется ряд стандартных процедур и функций работы с этими типами, описываемые подробно в справочной литературе.

4. Пример программы обработки записей.

Приведем пример простой программы на Турбо Паскале, иллюстрирующей обработку записей:

 

 program stud_group;

{ Ввод списка группы и сортировка по убыванию среднего балла}

 uses CRT;

 type stud =record num:byte; {номер}

name:string[15]; {Фамилия И.О.}

average:real {Средний балл}

 end; {тип stud - Запись данных о студенте}

group =array[1..5] of stud; {тип group - список данных о 5 студентах}

 var A:group; {Список группы студентов}

 j,k,l:byte;max:real;

 begin ТextBackground(cyan); TextColor(white); ClrScr;

window(10,5,60,22); TextBackground(green); ClrScr;

 writeln('Ввод данных о студентах:');writeln('N Ф.И.О. Средний балл');

 for j:=1 to 5 do {чтение данных о студенте} with A[j] do readln(num,name,average);

 writeln('Успеваемость группы:');max:=A[1].average;l:=1;

{ Вывод данных из А в порядке убывания среднего балла}

 for j:=1 to 5 do {вывод данных с макс. средним баллом}

 begin for k:=1 to 5 do { поиск элемента с макс.средним баллом}

 with A[k] do if average>max then begin max:=average;l:=k end;

 with A[l] do {вывод и обнуление в А выведенных данных}

 begin writeln(name,' ',average:1:2);average:=0;max:=0

 end end {Окончание вывода сортированных данных}

 end { stud_group}.

Задача 4.2.6(1)

program alex1;

type mas=array[1..4,1..5]of integer;

mass=array[1..5]of integer;

var a:mas;

i,j,y:integer;

m:mass;

procedure proc(x:mas;k:integer;var max:integer);

var i:integer;

begin

max:=x[1,k];

for i:=2 to 4 do

if x[i,k]>max then max:=x[i,k];

end;

begin

for i:=1 to 4 do

for j:=1 to 5 do

read(a[i,j]);

for i:=1 to 5 do

proc(a,i,m[i]);

y:=m[1]*m[5]+m[2]*m[4]+m[3]*m[3]+m[4]*m[2]+m[5]*m[1];

writeln('y=',y);

readln;

end.


 

А также другие работы, которые могут Вас заинтересовать

20971. Защита документов MS EXCEL 72.5 KB
  Введите пароль для защиты листа. Пароль задавать необязательно; однако если не задать пароль любой пользователь сможет снять защиту с листа и изменить защищенные элементы. Убедитесь что выбран пароль который легко запомнить так как если пароль будет утерян получить доступ к защищенным элементам листа будет невозможно. Нажмите кнопку ОК и если будет предложено введите этот пароль еще раз.
20972. Защита электронных документов с помощью электронной цифровой подписи (ЭЦП) 86 KB
  1] Лабораторная работа № 4 [1] Защита электронных документов с помощью электронной цифровой подписи ЭЦП [2] Оглавление [2.2] Принципы использования ЭЦП [2.5] Контрольные вопросы Цели работы Получить базовые представления о механизмах создания и проверки ЭЦП и о цифровых сертификатах.
20973. Управление учётными записями пользователей MS Windows 84.5 KB
  1] Лабораторная работа № 5 [1] Управление учётными записями пользователей MS Windows [2] Оглавление [2.5] Критерии оценки работы Цели работы Освоение средств администратора операционной системы MS Windows таких как: регистрации пользователей и групп в системе определения их привилегий определения параметров политики безопасности относящихся к аутентификации и авторизации пользователей при интерактивном входе Основные понятия Идентификацию и аутентификацию можно считать основой программнотехнических средств безопасности поскольку...
20974. Реализация политики безопасности в MS Windows 93 KB
  1] Лабораторная работа № 6 [1] Реализация политики безопасности в MS Windows [2] Оглавление [2.3] Политика безопасности [2.6] Критерии оценки работы Цели работы освоения средств администратора и аудитора защищенных версий операционной системы Windows предназначенных для: определения параметров политики безопасности; определения параметров политики аудита; просмотра и очистки журнала аудита.
20975. Ассоциативные списки и списки свойств 23.98 KB
  DEFUN F27 L COND NULL L NIL T CONS LENGTH CDR CAR L F27 CDR L пример SETQ SCLAD 'PROCESSORS MATHERBOARDS MEMORY PUT ‘PROCESSORS ‘CORE2DUO 5 PUT ‘PROCESSORS ‘CORE2EXTREME 8 PUT ‘MATHERBOARDS ‘ASUSp6t7 1 PUT ‘MATHERBOARDS ‘ASUSp6t6 12 PUT ‘MATHERBOARDS ‘INTELdp55kg 34 PUT ‘MEMORY ‘DDR 23 PUT ‘MEMORY ‘DDR2 34 PUT ‘MEMORY ‘DDR3 15 PUT ‘MEMORY ‘SDRAM 15 F27 SCLAD = 2 3 4 Исходный список содержит имена объектов списки свойств которых содержат некоторую информацию. DEFUN F29 L X COND...
20976. Создание фреймов и извлечение информации из них 22.85 KB
  Создать фреймы, описывающие фрагмент библиотечной системы, содержащие как декларативную, так и процедуральную (в том числе использующую переменные ФРЛ-среды) составляющие.
20977. Организация сетей фреймов 33.02 KB
  setq TodayYear 2010 deframeq Book1 Nazvanie value Programmirovanie_na_FRL Author value Book2 status: indirect slot: author Year value 2003 PageNum value 672 Popularity value 2000 Quantity value GetQuantity PARM: TodayYear STATUS: EVAL deframeq Book2 Nazvanie value Programmirovanie_na_LISP Author value Chernov_PBajdun_VBunin_A Year value 1993 PageNum value 40 Popularity value 600 Quantity value GetQuantity PARM: TodayYear STATUS:...
20978. Присоединённые процедуры. Организация сетей фреймов 25.93 KB
  deframeq flat1 Street value Prospect_Mira house value 8 flat value 10 floor value 2 square value 85 roomsnumber value 2 priceclass value 1 price value GetPrice status: eval deframeq flat2 Street value Gagarina house value 1 flat value 123 floor value 18 square value 78 roomsnumber value 3 priceclass value 2 price value GetPrice status: eval deframeq flat3 Street value Lesnaya house value 6 flat...
20979. Рекурсивная обработка числовой информации 18.16 KB
  DEFUN F1_1 M N COND = M N M M T M M F1_1 M 1 N DEFUN F1 M N COND OR = TYPE M INT = TYPE N INT WRONG_ARGUMENT_TYPE = N M F1_1 M N T F1_1 N M Определить наибольший общий делитель двух заданных чисел. Используем формулу DEFUN F2 A B A B F3 A B Определить наименьшее общее кратное двух заданных чисел. DEFUN F3 A B COND = B 0 A = A 0 B = A B F3 A B B T F3 A B A Вычислить квадратный корень из заданного числа....