31 lines
394 B
Plaintext
31 lines
394 B
Plaintext
program Vector;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
System.Math.Vectors,
|
|
SysUtils;
|
|
|
|
procedure VectorToString(v: TVector);
|
|
begin
|
|
WriteLn(Format('(%.1f + i%.1f)', [v.X, v.Y]));
|
|
end;
|
|
|
|
var
|
|
a, b: TVector;
|
|
|
|
begin
|
|
a := TVector.Create(5, 7);
|
|
b := TVector.Create(2, 3);
|
|
VectorToString(a + b);
|
|
VectorToString(a - b);
|
|
VectorToString(a * 11);
|
|
VectorToString(a / 2);
|
|
|
|
ReadLn;
|
|
end
|
|
|
|
.
|