На плоскости заданы N различных точек с целочисленными координатами.Нужно найти максимальную площадь треугольника

27.02.2013, 10:28. **Показов** 4031. **Ответов** 1

Студворк — интернет-сервис помощи студентам

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

Помогите, пожалуйста, в Паскале программу написать... А то у меня она почему-то не те результаты выводит, плюс, я не совсем понимаю, куда пихнуть условия с осями.

Pascal

uses crt;
type point=record
           x,y:integer;
           end;
function Sq(t1,t2,t3:point):integer;
begin
sq:=abs((t1.x-t3.x)*(t2.y-t3.y)-(t2.x-t3.x)*(t1.y-t3.y));
end;
var a:array[1..20] of point;
    max,i,n,j,k,s:integer;
begin
max:=0;
readln(n);
for i:=1 to n do  begin
  write('x=');readln(a[i].x);
  write('y=');readln(a[i].y);
 
end;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do begin
s:=Sq(a[i],a[j],a[k]);
if s>max
then max:=s;
end;
write(max);
end.

Добавлено через 16 минут
с площадью разобрался, ее надо на два было поделить =D

@Ашера · 02.03.2013, 00:19

ваша программа неверна изначально. Массив здесь заводить вообще нельзя, т.к. в условии написано: Размер памяти не должен зависеть от кол-ва точек. Формула у вас бешеная какая-то, где вы её взяли? Подсчёт неверен. Вот ваша программа:

Pascal

var
n:integer;
i,x,y,l,maxy,miny,maxx:integer;
s:real;
begin
write('kol-vo tochek=');
readln(n);
maxy:=-maxint;
miny:=maxint;
maxx:=-maxint;
writeln('vvodim koordinaty:');
for i:=1 to n do
begin
readln(x,y);
if (x=0) and (y<>0) then
 begin
  if y>maxy then maxy:=y;
  if y<miny then miny:=y;
 end;
if (abs(x)>maxx)and (y<>0)then maxx:=abs(x);
end;
s:=abs(maxy-miny)*maxx/2;
writeln(s:2:2);
end.

Опции темы