незачет(

[Владан]

Задача:задали плоский замкнутый контур в координатах Х, У (в метрах) в виде двух динамических массивов, определить его площадь и координаты центра тяжести. Контроль - изображение контура в форме и точки, обозначающей центр тяжести.

Какую форму и как сделать для этой задачи ?

var
  Form1: TForm1;
  a:array of integer;
  b:array of integer;
  s,x,y,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5:real;
  i:byte;


implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
setlength(a,5);
setlength(b,5);
for i:=1 to 5 do
begin
a[i]:=random(100);
b[i]:=random(100);
end;
for i:=1 to 5 do
begin
x:=x+a[i];
y:=y+b[i];
end;

x:=x/5; y:=y/5;
s:=1/2*(x1*y2-x2*y1+x2*y3-y2*x3+x3*y4-y3*x4+x4*y5-y4*x5+x5*y1-y5*x1);
readln;
end;

end.

[Mad_Cat]

пустая форма - считать в oncreate - выводить в caption!

[Владан]

Сообщение от Mad_Cat

пустая форма - считать в oncreate - выводить в caption!

а можно поподробнее , я просто еще не учил формы ?!

[xoodoo]

я просто еще не учил формы

Надо понимать что "незачет" ты получил именно за "не учил формы", и если бы про формы в задании речь не шла, то был бы "зачет".
Так ?

[superedward]

Сообщение от Mad_Cat

пустая форма - считать в oncreate - выводить в caption!

Требуется изображение контура в форме, т.е. форма уже не может быть пустой.

[Mad_Cat]

А на пустой форме вы рисовать не умеете? Эт раз. И в задании прям ни словечка про то что требуется какое то изображение контура эт два.

[Mad_Cat]

Хотя нее.. есть про изображение извините но первое замечание все равно в силе

[superedward]

Сообщение от Mad_Cat

А на пустой форме вы рисовать не умеете?

На пустой форме рисовать - умею, извольте. Но проблема в том, что как только я на форме что-нибудь нарисую, она перестаёт быть пустой...

[Mad_Cat]

Эт кто сказал то? Все в мире относительно вы пустое ведро хоть все раскрасьте-оно полным не станет

[Владан]

Сообщение от Mad_Cat

пустая форма - считать в oncreate - выводить в caption!

как это осуществить ?