21 lines
354 B
ObjectPascal
21 lines
354 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
var a:=new Vector(3,-4,1);
|
|||
|
|
var b:=new Vector(-1,0,5);
|
|||
|
|
Writeln((2*a-b).ModV);
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
var p:=Arr(3.0,0.0,-4.0);
|
|||
|
|
a:=new Vector(p);
|
|||
|
|
a.Ort.Println;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
a:=new Vector(2,-1,1);
|
|||
|
|
b:=new Vector(2,3,6);
|
|||
|
|
Writeln(a*b/(a.ModV*b.ModV))
|
|||
|
|
|
|||
|
|
end.
|