merged document (Методички Терентьев Ю.И.)

Комбинированный тип (записи).До сих пор рассматривались составные типы, характерной особенностью которыхявлялась принадлежность всех их элементов к одному базовому типу. Однако во многихзадачах, особенно прикладного характера, возникают ситуации, когда объектхарактеризуется свойствами различных типов. Например, человек характеризуется:фамилией, именем, отчеством – это данные строкового типа. Если говорить о такихданных как рост, вес, то это данные числовых типов. Т. к. все эти данные характеризуютодин объект, то желательно все их значения объединить в одной переменной. И языкпрограммирования предоставляет пользователям такую возможность с помощьюкомбинированного типа.

Этот тип определяется следующим образом:Type<имя типа> = Record<описание полей>end;В массивах, строках все элементы имели одинаковое имя и отличались толькоместоположением, которое определялось значением индексной переменной. Такаяситуация была возможна потому, что элементы принадлежали к одному типу, т.е.занимали в памяти одинаковое количество байт.

Если необходимо получить доступ к 5-муэлементу массива типа Real, то фактически вычислялся адрес этого элемента (адресначала массива + 4*8 байт) и считывались или записывались 8 байт, которые ипредставляли нужное значение. Если же данные принадлежат к различным типам, тотакой подход становится неприемлемым. Поэтому для значений, объединяемых в рамкахкомбинированного типа, используется альтернативный способ, а именно явноеобозначение данных (которые принято называть полями), т.е. каждое значение должноиметь свое уникальное имя.НапримерPerson= RecordName:string[20];Year:integer;End;Синтаксически описание полей выполняется так же, как описание переменных. В типеPerson объединены два поля: имя – строкового типа и, допустим, год рождения – целоготипа.

Каждая переменная типа Person будет содержать значения этих полей.VarP1,p2:Person;Доступ к полям этих переменных обеспечивается с помощью точечной нотации, котораяшироко используется в различных языках программирования.BeginP1.name:=’Ivanov’;P1.year:=1979;Описание полей name, year локализовано в пределах типа, т.е. в программе могутприсутствовать другие переменные с аналогичными именами.Значения данным комбинированного типа могут быть присвоены с помощью оператораприсваивания (см. выше), могут быть считаны с использованием процедурRead,Readln, напримерReadln(p1.name);Readln(p1.year);В рамках комбинированного типа могут объединяться не только данные разных типов, нои одного типа, т.е.

основной предпосылкой объединения может служить ихпринадлежность к общему объекту, напримерPoint=RecordX,y:real;End;Date=RecordDay:1..31;Month:1..12;Year:integer;End;Комбинированный тип может использоваться в качестве базового типа при определениидругих структур, например массивов или других записейПример1. Задан массив записей, полями которых являются фамилия студента и триоценки. Определить студента, имеющего наибольший средний балл.Program Exam;Type Student=RecordName:string[20];O1,o2,o3:byte;End;List=Array[1..100]of Student;Procedure Input(var sp:List;var n:Integer);var i:Integer;beginWrite(‘Количество студентов n=’);Readln(n);For i:=1 to n dobeginWrite(‘Фамилия ‘,i,’-го студента - ’); Readln(sp[i].name);Write(‘Оценки ‘,i,’-го студента -’);Readln(sp[i].o1,sp[i].o2,sp[i].o3);end;end;Procedure Beststud(sp:List;n:Integer;var bst:string;varocm:real);i,imax:integer;ocs:real;Beginocm:=0;For i:=1 to n doBeginOcs:=(sp[i].o1+sp[i].o2+sp[i].o3)/3;If ocs>ocm ThenBeginocm:=ocs;bst:=sp[i].name;End;End;End;Varsp:List; n:Integer;best:string;ocmax:real;beginInput(sp,n);Beststud(sp,n,best,ocmax);Writeln(‘Студент’,best,’им.макс.ср.оценку’ocmax:4:1);End.Обратить внимание на ввод данных: если среди прочих вводятся данные строковоготипа, то они вводятся отдельными процедурами Readln.Пример2.

Задан массив записей, полями которых являются координатыточки. Определить точку с максимальной ординатой и вывести еекоординаты на экран.Program Exam72;Constn1 = 20;TypePoint = Recordx,y : Real;End;Arpoint = Array [1..n1] of Point;Procedure Input(var p: Arpoint;var n:Integer);var i:integer;beginWrite ('Число точек в массиве n = '); Readln (n);Writeln ('Введите координаты ',n,' точек');For i := 1 To n DobeginWrite (i,': ');Readln (a[i].x,a[i].y);end;end;Procedure Pointmax(p: Arpoint;n:integer;var pmax: Point);i : Byte;ymax : Real;Beginpmax := p[1];For i := 2 To n DoIf p[i].y >= pmax.y Then pmax := p[i];End;Var p: Arpoint;n:integer; pmax: PointBeginInput(p,n);Pointmax(p,n,pmax);Writeln ('Координаты точки с максимальной ординатой: ');Writeln (pmax.x:5:2,' ',pmax.y:5:2);End.Записи могут использоваться в качестве полей новых записей.

