/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/StandardUnits/NumLibABC/Vector1.pas
20 строк
354 B
Mikhalkovich Stanislav
Переместил некоторые примеры в папку StandardUnits
18 апр 2022, 13:58
18 апр 2022, 13:58
ebb3d81
Код
Авторство
О чём код?
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.