Основы программирования на языке Turbo Pascal. Беляева И.В. - 216 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

216
begin
end.
Модуль Info
Файл Info.pas содержит модуль Info
{Файл Info.pas
Модуль Info
Работа со списком записей «Медицинская информация»
}
unit Info;
interface
const
maxNInfo = 20; {максимально возможное количество записей в списке}
type
{Запись «Медицинская информация»}
MedicalInfo = record
familia : string[30]; {фамилия}
imja : string[20]; {имя}
otchestvo : string[25]; {отчество}
YearBirth : integer; {год рождения}
GroupBlood: string[5]; {группа крови}
Height : byte; {рост}
Weight : byte; {вес}
end;
{Список записей «Медицинская информация»}
ListOfPerson = record
n:byte; {количество записей в списке}
person:array [1..maxNInfo] of MedicalInfo; {массив записей}

Страницы