[Lenovo]

Здравствуйте, ребят подскажите пожалуйста мучаюсь уже не первый час! Как мне это реализовать в Delphi? Куда именно это написать -(

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

procedure Tform1.Regress(num: integer); {num кол-во элементов} var  a, b, x_avg, y_avg, temp, temp2, cor: real;  t, min, max: integer;  ch: char; begin  y_avg := 0;  x_avg := 0;  for t := 1 to num do  begin   y_avg := y_avg + StrToFloat(StringGrid1.Cells[t,1]);   x_avg := x_avg + StrToFloat(StringGrid1.Cells[t,0]);  end;  x_avg := x_avg/num;  y_avg := y_avg/num;     temp := 0; temp2 := 0;  for t := 1 to num do  begin   temp := temp +(StrToFloat(StringGrid1.Cells[t,1]) - y_avg)*(StrToFloat(StringGrid1.Cells[t,0])-x_avg);   temp2 := temp2 +(t - x_avg)*(t-x_avg);  end;      b := temp/temp2;   a := y_avg-(b*x_avg);     Image1.Canvas.Brush.Color:=clWhite;  Image1.Canvas.Pen.Color:=clWhite;  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);     Image1.Canvas.Brush.Color:=clRed;  Image1.Canvas.Pen.Color:=clRed;  For t:=1 to num do   image1.Canvas.Ellipse(Trunc(StrToFloat(StringGrid1.Cells[t,0]))-2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))-2,                         Trunc(StrToFloat(StringGrid1.Cells[t,0]))+2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))+2);     Image1.Canvas.Pen.Color:=clBlack;     image1.Canvas.MoveTo(1, Image1.Height - Trunc(a+b));  image1.Canvas.LineTo(100,Image1.Height - Trunc(a+b*100));     Label2.Caption:='Y = '+FloatToStr(Trunc(b*100)/100)+'x + '+FloatToStr(Trunc(a*100)/100); end;

[Lenovo]

Поможет кто? Не особо понимаю куда эту процедуру надо вписать ((

[Black Raider]

в модуль формы Form1 перед End.
в описание формы вписать :

Код:

1	procedure Regress(num: integer);

примерно выглядеть будет так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type   TForm1 = class(TForm)     BitBtn1: TBitBtn;     sNotebook1: TsNotebook;     sLabel1: TsLabel;     Image1: TImage;     Button1: TButton;     Image2: TImage;     Button2: TButton;     Notebook1: TNotebook;     BitBtn2: TBitBtn;     StringGrid1: TStringGrid;     procedure Regress(num: integer); procedure BitBtn1Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;

для вызова процедуры в обработчике события кнопки (например) вызываете по ее имени!

[Lenovo]

Сообщение от Black Raider

в модуль формы Form1 перед End.
в описание формы вписать :

Код:

примерно выглядеть будет так:

Код:

для вызова процедуры в обработчике события кнопки (например) вызываете по ее имени!

А остальное куда писать? Я просто не очень хорошо знаю Delphi! Ту процедуру мне вписать как вы сказали..далее остальное куда все деть?))

[Black Raider]

остальное это что? конкретнее пожалуйста!

[Lenovo]

Сообщение от Black Raider

остальное это что? конкретнее пожалуйста!

Вы писали, мол процедуру надо сделать так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type   TForm1 = class(TForm)     BitBtn1: TBitBtn;     sNotebook1: TsNotebook;     sLabel1: TsLabel;     Image1: TImage;     Button1: TButton;     Image2: TImage;     Button2: TButton;     Notebook1: TNotebook;     BitBtn2: TBitBtn;     StringGrid1: TStringGrid; <b>    procedure Regress(num: integer);</b> procedure BitBtn1Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;

А остальное куда ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

var  a, b, x_avg, y_avg, temp, temp2, cor: real;  t, min, max: integer;  ch: char; begin  y_avg := 0;  x_avg := 0;  for t := 1 to num do  begin   y_avg := y_avg + StrToFloat(StringGrid1.Cells[t,1]);   x_avg := x_avg + StrToFloat(StringGrid1.Cells[t,0]);  end;  x_avg := x_avg/num;  y_avg := y_avg/num;     temp := 0; temp2 := 0;  for t := 1 to num do  begin   temp := temp +(StrToFloat(StringGrid1.Cells[t,1]) - y_avg)*(StrToFloat(StringGrid1.Cells[t,0])-x_avg);   temp2 := temp2 +(t - x_avg)*(t-x_avg);  end;      b := temp/temp2;   a := y_avg-(b*x_avg);     Image1.Canvas.Brush.Color:=clWhite;  Image1.Canvas.Pen.Color:=clWhite;  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);     Image1.Canvas.Brush.Color:=clRed;  Image1.Canvas.Pen.Color:=clRed;  For t:=1 to num do   image1.Canvas.Ellipse(Trunc(StrToFloat(StringGrid1.Cells[t,0]))-2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))-2,                         Trunc(StrToFloat(StringGrid1.Cells[t,0]))+2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))+2);     Image1.Canvas.Pen.Color:=clBlack;     image1.Canvas.MoveTo(1, Image1.Height - Trunc(a+b));  image1.Canvas.LineTo(100,Image1.Height - Trunc(a+b*100));     Label2.Caption:='Y = '+FloatToStr(Trunc(b*100)/100)+'x + '+FloatToStr(Trunc(a*100)/100); end;

