21 lines
354 B
ObjectPascal
21 lines
354 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// Âåêòîðíàÿ àëãåáðà
|
|
begin
|
|
// ìîäóëü âåêòîðà
|
|
var a:=new Vector(3,-4,1);
|
|
var b:=new Vector(-1,0,5);
|
|
Writeln((2*a-b).ModV);
|
|
|
|
// ðàçëîæåíèå ïî îðòàì
|
|
var p:=Arr(3.0,0.0,-4.0);
|
|
a:=new Vector(p);
|
|
a.Ort.Println;
|
|
|
|
// íàïðàâëÿþùèé êîñèíóñ
|
|
a:=new Vector(2,-1,1);
|
|
b:=new Vector(2,3,6);
|
|
Writeln(a*b/(a.ModV*b.ModV))
|
|
|
|
end.
|