Оператор With

...

...

Var

Type

Var

Type

Var

Type

...

Var

Var

...

Type

Записи с фиксированными частями

Экскурсия. Посещение группы неолитических стоянок на р. Россонь (Ленинградская обл.)

Суббота, 16 мая 2014 г.

Отъезд экскурсии в 8:00. Место стоянки автобуса–ул. Миллионная, 16 (см. прилагаемые материалы).

В ходе экскурсии будет представлен доклад:

Герасимов Д.В., Крийска А., Нордквист К., Анисимов М. А., Холкина М.А., Сапелко Т.В., Кузнецов Д.Д., Лудикова А.В., Рябчук Д.В., Сергеев А.Ю. (МАЭ РАН, Санкт-Петербург; Тартусский Университет, Эстония; Университет Оулу, Финляндия; СПбГУ, ИнОз РАН, ВСЕГЕИ, Санкт-Петербург) «Памятники археологии и геологии близ р. Россонь в Нарвско-Лужском междуречье»

Организационное и техническое сопровождение конференции:

Степанова К.Н., Ларионова А.В., Гиря Е.Ю., Бессуднов А.А., Очередной А.К. (ИИМК РАН, Санкт-Петербург), Андреев К.М., Барацков А.В., Наумов И.Н., Толпыгина И.Г., Ересько О.В., Дога Н.С., Королев А.И., (ПГСГА, Самара), Долбунова Е.В. Хрусталева И.Ю. (Государственный Эрмитаж, Санкт-Петербург), Холкина М.А. (СПб ГУ, Санкт-Петербург)

Формат описания:

1-ый способ:

имя _ типа_записи = Record

список_имен _ полей_1: тип_1;

список_имен _ полей_2: тип_2;

список_имен _ полей_N: тип_N

end;

имя_перем_записи: имя _ типа_записи;

2-ой способ:

имя_перем_записи: Record

список_имен _ полей_1: тип_1;

список_имен _ полей_2: тип_2;

список_имен _ полей_N: тип_N

end;

Пример 8.1 (описания записей):

1) определение комплексных чисел:

Complex = Record

Re, Im: Real

end;

X, Y: Complex;

2) определение даты:

Date = Record

Day: 1 .. 31;

Month: (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sept, Oct, Nov, Dec);

Year: Integer

end;

D1, D2: Date;

Доступ к полям записи осуществляется путем указания идентификатора переменной-записи и идентификатора поля, разделенныхточкой (такая комбинация называется составным именем), например:

X. Re: = 10. 5;

X. Im: = 5. 3;

D1. Day: = 2 8;

D1. Mont: = Oct;

D1. Year: = 2009;

Read (X. Re);

Write (‘ a + i*b = ’, X. Re, ‘ + i * ’, X. Im);

Все действия производятся над полями записи, только операцию присваивания можно выполнить над всей записью:

D1: = D2;

Разрешается использовать тип запись при описании других типов данных: массив записей, запись записей и т.д.

Family = (Father, Mother, Son, Daudhter);

Day = 1 .. 31;

Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sept, Oct, Nov, Dec);

Year = 1900 .. 2010;

Date = Record

D: Day;

M: Month;

Y: Year

end;

T_Fio = Record

Fam: String [ 20 ];

Name: String [ 15 ];

Otch: String [ 15 ]

end;

T_Ank = Record

Fio: T_Fio;

Dat: Date;

Adr: String

end;

List = Array [ Family ] of T_Ank;

Ank_Fam: List;

WriteLn (‘ Введи FIO отца ’);

Write (‘ Фамилия: ’);

ReadLn (Ank_Fam [ Father ]. Fio. Fam);

Write (‘ Имя: ’);

ReadLn (Ank_Fam [ Father ]. Fio. Name);

Write (‘ Отчество: ’);

ReadLn (Ank_Fam [ Father ]. Fio. Otch);

Для более простого обращения к отдельным полям записей (как если бы это были простые переменные) используется оператор присоединения With:

Формат оператора:

With список_переменных_типа_запись do оператор;

Внутри оператор’а поле записи опознается только по имени поля без указания имени записи:

Дата добавления: 2015-05-10