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

UptoLike

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

Рубрика:

218

implementation

{Очистить список записей list}

procedure Clear(var list:ListOfPerson);

begin

list.n:=0;

end;

{Перестановка в списке list элементов с индексами i и j}

procedure Exchange(var list:ListOfPerson; const i,j:byte);

var

tmp:MedicalInfo;

begin

if i<>j then

begin

tmp := list.person[i];

list.person[i] := list.person[j];

list.person[j] := tmp;

end;

{Добавить в конец списка list запись person

Возвращается true – если запись была вставлена

false – если запись не была вставлена

}

function AddPerson(var list:ListOfPerson;

const person:MedicalInfo):boolean;

begin

if list.n=maxNInfo then

AddPerson:=false

else

begin