Презентация на тему Комбинированный тип данных

из фиксированного числа компонент (полей) разного типа. Комбинированный тип

имеет еще и другое название – запись.
Обычно запись содержит совокупность разнотипных атрибутов, относящихся к одному объекту. Например, анкетные сведения о студенте вуза могут представлены в виде информационной структуры.

Анкета студента

Ф.И.О.

Пол

Дата рождения

Адрес

Курс

Группа

Стипендия

информация может храниться в одной переменной типа Record (Запись).

Задать тип и описать соответствующую переменную можно следующим образом:

Type Anketa1= Record
Fio : String[50];
Pol : Char;
Dat : String[16];
Adres : String[50];
Curs : 1 . . 5;
Grup 1 . . 10;
Stip : Real;
End;
Var Student : Anketa1;

К каждому элементу записи можно обратиться, используя составное имя,
Которое имеет следующую структуру:
< имя переменной> . < имя поля>
Например, Student . Fio; Student . Dat и т.д.

сами могут быть записями.
Анкета студента
Ф.И.О.
Пол
Дата рождения
Адрес
Курс
Группа
Стипендия
Год
Месяц
День
Город
Улица, дом квартира

Fio : String[50];
Pol : Char;
Dat : Record
God :

Integer;
Mes : String[10];
Den : 1 . . 31
End;
Adres : Record
Gorod : String[20]
UlDomKv : String[30];
End;
Curs : 1 . . 5;
Grup 1 . . 10;
Stip : Real;
End;
Var Student : Anketa2;

факультете 500 студентов , то все анкетные данные о

них можно представить в массиве:

Var Student : Array [1 . . 500] of Anketa1;

В таком случае , например, год рождения 5-го в списке студента
хранится в переменной Student[5].Dat.God. Любая обработка записей, в том числе ввод и вывод, производится поэлементно. Например, ввод сведений о 500 студентах можно организовать так:

Student[ i ] do
Begin
Write (‘ Ф.И.О. : ’) ;

Readln (FIO) ;
Write (‘ Пол (м/ж) : ’) ; Readln (Pol) ;
Write (‘ Дата рождения : ’) ; Readln (Dat) ;
Write (‘ Адрес : ’) ; Readln (Adres) ;
Write (‘ Курс : ’) ; Readln (Curs) ;
Write (‘ Группа : ’) ; Readln (Grup) ;
Write (‘ Стипендия (руб.) : ’) ; Readln (Stip) End;

следующий вид:
With do ;
Он позволяет ,

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

Работа с файлами записей
Пример.
Сформировать файл FM.DAT , содержащий экзаменационную ведомость студенческой группы. Записи файла состоят из следующих элементов: фамилия, имя, отчество, номер зачетной книжки, оценка.

String[6];
Mark : 2 . .5
End;
Var Fstud: File of Stud;

{ Файл записей }
S: Stud; { Переменная типа «Запись»}
N, i: Byte;
Begin
Assing(Fstud, ‘FM.DAT’); Rewrite(Fstud);
Write (‘ Количество студентов в группе? ’ ); Readln (N);
For i : = 1 to N do
Begin
Write ( i :1, ‘-й, Фамилия И. О. ‘) ; Readln (S.FIO);
Write ( ‘ Номер зачетки ‘) ; Readln(S.Nz);
Write ( ‘Оценка ‘) ; Readln(S.Mark);
Write ( Fstud, S) ;
End;
Writeln ( ‘ Формирование файла закончено ‘) ;
Close (Fstud)
End.

String[20];
Ulica:String;
Dom,Kv : 1 ..

100;
End;

Используя оператор присваивания, присвоить переменной ADR значение «Москва, улица Арбат, д 1, кв. 5.»

Пример

расписания уроков на неделю.