With stud_1 Do
WriteLn(nomer:10, fam:15, name:15, ocenka:3, sr_ball:6:2);
В данном случае запись выведена в одну строку форматным способом.
Поле записи может иметь любой разрешенный в Паскале тип и структуру (массив, множество, файл, строку), в том числе может представлять собой в свою очередь запись.
Пример: создать базу данных (файл записей), в которой можно было бы хранить следующие данные о студентах:
учебная группа,
личные данные:
фамилия,
имя,
отчество,
дату рождения:
год,
месяц,
день,
адрес:
город,
улица,
дом,
корпус,
квартира,
телефон.
Ввести в базу данные о нескольких студентах (конец ввода – нажатие на клавишу ENTER при запросе номера учебной группы. Прочитать базу данных и вывести на экран номера учебных групп, фамилии, имена и отчества студентов.
Интерфейс:
Группа: ИС-09
Фамилия: Иванов
Имя: Иван
Отчество: Иванович
Год рождения: 1993
Месяц рождения: 2
День рождения: 23
Город: Иркутск
Улица: Трилиссера
Дом: 123
Корпус: 2
Квартира: 45
Телефон: 235347
Группа:
На экран будет выведено:
ИС-09 Иванов Иван Иванович
Программа:
Program Baza_student;
Uses WinCrt;
Type TKadr = Record основная запись
gruppa : String[10];
fio : Record запись в записи
fam, name : String[10];
otch : String[15];
End;
adres: Record запись в записи
gorod, ulica : String[20];
korp, dom, kv: String[5];
telefon : String[10];
End;
data : Record запись в записи
den : 1..31;
mes : 1..12;
god : 1900..2000;
End;
End;
Var student : TKadr;
baza : File Of TKadr;
Begin
Дата добавления: 2015-08-08; просмотров: 510;