Pascal: Занятие № 13. Записи в Паскале

Записи в Паскале

Записи в Паскале – структурированный комбинированный тип данных. Запись состоит из определенного числа компонент, называемых полями, которые могут быть разного типа.

Описание записи в Паскале

Общий вид описания типа record в Паскаль:

1 2 3 4 5

var <имя_записи> = record <имя_поля1>:<тип_поля1>; <имя_поля2>:<тип_поля2>; ... end;

var <имя_записи> = record <имя_поля1>:<тип_поля1>; <имя_поля2>:<тип_поля2>; ... end;

Но лучше создавать пользовательский тип записи и использовать переменную данного типа:

1 2 3 4 5 6

type <имя_записи> = record <имя_поля1>:<тип_поля1>; <имя_поля2>:<тип_поля2>; ... end; var <имя_переменной>: <имя_записи>;

type <имя_записи> = record <имя_поля1>:<тип_поля1>; <имя_поля2>:<тип_поля2>; ... end; var <имя_переменной>: <имя_записи>;

Рассмотрим примеры объявления и создания записи в Паскале.

1
2
3
4
5
6

type mydate = record
    month: 1..12;
    day: 1..31;
    year: integer
end;
var d:  mydate;

В примере переменная mydate — запись, состоящая из трех полей: month, day и year. Каждое поле содержит соответственно данные: целое число в пределах от 1 до 12 — номер месяца (интервальный тип), целое число от 1 до 31 — число месяца (интервальный тип), целое число — год.

Обращение к полям записи

1
2
3
4
5
6
7
8
9
10
11
12

type mydate = record
    month: 1..12;
    day: 1..31;
    year: integer
end;
var d:  mydate;
begin
  d.day:=1;
  d.month:=12;
  readln(d.year);
  writeln(d.day,'/',d.month,'/',d.year);
end.

Записи в виде двумерной таблицы

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

Рассмотрим пример использования записи-таблицы:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

type zap1= record
                day:1..31;
                month: 1..12;
                year: 1900..2100;
 
          end;
var  birthdays:array[1..100] of zap1;
begin
            birthdays[1].day:=2;
            birthdays[2].day:=14;
            birthdays[3].day:=14;
            birthdays[1].month:=1;
            birthdays[2].month:=2;
            birthdays[3].month:=12;
            birthdays[1].year:=1985;
            birthdays[2].year:=1987;
            birthdays[3].year:=1989;
            writeln(birthdays[1].day);
end.

Использование конструкции with при работе с записями

При работе с записями есть возможность избавиться от постоянного префикса в виде обращения к названию переменной. Сравним два примера:

1 2 3 4 5 6 7 8 9 10 11 12 13

type zap1= record day:1..31; month: 1..12; year: 1900..2100;   end; var my_birthday: zap1; begin my_birthday.day:=17; my_birthday.month:=4; my_birthday.year:=1993; ... end.

type zap1= record day:1..31; month: 1..12; year: 1900..2100; end; var my_birthday: zap1; begin my_birthday.day:=17; my_birthday.month:=4; my_birthday.year:=1993; ... end.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

type zap1= record day:1..31; month: 1..12; year: 1900..2100;   end; var my_birthday: zap1; begin with my_birthday do begin day:= 17; month:= 3; year:= 2004; end; ... end.

type zap1= record day:1..31; month: 1..12; year: 1900..2100; end; var my_birthday: zap1; begin with my_birthday do begin day:= 17; month:= 3; year:= 2004; end; ... end.

Во втором примере значительно проще обращаться к полям записи, избавившись от префикса, благодаря with

with <название массива>[1] do
begin
    <поле1>:=...;
    <поле2>:=...;
    ...
end;

Записи при работе с файлами

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

type
    t_subscriber = record
      surname: string[20];
      tel: LongInt;
    end;
 
var
    subscriber: t_subscriber;
    f: file of t_subscriber;
    i: Integer;
 
begin
  Assign(f,'notebook.dat');
  Rewrite(f);
  for i:=1 to 5 do begin
    with subscriber do begin
      Write('Surname: ');
      ReadLn(surname);
      Write('Phone: ');
      ReadLn(tel);
    end;
    Write(f, subscriber);
  end;
  Close(f);
end.

// Запись в файл:
write(f, toys[1]);
// Считывание из файла:
read(f,toys_1[1]);

Рассмотрим пример последовательного доступа к типизированному файлу с использованием записей:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

type
    t_subscriber = record
      surname: string[20];
      tel: integer;
    end;
 
var
    subscriber: t_subscriber;
    f: file of t_subscriber;
    s: string;
 
begin
  Assign(f,'z:\pascal.dat');
  rewrite(f);
  subscriber.surname:='ivanov';
  subscriber.tel:=36233357;
  write(f,subscriber);
  subscriber.surname:='petrov';
  subscriber.tel:=236244475;
  write(f,subscriber);
  close(f);
  Reset(f);
  while not Eof(f) do begin
    Read(f, subscriber);
    with subscriber do begin
      Str(tel,s);
      if Copy(s,1,3) = '362' then
        tel := tel+2000000;
    end;
    Seek(f,FilePos(f)-1); // возврат указателя назад
    Write(f,subscriber);
    Writeln(subscriber.surname, ' ',subscriber.tel);
  end;
  Close(f);
