Помогите разобраться с кодом программы

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Помогите разобраться с кодом программы

Re: Помогите разобраться с кодом программы

Сионист » 09 сен 2015, 06:52

Ты б сначала затеговал и отступы расставил. А то читать неудобно.

Re: Помогите разобраться с кодом программы

somewhere » 23 апр 2015, 20:39

Класс матрицы описывается базовым адресом в памяти и размерностью, только вот заместо размерности приняты минимальные и максимальные значения целочисленных индексов строки и столбца
Метод ElemPP возвращает указатель на элемент массива в памяти, исходя из передаваемых индексов, ну а остальные два метода читают или записывают в матрицу значения.

Помогите разобраться с кодом программы

lapulya_14 » 23 апр 2015, 16:53

Не могу понять что в этих методах происходит(работа с классом)?
unit Matrisa;
interface
type Real=Single;
RealP=^Real;
type TMatr=class
protected
Orig: Pointer;
kMin, kMax, jMin, jMax:Integer;
function ElemPP(k,j:Integer):RealP;
public
function OutElemm(k,j:integer):Real;
procedure InpElemm(k,j:integer;r:Real);
implementation
uses Uses_Massiv;
function TMatr.ElemPP;
begin
ElemPP:= Ptr(LongInt(Orig)+((k-kMin)*(jMax-jMin+1)+j-jMin)*Sizeof(Real));
end;
function TMatr.OutElemm(k,j:integer):Real;
begin
Result:=ElemPP(k,j)^;
end;
procedure TMatr.InPElemm(k,j:integer;r:Real);
begin
ElemPP(k,j)^:=r;
end;

Вернуться к началу