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

UptoLike

ВУЗ: 

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

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

Рубрика: 

219
inc(list.n);
list.person[list.n]:=person;
AddPerson:=true;
end;
end;
{Удалить запись номер del из списка list
Возвращается true – если запись была удалена
false – если запись не была удалена
}
function DelPerson(var list:ListOfPerson;
const del:byte):boolean;
begin
if (del<1) or (del>list.n) then
DelPerson:=false
else
begin
list.person[del]:=list.person[list.n];
dec(list.n);
DelPerson:=true;
end;
end;
{Сортировка списка записей list}
procedure SortList(var list:ListOfPerson);
var
imin:byte;
i,j:byte;
begin
with list do
begin
if list.n<2 then exit;
for i:=1 to n-1 do
begin

Страницы