Раздел 3. Множества и записи Тема 2: Тип запись. Операторы над записями 1 Магистрант: Хаитов Икром Джураевич. - презентация

1 Раздел 3. Множества и записи Тема 2: Тип запись. Операторы над записями 1 Магистрант: Хаитов Икром Джураевич

2 Что называется типом данных? Типом данных называется множество допустимых значений, которые может тот или иной объект, а также множество допустимых операций, которые применимы к нему. 2

3 Какие типы используют в Паскале для представления данных? Типы представления данных: - простые: 1) порядковые: целые, логические, символьные, перечисляемые, интервальные ; 2) вещественные; - структурированные: массивы, строки, множества, записи, файлы 3

4 Что такое запись? Запись - это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. 4

5 Что такое компонент в типе запись? Компонент - это поле, каждое из которых определяется именем. Поле записи содержит имя поля, вслед за которым через двоеточие указывается тип этого поля. 5

6 Какие типы могут быть у компонент а типа запись? Любые. 6

7 Чем тип запись отличается от типа массив? В отличие от массива, записи могут быть различного типа. 7

8 Каким образом оформляется тип записи в Паскале? Type = RECORD END - идентификатор; RECORD, END – зарезервированные слова (запись, конец); - список полей; представляет собой последовательность разделов записи, между которыми ставится точка с запятой. 8

9 Назовите, какой тип представлен на рисунке а, б, и в? TYPE vector = array[1..10] of real; VAR v1 : vector; v2 : array[0..5] of byte; TYPE str_type = string[12]; Const n = 50; VAR s1: string; s2, s3: str_type; s4: string[n]; s5, s6, s7: string[7]; TYPE beg = record fam: string[25]; srtana: string[20]; status: boolean; dlina: longint; god: ; vr: string[15]; end; VAR a: beg; Рис. а Рис. бРис. в 9 МАССИВ СТРОКАЗАПИСЬ

10 Единственная операция, которую можно произвести над однотипными записями Паскаля – это присваивание. Заполните сведения о б учащ е мся (Ф.И.О., дата рождения, адрес, класс и школа), а затем выведите эти сведения на экран. 10

11 1) Введите сведение о б учащемся (Ф.И.О., дата рождения, адрес, класс и школа) используя тип Запись; 2) Выведите эти все сведение на экран. 11

12 program primer1; type anketa=record fio: string[45]; dat_r: string[8]; adres: string[50]; klass: 1..5; school: string[25] end; var uchenik: anketa; begin writeln (введите сведения об ученике); {обратите внимание, ввод каждого поля осуществляется отдельно} writeln (введите фамилию, имя и отчество); readln (uchenik.fio); writeln (введите дату рождения); 12 readln (uchenik.dat_r); writeln (введите адрес); readln(uchenik.adres); writeln (введите класс); readln(uchenik.klass); writeln (введите название школы); readln (uchenik.school); writeln (ввод закончен); writeln ; {обратите внимание, что вывод записи осуществляется по полям} writeln (фамилия ученика:, uchenik.fio ); writeln( дата рождения :, uchenik.dat_r); writeln( адрес :, uchenik.adres); writeln( класс :, uchenik.klass); writeln( школа :, uchenik.school); end.

13 Сделайте записи об успеваемости трех учеников (запишите фамилию, школу, оценк и по русскому, математике и информатике). Потом все данные вывед ите в таблицу, а также по д считайте средн ий балл успеваемости каждого ученика. 13

14 14 1) Введите информацию о 3 учениках: фамилию, школу, оценк и по математике, информатике и русскому языку, используя массив, состоящий из трех элементов типа Запись; 2) Найдите средн ий балл по трем предмета м (Суммируйте данные по полям «оценка по математике», «оценка по русскому языку» и «оценка по информатике», разделите полученный результат на 3 ) ; 3) Выведите все записи об учениках и средн ий балл в виде таблицы (для вывода используйте цикл со счетчиком).

15 15 type tabel=record fam, school: string; cm, ci, cr: integer; end; var tab:array [1..3] of tabel; sr:real; i:integer; begin clrscr; for i:=1 to 3 do begin write ('введите фамилию ученика-'); readln (tab[i].fam); write ('введите школу'); readln (tab[i].school); write ('введите оценку по математике:'); readln (tab[i].cm); write ('введите оценку по русскому'); readln (tab[i].cr); write ('введите оценку по информатике'); readln (tab[i].ci); writeln; end; sr:=(tab[i].cm+tab[i].cr+tab[i].ci)/3; for i:=1 to 3 do begin write (i:2); write (tab[i].fam:11); write (tab[i].school:9); write (tab[i].cm:7); write (tab[i].cr:9); write (tab[i].ci:6); write (' ',sr:2:2); writeln; end; end.

16 Определите возраст человека (в годах). Текущую дату и дату рождения (дата типа запись) вводите с клавиатуры. 16

17 17 1) Введите текущую дату и дату рождения, используя тип Запись (поля: День, Месяц, Год); 2) Рассчитайте возраст человека путем вычитания из текущего года года рождения (учитывайте номера текущего месяца и месяца рождения, а также значение текущего дня и дня рождения для расчета числа полных лет человека. Для этого используйте условный оператор); 3) Выведите полученный возраст человека.

18 18 type data=record den:1..31; mes:1..12; god:integer; end; var dat, tdat:data; d,m,g,vozr:integer; begin writeln('Введите текущую дату'); writeln('Введите день'); readln(tdat.den); writeln('Введите месяц'); readln(tdat.mes); writeln('Введите год'); readln(tdat.god); writeln('Введите дату рождения'); writeln(Введите день); readln(dat.den); writeln('Введите месяц'); readln(dat.mes); writeln('Введите год'); readln(dat.god); if tdat.mes>dat.mes then vozr:=tdat.god-dat.god else if tdat.mes=dat.mes then if tdat.den>=dat.den then vozr:=tdat.god-dat.god else vozr:=tdat.god-dat.god-1 else vozr:=tdat.god-dat.god-1; writeln('Ваш возраст-', vozr); end.

19 Задание 4. Ввести информацию по 10 участникам олимпиады по программированию (ФИО, год рождения, результат). Определить победителя олимпиады. Задание 5. Описать, используя структуру данных запись, данные «записной книжки» (фамилия, улица, дом, квартира, телефон). Составить программу, определяющую по введенной фамилии адрес и телефон. Задание 6. Даны такие сведения о 10 владельцах авто: фамилия водителя, марка машины, и ее номер (целое число), пробег (целое число). Найти фамилию владельца, машина которого осуществила максимальным пробег и количество машин, номер которых заканчивается цифрой 9. 19

20 1. В библиотеке для каждого заказывающего книгу читателя заполняется карточка: фамилия, дата заказа, дата выдачи книги. Определить самый маленький срок, за который нашли книгу. 2. Описать, используя структуру данных запись, почтовую сортировку (город, улица, дом, квартира, куда). Составить программу, определяющую, сколько посылок отправлено в г.Красноярск. 20