358 __ ___ Приложение

Procedure TEMSMatrix.SetItem(var Source; Indl,Ind2: LongInt);

{Помещает в EMS элемент с индексами Indl, Ind2 из переменной Source} var

Item: LongInt;

begin

Item := GetVedndex (Indl, Ind2);

($IFNDEF NOTCHECK}

if not EMSErrorFlag then {$endIFj

TEMSVector.SetItem(Source,Item) end; {TEMSMatrix. Setltem} ^___—____-_____-. ___^

Procedure TEMSMatrix.Getltem(var Dest; Indl,Ind2: LongInt);

(Читает из EMS элемент ыассивас индексами Indl,Ind2} var

Item: LongInt;

begin

Item := GetVedndex (Indl, Ind2) ;

{$IFNDEF NOTCHECK}

if not EMSErrorFlag then {$end.IFf

TEMSVector.Getltem(Dest,Item) end; {TEMSMatrix.Getltem} ^—————————————;

Function TEMSMatrix.SingleItemtIndl,Ind2: LongInt): Single;

var

Item: LongInt; , begin

Item := GetVedndex (Indl, Ind2 );

{$IFNDEF NOTCHECK}

if not EMSErrorFlag then {$endIF}

SingleItem := TEMSVector.SingleItem(Item) end; {TEMSMatrix.SingleItem} ^_—————————.——;

Function TEMSMatrix.DoubleItem(Indl,Ind2: LongInt): Double;

var

Item: LongInt;

begin

Item := GetVedndex (Indl, Ind2) ;

{$IFNDEF NOTCHECK}

if not EMSErrorFlag then {$endIF}

DoubleItem := TEMSVector.DoubleItem(Item) end; {TEMSMatrix.Doubleltem} ^————————————^

Function TEMSMatrix.Real Item(Indl,Ind2: LongInt): Real;

var

Item: LongInt;

begin

Item := GetVedndex (Indl, Ind2) ;

{$IFNDEF NOTCHECK}

if not EMSErrorFlag then ($endIF)

RealItem := TEMSVector.RealItem(Item) end; {TEMSMatrix.RealItem} ^——-——————————;

Function TEMSMatrix.Extendedltem(Indl,Ind2: LongInt): Extended;

var