ДЕЛФИ, ВЕКТОРА

[Эля_informatichka]

ПОМОГИТЕ МНЕ ПЖЛ, НЕОБХОДИМО ПРОВЕРИТЬ ОРТОГАНАЛЬНЫ ЛИ ВЕКТОРА?


function IsOrtogonal(a,b:TVector):boolean;
begin

end;


а это общая программа:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  windows,
  vectors in 'X:\homes\zhd\public\points\vectors.pas',
  points in 'X:\homes\zhd\public\points\points.pas';

Type

Tsegment = record
  A,B:Tpoint;
end;


var
A,B,C,D,E,F,G,H,I:Tpoint;
s:real;
d1,d2,d3,v:real;



begin
A:=inputPoint('A');
B:=inputPoint('B');
C:=inputPoint('C');

writeln(PointToStr(A)+';'+PointToStr(B)+';'+PointToStr(C));

D:=mid(A,B);
F:=mid(C,D);
F.name:='F';
writeln(PointToStr(F));
writeln(PointToStr(mint(A,B)));
writeln(PointToStr(mint2(A,B)));
if colinear(A,B,C)
  then writeln ('Точки A,B,C не образуют треугольника!')
  else writeln ('Точки A,B,C образуют треугольник!');

d1:=distPoint(A,B);
d2:=distPoint(A,C);
d3:=distPoint(C,B);
writeln('AB=',d1);
writeln('AC=',d2);
writeln('BC=',d3);

writeln('наименьшее расстояние:',min(min(d1,d2),d3));


D:=mid(A,B);
E:=mid(A,C);
F:=mid(B,C);

v:=rvector(A);
writeln(v);

G:=mint(A,B);

H:=mint(A,C);

I:=mint(B,C);


print(D);
Writeln('D=','(',D.x,',',D.y, ')');
Writeln(E);
Writeln(F);
readln(s);

end.

[InfStudent]

Ну смотрите ортоганальность двух векторов друг другу обозначает что их векторное призведение равно 0, формула вектороного произведения надеюсь известна, если надо освежить, то векторное произведение