Anonymous user
Vector: Difference between revisions
Add Vector in Delphi
m (→{{header|Processing Python mode}}: {{tras|Processing}}) |
(Add Vector in Delphi) |
||
Line 330:
(55, 77)
(2.5, 3.5)</pre>
=={{header|Delphi}}==
<lang Delphi>
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
.
</lang>
{{out}}
<pre>
(7,0 + i10,0)
(3,0 + i4,0)
(55,0 + i77,0)
(2,5 + i3,5)
</pre>
=={{header|F#|F sharp}}==
| |||