Построение выпуклой оболочки, нужна помощь...все совсем плохо=( Опции

[Feagor]

Условие:
даны действительные числа x1,y1,x2,y2,...xn,yn известно что точки p1,p2,...pn с коорданатами (x1,y1),(x2,y2),...(xn,yn) попарно различны. Найти выпуклый многоугольник с вершинами в некоторых из точек p1,p2,..pn, который содержит все точки p1,p2,...pn. Многоугольник должен быть предоставлен последовательностью вершин.
ваще хз как делать, листинг, то что понял как делать

uses crt;
const armax=100;
var x,y:array[1..armax] of integer;
    i,j,n:integer;
begin
clrscr;
 writeln('Kolichestvo tochek:');
 read(n);
 for i:=1 to n do
    begin
      writeln('x[',i,']');
      read(x[i]);
      writeln('y[',i,']');
      read(y[i]);
    end;
end.

Прошу помощи, завтра сдавать...

Сообщение отредактировано: Feagor - 24.12.2007 21:07

[volvo]

но хотелось бы не тупо чужой код перерисовать, а найти ошибку в своем

Тогда начинай все с самого начала: твоя программа (вернее, ты, а не программа) ошибается уже на этапе

Находим нижнюю-правую точку

У тебя точка находится неверно... А все почему? Потому, что ты с какой-то стати проверяешь отдельно координаты X и Y, а надо было сделать что-то типа:

  x1[1] := x[1]; y1[1] := y[1];
  for i := 2 to n do begin
    if y[i] < y1[1] then begin { очередная точка НИЖЕ? }
      x1[1] := x[i]; y1[1] := y[i]; { Координаты одной точки - ВСЕГДА вместе, не надо разбивать }
    end
    else
      if (y[i] = y1[1]) and (x[i] > x1[1]) then begin { на одной высоте, но ПРАВЕЕ? }
        x1[1] := x[i]; y1[1] := y[i];
      end;
  end;

Вот тогда будет действительно вычисляться нижняя-правая точка... А у тебя вычислялось вообще непонятно что.