Нужно кое-что исправить в коде

[Fonochka]

Сама задача состоит в следующем: Разработать программу расчета линейной зависимости по измерительным данным, полученным с температурных датчиков, метод наименьших квадратов.
Есть вот такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var i, n: LongWord;
    k,b,summa_x,summa_x_2,summa_x_y: real;
    TF: TextFile;
    X: array of real;
    openfile: boolean;
begin
  openfile:=True;
  try
    SetLength(X,50000);
    i:=0;
    AssignFile(TF,'dano.txt');
    Reset(TF);
    try
      repeat
        ReadLn(TF,X[i]);
        Inc(i);
      until Eof(TF);
      SetLength(X,i);
    finally
      CloseFile(TF);
    end;
  except
    openfile:=False;
  end;
  if openfile then
  begin
    summa_x := 0;
    summa_x_2 := 0;
    summa_x_y := 0;
    n := Length(X);
    for i := 1 to n do
    begin
      summa_x := summa_x + X[i];
      summa_x_2 := summa_x_2 + X[i]*X[i];
      summa_x_y := summa_x_y + X[i]*i;
    end;
    k := (summa_x_y - 1)/(summa_x_2 - summa_x*summa_x/n);
    b := 1 - summa_x/n*k;
    Label2.Caption := 'k = '+floattostr(k);
    label3.Caption := 'b = '+floattostr(b);
  end;
end;

end.

И вот что нужно исправить:
1) Каждое действие нужно выделить в отдельную процедуру или функцию (т.е. работа с файлом и собственно само решение задачи);
2) Нужно "отвязать" процедуры и функции от пользовательского интерфейса.
3) А еще даже не знаю как объяснить.... Моя задача базируется на уравнении U=AT+B, где U-напряжение, Т-температура, а А и В- некоторые коэффициенты, которые мне нужно найти. А мне нужно взять приблизительные значения А и В самой, допустим это будет 10 и 5, взять диапазон температуры от -20 до +20 с шагом 0,5 допустим и рассчитать значение напряжения; написать генератор отклонений от точных данных напряжения и уже значения напряжения с отклонениями и значения температуры внести в файл, который потом надо использовать как входные данные. В итоге после решения уравнения должны получиться коэффициенты приближенные к 10 и 5...То есть мы делаем так называемую проверку...
Надеюсь понятно объяснила))
Буду благодарна за любую помощь...

[Z1000000]

Надеюсь понятно объяснила))

не очень.
Но как я понял. Нужно сначала сымитировать показания приборов, основываясь на заданных пользователем коэффициентах A,B и пользуясь генератором случайный чисел для получения отклонений. Все эти псевдореальные данные записать в файл.
А потом уже по этим псевдореальным данным, полученным из файла сделать аппроксимацию прямой методом наименьших квадратов.

По-сути нужно две программы: генератор значений и анализатор, делающий аппроксимацию.

Надеюсь понятно объяснил?

[Fonochka]

Понятно)) Прямо как преподаватель)) А в одну программу нельзя всё совместить?? Сможете помочь??

[Z1000000]

А в одну программу нельзя всё совместить??

Можно.

Сможете помочь??

Проект скинь сюда

[Fonochka]

Вот то что есть...

[Z1000000]

Вот то, что получилось...

[Fonochka]

Спасибо)) Получилось даже лучше, чем я думала!!!

А вот нужно еще мелочь подправить.....
В нижеследующем кусочке нужно добавить функцию try, чтобы не возникло ошибки при закрытии файла, если вдруг поток данных будет слишком большим.

begin
AssignFile(TF,aFileName);
Rewrite(TF);
x:=aminX;
while ( x <= amaxX ) do
 begin
 f := (ak*x+ab) * (1 + (Random-0.5)*(aDisp/100));
 Write(TF,x,f);
 Form1.Chart1.Series[0].AddXY(x,f);
 x := x + Xstep;
 end;
CloseFile(TF);
end;

Спасибо...

[mss]

Платить за выполненную работу сия персона не намерена.
Посему иметь с ней деловые отношения НЕ рекомендую.