346 Приложение

Procedure Store(var F: File); Virtual;

Procedure Setltem(var Source; Index: Longint);

Procedure GetItemtvar Dest; Index: Longint);

Function SingleItem(Index: Longint): Single;

Function Doubleltem(Index: Longint): Double;

Function Realltem(Index: Longint): Real;

Function ExtendedItem(Index: Longint): Extended;

Function IntegerItemdndex: Longint) : Integer;

Function LongIntItem(Index: Longint): Longint;

Function Byte I tern(Index: Longint): Byte;

end;

{---------- Двумерный пассив в EMS ----------}

PEMSMatrix =^TEMSMatrix;

TEMSMatrix = object (TEMSVector)

Minlndl: Longint; {Минимальный индекс!

MaxIndl: Longint; (Максимальный индекс}

MinInd2: Longint; {Минимальный индекс}

Maxlnd2: Longint; {Максимальный индекс}

Constructor Init(ASize,Minl,Maxl,Min2,Max2: Longint);

Constructor Load(var F: File);

Procedure Store(var F: File); Virtual;

Function GetVedndex(Indl,Ind2: Longint): Longint;

Procedure SetItem(var Source;Indl,Ind2: Longint);

Procedure GetItemfvar Dest;Indl,Ind2: Longint);

Function SingleItemdndl, Ind2: Longint): Single;

Function DoubleItemdndl, Ind2: Longint): Double;

Function Real Item(Indl,Ind2: Longint): Real;

Function ExtendedItemtIndl,Ind2: Longint): Extended;

Function IntegerltemlIndl,Ind2: LengInt): Integer;

Function LongIntItem(Indl,Ind2: Longint): Longinc;

Function BytPltem(Indl,Ind2: Longint): Byte;

end;

{---------- Многомерный массив в ЕМЗ —-—--—}

TIndexList - array [l-.MaxInt div 2] of Longint;

TIndex = array [l-.MaxInt div 6,1..3] o? Longint;

PIndex ="TIndex;

TIndexBond = array [l..Max!nt div 4,1..2] of Longint, PEMSArray -"TEMSArray;

TEMSArray = object (TEMSVector)

Nindex: Word; {Колячество измерений)

Index : PIndex:

Constructor Init(ASize: Longint; NInd: Word,- var Ind)?

Constructor Load(var F: File);

Destructor Done; Virtual;

Procedure Store(var F: File); Virtual;

Function GetVeclndex(var Ind): Longint;

Procedure Setltemfvar Source,Ind);

Procedure GetItem(var Dest,Ind);

end;

{—-- Имитатор файла последовательного доступа ----} PEMSType ="TEMSType;

TEMSType » object (TEMSArea)

Pos: Longint; {Текущая позиция от начала памяти,"

Constructor Init(ASize: Longint;;

Constructor Load(vac F: Pile);

Procedure Store(var F: File); Virtual;

Procedure SetItem(var Source; Sz: LotigInt) ;

Procedure GetItemtvar Dest; Sz: Longint);

end;