Процедура

Lenovo · #1 16.12.2010, 10:23

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

Код:

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 · #2 16.12.2010, 10:43

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

Black Raider · #3 16.12.2010, 10:52

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

Код:

procedure Regress(num: integer);

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

Код:

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 · #4 16.12.2010, 11:00

Цитата:

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

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

Код:

procedure Regress(num: integer);

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

Код:

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;

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

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

Black Raider · #5 16.12.2010, 11:07

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

Lenovo · #6 16.12.2010, 11:11

Цитата:

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

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

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

Код:

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;

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

Код:

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 · #7 16.12.2010, 11:21

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

Цитата:

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

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

Lenovo · #8 16.12.2010, 11:28

Цитата:

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

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

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

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

Код:

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 · #9 16.12.2010, 11:32

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

Black Raider · #10 16.12.2010, 11:34

Вот так:

Код:

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 раза на нее нажмите:
появится ее (кнопки) обработчик туда впишите
чтоб было так:

Код:

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

Black Raider · #11 16.12.2010, 11:36

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

Lenovo · #12 16.12.2010, 11:42

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

Black Raider · #13 16.12.2010, 13:13

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

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты