Записи Структурированный тип

Type =record end; Запись – структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. Поля записи могут быть различного типа. Чтобы можно было обращаться к различным полям записи, они именуются.

Пример Type zap=record mon:byte; t:real; end; Var A:zap; A mont

Составное имя При обращении к полю записи необходимо указать имя переменной, затем точку, затем имя поля. В примере: A.mon:=4; a.t:=0.62E+01;

Задача. Определить значения переменных z, w, p, re после выполнения операторов: Type complex=record Re,im:real end; Point=record x,y:real; Var z,w:complex; p:point; re:real;... z.re:=0; z. im:=1; W:=z; Re:=2; z.re:=-1; w.im:= - w.im; p.x:=re; p.y:=2;...

Оператор присоединения With do ; Упрощает доступ к полям записи. Пример: вместо z.re:=0; z. im:=1; Можно использовать With z do begin re:=0; im:=1;end;

Массив типа запись Uses crt; Type Zap=record fam:string[20]; year:byte; sex:char end; Mss=array [1..5] of zap; Var A:mss; i:integer; begin clrscr; for i:=1 to 5 do begin readln(a[i].fam); readln(a[i].year); readln(a[i].sex); end; for i:=1 to 5 do begin writeln(a[i].fam,,a[i].year,,a[i].sex);end; Readln End.

Определить, что выполняет программа, написанная на следующем слайде.

program zap_87_47; uses crt; const month:array[1..12] of string[3]=('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'); type zap=record mon:byte; t:real; end; mass=array[1..12] of zap; var i:integer; a:mass; b:zap; begin clrscr; for i:=1 to 12 do begin a[i].mon:=i; readln(a[i].t);end; for i:=1 to 12 do if a[i].t>7 then writeln((month[i]),' ',a[i].t); readln; end.

Задачи. 1. В записной книжке записаны фамилии и номера телефонов нескольких человек. Определить, есть ли в записной книжке человек с заданной фамилией. И если есть, то вывести его номер телефона. 2. Известны данные о количестве учащихся в каждом из 15 учебных заведений и о типе этого заведения (школа, колледж, училище). Найти общее число учащихся школ.

Задачи. 3. Известны данные о стоимости каждой из 15 моделей автомобилей и об их типе (легковой, грузовой). Найти среднюю стоимость легковых автомобилей. 4. * Дана информация об учениках класса: фамилия, имя, отчество, дата рождения(год, номер месяца и число). Определить, есть ли в классе ученики, у которых сегодня день рождения, и если да, то вывести имя и фамилию каждого.

Задачи. 5. В списке сотрудников фирмы (мужчин) заданы стаж их работы и семейное положение. Определить холостого работника с наименьшим стажем работы. 6. Дана информация о сотрудниках фирмы (фамилия, зарплата, пол). Определить фамилии мужчины и женщины, имеющих наибольшую зарплату.