Скачиваний:
17
Добавлен:
01.05.2014
Размер:
220 б
Скачать
unit Mydet;
Interface
uses List;

Function det(x1,x2,x3:AList):integer;

Implementation
Function det(x1,x2,x3:AList):integer;
begin
det:=x1.x*(x2.y-x3.y)-x1.y*(x2.x-x3.x)+(x2.x*x3.y-x2.y*x3.x);
end;
end.
Соседние файлы в папке SOURCE
  • #
    01.05.201426.03 Кб18Main.pas
  • #
    01.05.201451 б18Main.~ddp
  • #
    01.05.201442.62 Кб18Main.~dfm
  • #
    01.05.201426.13 Кб17Main.~pas
  • #
    01.05.2014485 б17MYDET.DCU
  • #
    01.05.2014220 б17MYDET.PAS
  • #
    01.05.20148.63 Кб18nonscrol.GID
  • #
    01.05.20147.72 Кб17NONSCROL.HLP
  • #
    01.05.2014809 б17SORT.DCU
  • #
    01.05.2014630 б17Sort.pas
  • #
    01.05.2014621 б17Sort.~pas