русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Лабораторна робота № 10


Дата додавання: 2014-11-28; переглядів: 810.


ЗАПИСИ. МАСИВИ ЗАПИСІВ

Мета роботи:

Навчитися обробляти зв'язану інформацію, шляхом створення власних типів у вигляді структур даних (запис, масив записів).

Теоретичні відомості

Запис- це структура, що складається з фіксованого числа компонент, котрі називаються полями. Дані кожного поля мають постійний тип, а дані різних полів можуть мати різні типи. Таким чином записи дозволяють об'єднати під одним іменем дані різних типів, що дуже

зручно для розв'язування задач різноманітних типів. В загальному випадку записи описуються типом RECORD:

TYPE t=RECORD

id11,id12,...,id1N:TYPE1;

id21,id22,...,id2N:TYPE2;

........................

idK1,idK2,...,idKM:TYPEK;

end;

де idi - ідентифікатори (імена) полів, TYPEI - тип і-го поля, t - ім'я типу.

Для зручності обробки змінних типу запис використовується оператор приєднання WITH, котрий в загальному вигляді записується таким чином:

WITH rec DO opr;

Приклад. Використання записів з варіантами.

Program rec;

Type

Pora_roku=(vesna,lito,zyma,osin);

Recvar=record

Date:byte;

Case chas_dlya_kanicul :pora_roku of

Vesna:(mama:(march,april,may));

Lito :(did:(june,july,august));

Osin :(baba:(September,October,November));

Zyma :(tato:(December,January,February));

End;

Var

My_family:recvar;

Begin

My_family. chas_dlya_kanicul:=vesna;

My_family.mama:=may;

My_family. chas_dlya_kanicul:=zyma;

My_family.tato:= December;

My_family. chas_dlya_kanicul:=lito;

My_family.dido:= august;

My_family. chas_dlya_kanicul:=osin;

My_family.baba:= September;

End.


<== попередня лекція | наступна лекція ==>
Теоретичні відомості | Варіанти завдань:


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн