Разработка классов на языке Object Pascal. Соколов Е.В. - 57 стр.

       И т ак, м ы им еем

Пример3.1.3. Дем онс т рац ионная програм м а д л я кл ас с а DynamicVector.

program TestDynamicVector;
{$APPTYPE CONSOLE}
uses UnitDynamicVector in 'UnitDynamicVector.pas',
     UnitNumber in 'UnitNumber.pas',
     UnitRational in 'UnitRational.pas';
var v1, v2, v3, v4: DynamicVector;
    r: Rational; p: Number; i: Integer;
begin
  v1:=DynamicVector.CreateOfType(Rational);
  v2:=DynamicVector.CreateOfType(Rational);
  r:=Rational.Create;
  v1.SetDim(9);
  for i:=1 to 9 do begin
     r.SetNum(i); r.SetDen(i+1); v1.SetComp(i, r);
  end;
  v2.SetDim(7);
  for i:=1 to 7 do begin
     r.SetNum(i+1); r.SetDen(i+2); v2.SetComp(i, r);
  end;
  WriteLn('v1: '+v1.AsString);
  WriteLn('v2: '+v2.AsString);
  // вызов метода GetLength удален
  v1.SetDim(5); v2.SetDim(5);
  WriteLn('v1 after v1.SetDim(5): '+v1.AsString);
  WriteLn('v2 after v2.SetDim(5): '+v2.AsString);
  v3:=v1.Plus(v2); WriteLn('v3 after v3:=v1.Plus(v2): '+v3.AsString);
  v1.Add(v2); WriteLn('v1 after v1.Add(v2): '+v1.AsString);
  if v1.IsEqual(v3)
     then WriteLn('v1 is equal to v3')
     else WriteLn('v1 is not equal to v3');
  v4:=DynamicVector.CreateOfType(Rational); v4.SetDim(5);
  v4.Assign(v2); WriteLn('v4 after v4.Assign(v2): '+v4.AsString);
  v4.Subtract(v1);
  WriteLn('v2 after v4.Subtract(v1): '+v2.AsString);
  WriteLn('v4 after v4.Subtract(v1): '+v4.AsString);
  p:=v2.ScalarProduct(v4);
  WriteLn('v2.ScalarProduct(v4): '+p.AsString);
  p.Destroy; r.Destroy;
  v1.Destroy; v2.Destroy; v3.Destroy; v4.Destroy;
  ReadLn;
end.




                                     57