Лабораторна робота № 8 Обробка даних типу запис

Мета: оволодіти практичними навичками обробки введення-виведення компонентів запису; ознайомитись з використанням масивів записів.

Теоретичний матеріал

Запис — це структурований тип даних, який складається з фіксованого числа компонентів одного або декількох типів.

Визначення типу запис починається ідентифікатором RECORD і закінчується словом END. Між ними записується список ком­понент, які називаються полями, із значенням ідентифікатора поля і типу кожного поля.

Формат. Туре

<ім'я типу> = record

<ідентифікатор поля> : <тип компонент>;

<ідентифікатор поля> : <тип компонент>;

end;

var

<ідентифікатор,...> : <ім'ятипу>;

Наприклад.

Туре

CHILDREN = record

Surname :string[15]; { Прізвище учня }

Name :strmg[100]; {Ім'я учня}

Birthyear :integer; { Рік народження }

Street :string[20]; { Адреса учня }

Phone :strmg[8]; {Телефон учня }

end;

var

uchen: CHILDREN;

Для звернення до полів запису треба вказати ім'я змінної за­пису, поставити крапку, а після неї — ім'я поля.

Наприклад,

uchen.Surname, uchen.Name, uchen.Street.1

Складені імена можна використовувати (наприклад) у вказівках введення-виведення.

Наприклад.

read(uchen.Phone); write(uchen.Birthyear);

В деяких випадках зручно використовувати масиви із записів

Туре

CHILDREN = record

Surname :string[15]; { Прізвище учня }

Name :string[100]; { Ім'я учня }

Birthyear : integer; { Рік народження }

Street :string[20]; { Адреса учня }

Phone :string[8]; { Телефон учня }

end;

var

uchen : array[1..10] of CHILDREN;

Звертатись до елементів масиву можна таким чином:

readln(uchen[i] .Name); readln(uchen[i].Phone);

writeln(uchen[i].Name);

writeln(uchen[i].Phone);

Використання вказівки WITH у записах

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

WITH <змінна типу запис> do <вказівка>;

Якщо після слова do треба записати декілька вказівок, то їх треба об'єднати в одну складену вказівку з допомогою слів begin і end.

with CHILDREN do begin

readln(Surname); readln(Name);

readln(Birthyear); readln(Street);

readln(Phone);

end;

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

program Dzapis;

Type

CHILDREN = record

Surname :string[15]; { Прізвище учня }

Name :string[100]; {Ім'я учня }

Birthyear : integer; { Рік народження }

Street :string[20]; {Адресаучня}

Phone :string[8]; { Телефон учня } end;

var

uchen : array[1..3] of CHILDREN;

i,k:integer;

begin

for i:=l to 3 do with uchen[i] do begin

write('Введіть прізвище учня: '); readln(Surname);

write('Введіть ім"я учня: '); readln(name);

write('Введіть рік народження: ');readln(Birthyear);

write('Введіть адресу учня: '); readln(Street);

write('Введіть телефон учня: '); readln(Phone);

end;

writeln( Введіть порядковий номер учня, про якого ');

write('хочете отримати інформацію: '); readln(k);

i:=k;

with uchen[i] do

begin

writeln(Surname);

writeln(Name);

writeln(Birthyear);

writeln(Street);

writeln(Phone);

end;

end.