end.

Множества в Паскале

Множества в Паскале — это некоторое собрание элементов, одно и того же базового типа.

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

Размер множества в Turbo Pascal всегда ограничен некоторым предельно допустимым количеством элементов. Во множествах допускаются только такие элементы, порядковые значения которых не выходят за границы 0..255. В Turbo Pascal в целочисленных множествах могут присутствовать только числа от 0 до 255.
Отрицательные элементы множеств в Turbo Pascal не допускаются. Поэтому базовыми типами не могут быть типы shortint, integer, longint.

Таким образом, если необходимо множество целочисленных объектов, то базовый тип для Turbo Pascal должен быть объявлен как диапазон типа byte. Для множеств, содержащих символы, базовым типом должен быть тип char .

1
2
3
4
5

type week_days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
var work_days: set of week_days;
begin
  work_days:=[Mon, Wed, Thu];
end.

Из примера видно, что множества (тип set) задаются путем перечисления значений, разделенных запятыми и заключенных в квадратные скобки.

Синтаксис:
name_set:=[expr1, expr2, … exprn];

1
2
3

type letters = set of char;
var ch1,ch2:letters;
...

Переменные ch1 и ch2 из примера также не могут быть выведены на экран и их значения не могут быть запрошены при помощи оператора read.

Возникает логичный вопрос: как же тогда работать с множествами в Паскале?

Чтобы ответить на данный вопрос, сначала рассмотрим операции, выполняемые над множествами.

Действия над множествами

Их три:

Объединение двух множеств A и B (A + B) – это новое множество, состоящее из элементов, принадлежащих множеству A или B либо тому и другому одновременно

Пример:

1
2
3
4
5
6
7

var ch1,ch2, ch3: set of char;
begin
   ch1:=['a', 'b', 'd'];
   ch2:=['m', 'd', 'e'];
   ch3:=ch1 + ch2 + ['k', 'n'];
{Результат: ch3 = ['a', 'b', 'd', 'm', 'e', 'k', 'n']}
end.

Пересечение двух множеств A и B (A * B) – это множество, состоящее из элементов, одновременно принадлежащих множествам A и B.

Пример:

1
2
3
4
5
6
7

var ch1, ch2, ch3: set of char;
begin
   ch1:=['a', 'b', 'd'];
   ch2:=['m', 'd', 'e'];
   ch3:=ch1 * ch2;
{Результат: ch3 = ['d'] }
end.

Разность двух множеств A и B (A – B) – это новое множество, состоящее из элементов множества A, не вошедших в множество B.

Пример:

1
2
3
4
5
6

var ch1, ch2, ch3: set of char;
begin
ch1 := ['a', 'e', 't']; 
ch2 := ch1 – ['e']; { ['a', 't'] } 
ch3 := ['m', 'n', 't'] – ch2; { ['m', 'n'] }
end.

Множества и операция IN в Паскале

Операция in необходима для поиска определенного элемента в величине типа set, т.е. в множестве.

Так, если x есть элемент множества a, то (x in a) дает true. 

1
2
3
4
5
6
7
8
9
10
11

type
   week_days=(Mon, Tue, Wed, Thu, Fri);
var 
   work_days: set of week_days;
begin
work_days:=[Mon, Wed];
if Mon in work_days then
    writeln ('понедельник - рабочий день')
else
    writeln ('понедельник - не рабочий день')
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14

var
  work_days,days_off: set of byte;
begin
work_days:=[1, 2];
days_off:=[6, 7];
if 1 in work_days then
    writeln ('понедельник - рабочий день')
else
    writeln ('понедельник - не рабочий день');
if 6 in days_off then
    writeln ('суббота - выходной день')
else
    writeln ('суббота - не выходной день');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

var
   voron, vorona, voroni: set of byte;
   number:integer;
begin
voron:=[5,6,7,8,9,10];
vorona:=[1];
voroni:=[2,3,4];
writeln ('введите количество ворон');
readln(number);
 
if number in voron then
    writeln ('на ветке ', number,' ворон');
if number in vorona then
    writeln ('на ветке ', number,' ворона');
if number in voroni then
    writeln ('на ветке ', number,' вороны')
end.

1
2
3
4
5
6
7
8
9
10
11
12

var m : set of char;
    s : string; i : byte;
begin
    write('строка: ');
    readln(s);
    m :=[];
    i := 1;
    while i <= length(s) do
    if s[i] in m then delete(s, i, 1)
                    else begin m:=m+[s[i]]; i := i + 1 end;
    writeln(s)
end.

type t_chs = set of Char;
const
  lett: t_chs = ['a'..'z','A'..'Z','_'];
  num: t_chs = ['0'..'9'];
var
  str: string;
  i: byte;
  flag: boolean;