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

UptoLike

ВУЗ: 

ИвГУ | Иваново

Составители: 

Рубрика: 

47
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);
WriteLn('v1.GetLength: ', v1.GetLength:5:5);
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:=DynamicRVector.Create; 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. 
  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);
  WriteLn('v1.GetLength: ', v1.GetLength:5:5);
  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:=DynamicRVector.Create; 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.




                                 47

Страницы