Зависимость роста от веса, даже не знаю с чего начать Опции

[Feagor]

все условие в прикрепленном файле. Подскажите хотябы с чего начать....

Сообщение отредактировано: Feagor - 2.01.2008 19:12

[Feagor]

Всё спасибо, оказывается решается тупо методом наименьших квадратов Гауса.
Листинг:

uses crt;
type Trv=record
h,w:real;
end;
var i,n:integer;
    a:array[1..100] of trv;
    x1,x2,xy,y1,k,x:real;
begin
  clrscr;
  writeln('Insert count');
  read(n);
  for i:=1 to n do
  begin
        writeln('Insert ',i,' height');
        read(a[i].h);
        writeln('Insert ',i,' weight');
        read(a[i].w);
  end;
  for i:=1 to n do
  begin
        x1:=x1+a[i].h;
        x2:=x2+sqr(a[i].h);
        xy:=xy+a[i].h*a[i].w;
        y1:=y1+a[i].w;
  end;
  {writeln(x1:2:2,'  ',x2:2:2,'  ',xy:2:2,'  ',y1:2:2);}
  x:=(-1)*(x2*y1-xy*x1)/(sqr(x1)-n*x2);
  k:=(x1*x-xy)/x2;
  k:=(-1)*k;
  writeln(k,'  ',x);
  readkey;
end.

тока не пойму что я вот здесь

  x:=(-1)*(x2*y1-xy*x1)/(sqr(x1)-n*x2);
  k:=(x1*x-xy)/x2;
  k:=(-1)*k;

накосячил, ибо пришлось на -1 умножать, иначе работаtт криво...

Сообщение отредактировано: Feagor - 3.01.2008 15:47