Введение в объектно-ориентированное программирование на языке Object Pascal. Соколов Е.В. - 63 стр.

д ел е м ы ни в коем с л учае не д ол жны прим енят ь д анны е ал горит м ы к
м ат рицам , эл ем ент ы которы х д ейс т в ит ел ь но им еют т ип Number, по-
с кол ь ку д л я з апис ей т акогот ипа указ ат ел и Plus, Add и Dot не опред ел е-
ны . Вм ес то э того с л ед ует ис пол ь з ов ат ь с т рукт уры , с од ержащие ад рес а
конкрет ны хпод програм м .
         Н од л я того, чтобы д анны е ад рес а обрабат ы в ал ис ь коррект но, они
д ол жны наход ит с я на т ехже м ес т ах, чтои в з апис яхт ипа Number. Б ол ее
точноэ тооз начает, чтокажд ая з ам ещающая с т рукт ура обяз ана в кл ючат ь
в с е пол я т ипа Number, и рас пол агат ь с я они д ол жны в той же пос л ед ов а-
т ел ь нос т и и с т ем и же с м ещениям и от нос ит ел ь ноначал а объект а.
         С учетом с каз анного в ы ш е опред ел им т ип д л я хранения рацио-
нал ь ны хчис ел :

Rational = packed record
  TypeNameIs: function(TypeName: String): Boolean;
  Destroy:    procedure(var n: PNumber);
  Plus:       function(n1: PNumber; n2: PNumber): PNumber;
  Minus:      function(n1: PNumber; n2: PNumber): PNumber;
  Dot:        function(n1: PNumber; n2: PNumber): PNumber;
  Slash:      function(n1: PNumber; n2: PNumber): PNumber;
  Add:        procedure(var n1: PNumber; n2: PNumber);
  Subtract:   procedure(var n1: PNumber; n2: PNumber);
  MultiplyBy: procedure(var n1: PNumber; n2: PNumber);
  DivideBy:   procedure(var n1: PNumber; n2: PNumber);
  Normalize: procedure(var r: PRational);
  Reduce:     procedure(var r: PRational);
  num: Integer;
  den: Integer;
end;


          Е го начал о пол нос т ь ю пов т оряет с т рукт уру т ипа Number. К уна-
с л ед ов анны м пол ям д обав л яет с я д в а указ ат ел я на процед уры норм ал и-
з ации и с окращения и д в а обы чны хпол я д л я чис л ит ел я и з нам енат ел я. В
объяв л енияхнов ы хпол ей фигурирует т ип PRational, опред ел яем ы й ана-
л огичноPNumber:
                          type PRational = ^Rational;
       Дл я прив ед енной с т рукт уры м ожно реал из ов ат ь уже в с е опера-
ции, чтом ы и с д ел аем .

Пример 4.2. Опред ел ение м етод ов т ипа Rational.

procedure Normalize(var r: PRational);
begin


                                          63