Основы программирования. Динамические массивы. Списки. Ассоциативные массивы. Деревья. Хеш-таблицы - 6 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

8
constructor DynArray.Create(n,cp: integer);
begin
sz:=n;
cap:=cp;
if cap<sz then cap:=sz;
if cap=0 then cap:=4;
GetMem(data,cap*sizeof(DataType));
end;
constructor DynArray.Create(n: integer);
begin
Create(n,n);
end;
constructor DynArray.Create;
begin
Create(0);
end;
destructor Destroy;
begin
FreeMem(data);
data:=nil;
sz:=0; cap:=0;
end;
procedure DynArray.Reserve(newcap: integer);
var data1: PIntArr;
begin
Assert(newcap>0,’Размер резервируемой памяти должен
быть >0’);
if newcap<=cap then
exit;
GetMem(data1,newcap*sizeof(DataType));
Move(data,data1,sz*sizeof(DataType));
cap:=newcap;
FreeMem(data);
data:=data1;
end;
procedure DynArray.Resize(newsize: integer);
begin
Assert(newsize>=0,’Размер массива не может быть <0’);
if newsize=sz then
exit;
sz:=newsize;
if sz>cap then

Страницы