Лабораторна робота № 10 комбіновані типи (записи )

Завдання. Написати програму з використанням записів.

Умови завдань приведені в таблиці 10.

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

До компонентів запису необхідно звертатися по імені.

Наприклад, в запис про студентів можуть входити:

Ім'я

Прізвище

Дата народження

Рік навчання і так далі

Комбінованих типів, об'єктами яких є записи, здійснюється за допомогою ключового слова RECORD. Записи складаються з фіксованого числа компонент, званих полями. При оголошенні повинні бути вказані ім'я і тип кожного поля. Ім'ям поля може бути будь-який ідентифікатор. Оголошення запису закінчується зарезервованим словом END.

Приклади оголошень запису:

type date = record

day :1...31;

month:(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);

year :integer;

end;

Тип date включає три поля: day, month і year. day відноситься до інтервального типу, month - до перераховуваного і year - до цілого.

Після введення типу date можна визначити змінні, значення яких належать цим типам.

var

secondary,firstday :date;

Інструкція WITH

Для компактнішого запису привласнення значень всім полям запису в Паскалі передбачена інструкція WITH.

Загальна форма запису:

WITH ім'я запису DO оператор

В цьому випадку програміст тільки один раз згадує в програмі ім'я запису, а імена полів використовує як прості змінні.

Наприклад:

with firstday do

begin

day:=3;

month:='jun';

year:=1989;

end;

Таким чином, за допомогою інструкції WITH встановлюється область, усередині якої до компонентів запису можна звертатися на ім'я полів, не вживаючи ні імені запису, ні крапки.

Таблиця 10 - Варіанти завдань для лабораторної роботи № 10

№	Зміст завдання
1	Дано список групи. Визначити, чи є однофамільці
2	Дано список групи. Визначити студентів з однаковими іменами
3	Визначити, чи є в групі студенти одного року народження
4	Із списку групи вивести прізвища і імена дівчаток
5	Із списку групи вивести прізвищу студентів не старше 18 років
6	Скласти і вивести список багажу. Включити найменування речей, їх кількість і масу
7	Скласти і вивести список вмісту домашньої аптечки. Вказати термін придатності ліків
8	Скласти список групи з вказівкою отримуваній стипендії
9	Із списку багажу (див. варіант 6) виділити речі, маса яких не перевищує 1 кг
10	Створити новий список багажу (див. варіант 6), упорядкувавши речі по збільшенню маси
11	Створити і вивести список підручників. Вказати прізвище автора, назву книги і рік видання
12	Список підручників (див. варіант 11) розділити на окремі списки по назвах предметів
13	Знайти в списку підручників книги даного автора
14	Визначити, чи є в списку підручників книга з певною назвою. Якщо так, то вивести прізвище автора, назву і рік видання
15	Дано список телефонів студентів групи. Знайти по прізвищу номер телефону і вивести його
16	Дано список свят року. Він містить число, місяць, назву свята. Вивести всі весняні свята
17	Дано список деяких дат. Він містить число, місяць і рік. Знайти рік з найменшим номером
18	Дано список товарів, що імпортуються. Він містить назву країни, назву товару і кількість. Скласти список країн, з яких імпортується даний товар, і загальний об'єм його імпорту
19	Дано список товарів іграшкового відділу магазина. Вказана назва, ціна і вік дитини, для якої призначена іграшка. Знайти назву іграшок, ціна яких не перевищує 4 крб. і підходить дітям до 5 років
20	Дано список товарів (див. варіант 19). Знайти ціну найдорожчої ляльки