Предыдущая страница реферата | 15  16  17  18  19  20  21  22  23  24  25 | Следующая страница реферата

Buffer: Float; begin for i := 1 to FCols do begin

Buffer := GetCell(i, FirstRow);

SetCell(i, FirstRow, GetCell(i, SecondRow));

SetCell(i, SecondRow, Buffer); end; end;

constructor TMatrix.Create (NCols, NRows: Word); begin inherited Create;

FCols := NCols;

FRows := NRows;

DataPtr := AllocMem(FCols * FRows * SizeOf(Float)); end;

destructor TMatrix.Destroy; begin

FreeMem(DataPtr); inherited Destroy; end;

procedure TMatrix.Assign (AMatrix: TMatrix); var

NewMatrixSize: LongInt; begin

NewMatrixSize := AMatrix.ColCount * AMatrix.RowCount * SizeOf(Float);

ReAllocMem(DataPtr, NewMatrixSize);

CopyMemory(DataPtr, AMatrix.DataPtr, NewMatrixSize);

FCols := AMatrix.ColCount;

FRows := AMatrix.RowCount end;

procedure TMatrix.ReSize (NewCols, NewRows: Word); var

NewMatrixSize: LongInt; begin

NewMatrixSize := NewCols * NewRows * SizeOf(Float);

ReAllocMem(DataPtr, NewMatrixSize);

FCols := NewCols;

FRows := NewRows; end;

procedure TMatrix.SetNull; begin

ZeroMemory (DataPtr, FCols * FRows * SizeOf(Float)); end;

Рекомендуем скачать другие рефераты по теме: виленкин математика 6 класс решебник, шпора на пятке лечение, дипломная работа формирование.



Предыдущая страница реферата | 15  16  17  18  19  20  21  22  23  24  25 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки