функции

[surovii]

помогите написать вот эти три функции..

1) функция находящая треугольники в четвёртой четверти декартовой системы координат
2) функция считающая минимальную площадь тругольника
3) Функция находящую кол-во треугольников находящихся полностью в окружности

при таких параметрах:
type coord=record
x:integer;
y:integer;
end;

type treug=record
A:coord;
B:coord;
C:coord;
end;

[__STDC__]

Даны три координаты вершин? Тогда:
1. Проверять чтобы координата х каждой вершины была положительной, а у отрицательной.

function inFourth(coords:treug):boolean;
begin
with coords do begin
	if	(A.x>0) and (B.x>0) and (C.x>0) and
		(A.y<0) and (B.y<0) and (C.y<0) then
			inFourth := true
	else inFourth := false;
end;
end;

2. Непонятно... минимальной из каких?
3. Уже было задание такое... проверить нах-ся ли точка внутри окр-ти.. только тут одновременно все три должны находиться.
Логика понятна же (кроме второго)... В чем проблема?

[Niarb]

к пункту 2:
...
площадь тругольника по координатам его вершин можно вычислить так:

S:=Sqrt(p*abs(p-a)*abs(p-b)abs(p-c)),
где:
a, b, с - длины сторон
p - полупериметр - (a+b+c)/2

...длина стороны...
a:=sqrt(sqr(x2-x1)+sqr(y2-y1))

[__STDC__]

Формула Герона, угу.. только непонятно, почему минимальная? Минимальная площадь будет в частном случае, когда все три координаты треугольника совпадают и он вырождается в точку))))
P.S. третью уж очень лень писать.. на форуме уже писал про это и видел 2 или даже больше тем по этому поводу..

[surovii]

за всё это конечно спасибо но третью я больше всего не понимаю, поэтому прошу скинуть мне ссылочку на это либо написать ф-цию..

[surovii]

мдя вот ещё я прикинул ф-цию про минимальную площадь

function minS(t:array of treug;n:integer):real;
var ab,bc,ac,minS:real;
A,B,C:coord;
p:array [1..100] of real;
S:array [1..100] of real;
begin
minS:=0;
for i:=1 to n do
ab:=sqrt(sqr(t[i].A.x-t[i].B.x)+sqr(t[i].A.y-t[i].B.y));
bc:=sqrt(sqr(t[i].B.x-t[i].C.x)+sqr(t[i].B.y-t[i].C.y));
ac:=sqrt(sqr(t[i].A.x-t[i].C.x)+sqr(t[i].A.y-t[i].C.y));
p[i]:=(ab+bc+ac)/2;
S[i]:=sqrt(p[i]*(p[i]-ab)*(p[i]-bc)*(p[i]-ac));
minS:=S[1];
if S[i]<minS then minS:=S[i];
end;

[surovii]

кто что скажет?

[Niarb]

begin
minS:=0;
for i:=1 to n do
ab:=sqrt(sqr(t[i].A.x-t[i].B.x)+sqr(t[i].A.y-t[i].B.y));
bc:=sqrt(sqr(t[i].B.x-t[i].C.x)+sqr(t[i].B.y-t[i].C.y));
ac:=sqrt(sqr(t[i].A.x-t[i].C.x)+sqr(t[i].A.y-t[i].C.y));
p[i]:=(ab+bc+ac)/2;
S[i]:=sqrt(p[i]*(p[i]-ab)*(p[i]-bc)*(p[i]-ac));
minS:=S[1];
if S[i]<minS then minS:=S[i];
end;

...
правильнее будет...

begin
   minS:=0;
   for i:=1 to n do begin
      ab:=sqrt(sqr(t[i].A.x-t[i].B.x)+sqr(t[i].A.y-t[i].B.y));
      bc:=sqrt(sqr(t[i].B.x-t[i].C.x)+sqr(t[i].B.y-t[i].C.y));
      ac:=sqrt(sqr(t[i].A.x-t[i].C.x)+sqr(t[i].A.y-t[i].C.y));
      p[i]:=(ab+bc+ac)/2;
      S[i]:=sqrt(p[i]*(p[i]-ab)*(p[i]-bc)*(p[i]-ac));
   end;
   minS:=S[1];
   for i:=2 to n do
      if S[i]<minS then
         minS:=S[i];
end;

не забывай что N не должно превышать 100 - размерность массивов P и S

[Levsha100]

3)

a:Array[1..n]of treug;

k:=0;

 
for i:=1 to n do
begin
  //if a[i].a.x
//Стоп а где координаты треугольника?
end;

длина вектора:

r:=SQRT(  (x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)  );

[Niarb]

к пункту 3:
треугольник находится полностью в окружности, если все его вершины находятся внутри окружности...
точка A(x,y) находится в окружности с центром C(x1,y1) и радиусом R если,
...x>=(x1-r) and x<=(x1+r) and y>=(y1-r) and y<=(y+r)