[Black Raider]

нет я написал что текст процедуры надо вписать полностью:

в модуль формы Form1 перед End.

+ ее (процедуры) описание в описание формы.

[Lenovo]

Сообщение от Black Raider

нет я написал что текст процедуры надо вписать полностью:

+ ее (процедуры) описание в описание формы.

Я ничего не могу понять, какие модули, какие процедуру! Конкретно этот весь текст куда надо вписать опишите пожалуйста! Покажите на примере..что именно куда надо!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

procedure Tform1.Regress(num: integer); {num кол-во элементов} var  a, b, x_avg, y_avg, temp, temp2, cor: real;  t, min, max: integer;  ch: char; begin  y_avg := 0;  x_avg := 0;  for t := 1 to num do  begin   y_avg := y_avg + StrToFloat(StringGrid1.Cells[t,1]);   x_avg := x_avg + StrToFloat(StringGrid1.Cells[t,0]);  end;  x_avg := x_avg/num;  y_avg := y_avg/num;     temp := 0; temp2 := 0;  for t := 1 to num do  begin   temp := temp +(StrToFloat(StringGrid1.Cells[t,1]) - y_avg)*(StrToFloat(StringGrid1.Cells[t,0])-x_avg);   temp2 := temp2 +(t - x_avg)*(t-x_avg);  end;      b := temp/temp2;   a := y_avg-(b*x_avg);     Image1.Canvas.Brush.Color:=clWhite;  Image1.Canvas.Pen.Color:=clWhite;  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);     Image1.Canvas.Brush.Color:=clRed;  Image1.Canvas.Pen.Color:=clRed;  For t:=1 to num do   image1.Canvas.Ellipse(Trunc(StrToFloat(StringGrid1.Cells[t,0]))-2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))-2,                         Trunc(StrToFloat(StringGrid1.Cells[t,0]))+2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))+2);     Image1.Canvas.Pen.Color:=clBlack;     image1.Canvas.MoveTo(1, Image1.Height - Trunc(a+b));  image1.Canvas.LineTo(100,Image1.Height - Trunc(a+b*100));     Label2.Caption:='Y = '+FloatToStr(Trunc(b*100)/100)+'x + '+FloatToStr(Trunc(a*100)/100); end;

[Lenovo]

Вроде понял, но теперь почему то он ругает "num" он же вроде описан в процедуре.

[Black Raider]

Вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;   type   TForm1 = class(TForm)     procedure Regress(num: integer);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm} procedure Tform1.Regress(num: integer); {num кол-во элементов} var  a, b, x_avg, y_avg, temp, temp2, cor: real;  t, min, max: integer;  ch: char; begin  y_avg := 0;  x_avg := 0;  for t := 1 to num do  begin   y_avg := y_avg + StrToFloat(StringGrid1.Cells[t,1]);   x_avg := x_avg + StrToFloat(StringGrid1.Cells[t,0]);  end;  x_avg := x_avg/num;  y_avg := y_avg/num;     temp := 0; temp2 := 0;  for t := 1 to num do  begin   temp := temp +(StrToFloat(StringGrid1.Cells[t,1]) - y_avg)*(StrToFloat(StringGrid1.Cells[t,0])-x_avg);   temp2 := temp2 +(t - x_avg)*(t-x_avg);  end;      b := temp/temp2;   a := y_avg-(b*x_avg);     Image1.Canvas.Brush.Color:=clWhite;  Image1.Canvas.Pen.Color:=clWhite;  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);     Image1.Canvas.Brush.Color:=clRed;  Image1.Canvas.Pen.Color:=clRed;  For t:=1 to num do   image1.Canvas.Ellipse(Trunc(StrToFloat(StringGrid1.Cells[t,0]))-2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))-2,                         Trunc(StrToFloat(StringGrid1.Cells[t,0]))+2,Image1.Height -Trunc(StrToFloat(StringGrid1.Cells[t,1]))+2);     Image1.Canvas.Pen.Color:=clBlack;     image1.Canvas.MoveTo(1, Image1.Height - Trunc(a+b));  image1.Canvas.LineTo(100,Image1.Height - Trunc(a+b*100));     Label2.Caption:='Y = '+FloatToStr(Trunc(b*100)/100)+'x + '+FloatToStr(Trunc(a*100)/100); end;   end.

Компоненты сами на форму накидаете!
киньте кнопку и 2 раза на нее нажмите:
появится ее (кнопки) обработчик туда впишите
чтоб было так:

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin Regress(12); end;

[Black Raider]

если ругается на num значит сделали что то не так.

[Lenovo]

Все! Вроде все правильно, только при нажатии на кнопку ничего не происходит кроме ошибки..флотинг поинт помоему! Но это как я знаю из-за того что в стринггриде пустые поля! А их никак нельзя заполнить? Просто хотел вписать в стринггрид и немогу ((
И почему кстати Regress(12) в скобках 12 а не 5 например?

[Black Raider]

12 просто так, откуда я знаю почему не 5

за место 12 надо передать кол-во строк (?) стринггрида.