Найти точки на координатной плоскости

[vovey]

Задание:
Задаваемое кол-во точек (3..30) генерируется случайным образом на координатной плоскости 40*40.Найти три точки: Самую высшую,самую левую и самую правую точки.

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

(Помогите,я не силен в Delphi)!!!!!!!!!

Вот программа,только,без исключения!!

procedure TForm1.Button1Click(Sender: TObject);
var
 a: array[1..30] of TPoint;
 m1: array[1..3] of TPoint;
 x,y,n,i,p,s: integer;
 w:string;
  begin
  while (strtoint(edit1.Text)<3)or(strtoint(edit1.Text)>30)or(edit1.Text='')or(edit1.Text=' ') do //проверка на условие
  begin w:=inputbox('Неправильное значение','Введите количество точек от 3 до 30','3');
  edit1.Text:=w;
  end;
 
  Memo1.Clear;//Очистить мемо
  
  n:= StrToInt(Edit1.Text);//количество точек
  image1.Canvas.Pen.Width:=3;
  image1.Canvas.Pen.Color:=clblack;
  image1.Canvas.Font.Size:=7;
 
 //Расчмтать точки
  for i:= 1 to n do//до количества точек делать
  begin
  randomize;//Генератор
 
   x:= 30+ Random(image1.width -80);//координата X
   y:= 30+ Random(image1.Height-80);//Координата Y
 
   memo1.Lines.Add('№'+inttostr(i)+' ('+floattostrf(x,fffixed,3,0)+':'+floattostrf(y,fffixed,3,0)+')');//вывод на экран
   image1.Canvas.Ellipse(x-1, y-1, x+1, y+1);//рисовать точки
 
   image1.Canvas.TextOut(x+2, y, '№'+inttostr(i));//рисовать текст
 
   a[i].X:=x;//заполнить массив
   a[i].Y:=y;
   end;
 
 //Установки канвас
  image1.Canvas.Pen.Width:=1;
  image1.Canvas.Pen.Color:=clblack;
 
 //расчитать треугольник
  m1[1].Y:= a[1].Y;//самая высшая
  m1[2].X:= a[1].X;//самая левая
  m1[3].X:= a[1].X;//самая правая
 
  memo1.Visible:=true;
  
  for i:=1 to n do
  begin
 
  //самая высшая
   if (a[i].Y < m1[1].Y) then
   begin
    m1[1].Y := a[i].Y;
    m1[1].X := a[i].X;
   end;
 
  //самая левая
   if (a[i].X > m1[2].X) then
   begin
    m1[2].X := a[i].X;
    m1[2].Y := a[i].Y;
   end;
 
  //самая правая
   if (a[i].X < m1[3].X) then
   begin
    m1[3].X := a[i].X;
    m1[3].Y := a[i].Y;
  end;
  end;
 
 //вывестин на экран треугольник
 image1.Canvas.MoveTo(m1[1].X, m1[1].Y);
 image1.Canvas.LineTo(m1[2].X, m1[2].Y);
 image1.Canvas.LineTo(m1[3].X, m1[3].Y);
 image1.Canvas.LineTo(m1[1].X, m1[1].Y);
end;

[Stilet]

Это означает, что программа не построит треугольник

Подожди я не понял. Треугольник нельзя построить если его вершины лежат на одной прямой. так?
Или что тебе нужно?

[vovey]

К примеру я задам 3 точки!

1-я точка будет самой правой

2-я точка будет самая левая и самая высшая!

3-я точка ,например посередине!

Вот так,а как исключить такие варианты,я не знаю

[Stilet]

Ну и что? Вполне можно построить по ним треугольник.
Ты только уточняй что значит "Самая правая" Это ведь только одна координата точки. А где она справа находится по Y то а?

[vovey]

Все написано в коде!

Программа не построит треугольник,она построит линию,и будет соединять только две токи!
В таком случае: только 1-ю и 2-ю точки!Нужно исключить такие варианты!

[Stilet]

У тебя тут мульен-бульен ошибок.
Вот смотри я поправил и рисует что-то:

procedure TForm1.Button1Click(Sender: TObject);
var
 a: array[1..30] of TPoint;
 m1: array[1..3] of TPoint;
 x,y,n,i,p,s: integer;
 w:string;
  begin

  n:= 20;
  image1.Canvas.Pen.Width:=3;
  image1.Canvas.Pen.Color:=clblack;
  image1.Canvas.Font.Size:=7;

 //Расчмтать точки
  for i:= 1 to n do//до количества точек делать
  begin
  //randomize;//Генератор

   x:= 10+Random(image1.width);//координата X
   y:= 10+Random(image1.Height);//Координата Y

   image1.Canvas.Ellipse(x-1, y-1, x+1, y+1);//рисовать точки
 
   image1.Canvas.TextOut(x+2, y, '№'+inttostr(i));//рисовать текст

   a[i].X:=x;//заполнить массив
   a[i].Y:=y;
   end;

 //Установки канвас
  image1.Canvas.Pen.Width:=1;
  image1.Canvas.Pen.Color:=clblack;

 //расчитать треугольник
  m1[1].Y:= a[1].Y;//самая высшая
  m1[2].X:= a[1].X;//самая левая
  m1[3].X:= a[1].X;//самая правая
 

  for i:=1 to n do
  begin

  //самая высшая
   if (a[i].Y < m1[1].Y) then    m1[1] := a[i];
  //самая левая
   if (a[i].X > m1[2].X) then    m1[2]:= a[i];
  //самая правая
   if (a[i].X < m1[3].X) then    m1[3] := a[i]
  end;
 
 //вывестин на экран треугольник
 image1.Canvas.MoveTo(m1[1].X, m1[1].Y);
 image1.Canvas.LineTo(m1[2].X, m1[2].Y);
 image1.Canvas.LineTo(m1[3].X, m1[3].Y);
 image1.Canvas.LineTo(m1[1].X, m1[1].Y);
end;

Так тебе надебно?

[evg_m]

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

а какие проблемы

 if самая_левая равна самая_верхняя  then  //там гда они у тебя уже есть
  showmessage('остались только две');