Давайте доделаем,программа для курсовой

[vovey]

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

У меня ошибка,только не могу найти где!Ошибка при построении треугольника!

[Google2010]

type tpoint = record
    x:integer;
    y:integer;
 end;

var
  p:array[1..30] of tpoint;// массив точек
  sl,sv,sp:tpoint;// самая левая, самая верхняя и самая правая точки

{генерим массив точек}
procedure Tform1.generate;
var j:integer;
begin
randomize;
   for j := 1 to 30  do
     begin
     p[j].x:=random(image1.Width)+1;
     p[j].y:=random(image1.Height)+1;
     end;
end;
{определяем точки}
procedure Tform1.points;
var j:integer;
begin
  sl:=p[1];
  sp:=p[1];
  sv:=p[1];
for j := 1 to 30  do
    begin
      if p[j].x >sp.x then begin sp:=p[j];  end;
      if p[j].x <sl.x then begin sl:=p[j];  end;
      if p[j].y<sv.y then  begin sv:=p[j];  end;
    end;
end;
{строим треугольник}
procedure Tform1.triangle;
begin
  with image1.canvas do begin
    moveto(sl.x,sl.y);
    lineto(sp.x,sp.y);
    lineto(sv.x,sv.y);
    lineto(sl.x,sl.y);
  end;
end;
{ну и по кнопке}
procedure TForm1.Button1Click(Sender: TObject);
begin
generate;
points;
triangle;
end;

насколько короче - настолько и понятнее

[vovey]

procedure Tform1.generate;
procedure Tform1.points;
procedure Tform1.triangle;

Что это за компоненты?Где их взять?Я с ними раньше никогда не работал!

[Google2010]

Это не компоненты это процедуры написанные ручками

[vovey]

когда я их вписываю,вылетает ошибка((

все,понял))

[Google2010]

У меня все отлично рисует

[vovey]

а если задаем,например 10,он мне построит треугольник который нужен и как подсчитать сколько точек за треугольником и сколько в нем?

[Google2010]

Уж это или сам доделай или в аську за деньги доделаю

[vovey]

Я уже доделал!А блок схему сможешь на эту прогу сделать?

[P1oneer]

Ребят, дико извиняюсь за оффтоп.
Google2010, как можно Вам постучать в аську?)
Вопросик есть...