Нужна помощь с доработкой программы

[Dalmar2008]

Не пойму в чём проблема. Вот собственно сама задача: На плоскости дан набор точек с целочисленными координатами. Необходимо найти такой треугольник наибольшей площади с вершинами в этих точках, у которого нет общих точек с осью Оу, а одна из сторон лежит на оси Ох.

А вот моё решение:

var t1,t2,n,i,x,y,h,p: integer;
   s:real;
begin
 readln(n);
 p:=0;
 t1:=maxint;
 t2:=-maxint;
 s:=0;
 h:=0;
 for i:= 1 to n do 
 begin
  readln(x,y);
  if (y=0) and (x<>0) and (x>t2) then
  begin
    t2:=x;
    p:=1;
  end;
  if (y=0) and (x<>0) and (x<t1) then t1:=x;
  if (y<>0) and (abs(y)>abs(h)) then h:=y;
 end;
 if (p=1) then s:=0.5*abs(abs(t2)-abs(t1))*abs(h);
 if (s=0) then writeln('0')
  else writeln(s);
end.

При вводе данных

8
-10 0
2 0
0 4
3 3
7 0
5 5
4 0
9 -9

Должно выводить 22.5, у меня выводит 13.5

Нужна ваша помощь!

[ViktorR]

Так понимаю, что неверно делается отбор точек. Поскольку точки треугольника должны лежать в одной (правой либо левой) полуплоскости, то, например,

t1:=maxint;
t2:=-maxint;

уже неверно. Вот один из вариантов, который дает нужное решение:

var n, i, x, y : integer;
    al, bl, hl : integer;
    ar, br, hr : integer;
        fl, fr : boolean;
            fh : text;
        s1, s2 : real;
  begin
  assign(fh, 'c:\fpc\triangl.txt');
  reset(fh);
  readln(fh, n);
  al := 0; hl := 0; bl := -maxint; fl := false;
  ar := maxint; hr := 0; br := 0; fr := false;
  for i := 1 to n do
  begin
     readln(fh, x, y);
     if x <> 0 then
     begin
        if (x < 0) then
        begin
           if ((x > bl) And (y = 0)) then
           begin
              bl := x;
              fl := true;
           end;
           if ((x < al) And (y = 0)) then
              al := x;
           if (abs(y) > hl) then
              hl := abs(y);
        end
        else
        begin
           if ((x > br) And (y = 0)) then
           begin
              br := x;
              fr := true;
           end;
           if ((x < ar) And (y = 0)) then
              ar := x;
           if (abs(y) > hr) then
              hr := abs(y);
        end;
     end;
  end;
  if ((hl <> 0) And (al <> 0) And fl) then
     s1 := abs((bl - al) * hl)/2;
  if ((hr <> 0) And (br <>0) And fr) then
     s2 := abs((br - ar) * hr)/2;
  if s1 > s2 then
     writeln(' s1= ', s1:6:2, '  al = ', al, '  bl = ', bl, ' hl = ', hl)
  else
     writeln(' s2= ', s2:6:2, '  ar = ', ar, '  br = ', br, ' hr = ', hr);
  readln;
  end.

Отбор точек ведется индивидуально для левой и правой полуплоскостей.
Вычисляется площадь каждого из возможных треугольников и выводятся параметры треугольника с бОльшей площадью. Данные (n, x, y) читаются из файла.

Как-то так, ...

[Smitt&Wesson]

Задачка, легко решается методом "линейного программирования". Я, уже устал отсылать, да и модеры форума, сочтут это не корректным. Поищитен в поисковиках, заключённое в скобки.

[Dalmar2008]

ViktorR, огромное вам спасибо, тему можно закрывать