Пусть у нас уже определенкомбинированный тип Date. Используем его при создании нового комбинированноготипаPerson=RecordName:string[20];Bd:Date;End;Var p:Person;Beginp.name:=’Ivanov’; p.bd.day:=10;p.bd.month:=5;p.bd.year:=1990;end;Подобного типа уровней вложения может быть сколько угодно. На практике 3-5 уровня –это обычное дело. Но при этом мы вынуждены неоднократно писать в операторах одни ите же сочетания имен переменных и полей.

Для облегчения доступа к полям записей и,соответственно, текста программы в Паскале определен специальный оператор,называемый оператором присоединения. Его синтаксис имеет следующую форму:With <имя переменной - записи> Do <оператор>;При его использовании в операторе записываются только имена полей, напримерWith p DoBeginName:=’Ivanov’;With bd DoBeginDay:=10; month:=5;year:=1990;End;End;Можно иначеWith p,bd DoBeginName:=’Ivanov’;Day:=10; month:=5;year:=1990;End;Операций для переменных комбинированного типа в языке не определено.

Но имеетместо оператор присваиванияp1:=p;если эти переменные принадлежат одному типу. В этом случае поля переменной P1получат значения соответствующих полей переменной P.Пример2. Задан массив записей, полями которых являются фамилия студента и ne егооценок. Записать в новый массив фамилии неуспевающих студентов.Program Exam73;Constne=4;TypeStudent = Recordname: string [20];oc: Array [1..ne] of integer;End;List = Array [1..20] of Student;List_n = Array [1..20] of String;Procedure Input(var sp:List;var n:Integer);var i,j:Integer;beginWrite(‘Количество студентов n=’); Readln(n);For i:=1 to n doWith sp[i] dobeginWrite(‘Фамилия ‘,i,’-го студента - ’); Readln(name);Write(‘Оценки ‘,i,’-го студента -’);For j:=1 to ne doReadln (oc[j];end;end;Procedure NewAr(sp:List;n:Integer;var spnu:List_n; vark:integer);Vari,j,k,nu,numax,k : integer;good : Boolean;Begink := 0;For i := 1 To n DoWith sp[i] Dobegingood := True;For j := 1 To ne DoIf oc[j] < 3 Then good := False;end;If Not good Thenbegink := k + 1;spnu [k] := name;end;End;Var sp:List; var spnu:List_n;n,k,i:Integer;BeginInput (sp,n)NewAr(sp,n,spnu,k);If k=0 Then Writeln (' Неуспевающих нет ')ElsebeginWriteln (' Список неуспевающих: ');For i := 1 To k DoWriteln (spnu[i]);end;End.Задание:1.

Задан массив записей, полями которых являются координаты точки. Определитьплощадь минимального круга с центром в ближайшей к началу координат точке, вкотором расположатся все заданные точки.2. Задан массив записей, которые содержат фамилию человека и рост. Расположить ихпо росту. Не используя алгоритма сортировки, вставить в упорядоченный список, ненарушая упорядоченности, новые данные, которые вводятся с клавиатуры подополнительному запросу.Строки.В классическом Паскале строкового типа данных не было. Оперировали с символьнымимассивами.

Однако со временем появилось большое количество задач, связанных собработкой текстов. Обработка текстов с помощью символьных массивов быладостаточно трудоемкой. Поэтому на определенной стадии модернизации практическогоПаскаля его разработчики расширили номенклатуру типов данных языка, введя строковыйтип. Тот факт, что этот тип данных появился позже, придал ему некоторуюдвойственность. С одной стороны, это составной тип данных, похожий на символьныймассив, т.к. строка – это последовательность символов, к каждому из которых мы в любоймомент выполнения программы можем получить доступ. С другой стороны, с даннымиэтого типа мы часто будем обращаться так же, как и с данными простых типов.Для определения строкового типа зарезервирован служебное слово string, вслед закоторым в квадратных скобках может указываться (а может и не указываться)максимальный размер строки, например:Type Line=string[80];Var st:Line;St1:string;Строка st своим значением может иметь любую последовательность символовпроизвольной длины, не превышающей 80.

Переменная st1 в зависимости от режимакомпилятора может иметь максимальную длину 255 символов, если отключен режимдлинных строк {$H-} или ее максимальная длина практически ограничивается размеромоперативной памяти, если режим длинных строк включен {$H+} (до 2-х Гб).Значения строковым переменным могут быть присвоены оператором присваивания, либопрочитаны с помощью процедуры Readln(), напримерSt:=’строка’;St1:=’’;Readln(st);В последнем случае значение переменной строкового типа вводится аналогичнопеременным простых типов.