Исходник программы

[Настя-Картошка]

У меня есть текст программы,его надо перенести на форму в делфи,т.е. завершить.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Matrix: array [0..4, 0..4] of integer;  //  Массив А(5, 5)
  Vector: array [0..4] of integer;
 //  Массив В(вектор(5))
  Element: integer;  //  Новый элемент полученного массива

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  For i:=0 to 4 do
    For j:=0 to 4 do
    Matrix[i, j]:= StrToInt(StringGrid1.Cells[i, j]);  //  Получение матрицы из сетки
  For i:=0 to 4 do
    Vector[i]:= StrToInt(StringGrid2.Cells[i, 0]);  //  Получение вектора из сетки
  for i:=0
  to 4 do  //  Умножение массивов A*B
    begin
      Element:= 0;
      for j:=0 to 4 do
        Element:= Element + (Matrix[i, j]) * (Vector[j]);  //  Получение нового элемента массива C
      StringGrid3.Cells[i, 0]:= IntToStr(Element);  //  Вывод полученного элемента массива в сетку 
    end;
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  Randomize;  //  Инициализация генератора случайных чисел
  For i:=0 to 4 do
    For j:=0
to 4 do
      StringGrid1.Cells[i, j]:= IntToStr(Random(11));  //  Заполнение первой сетки случайными числами в диапазоне (0..10) 
  For i:=0 to 4 do
    StringGrid2.Cells[i, 0]:= IntToStr(Random(11));  //  Заполнение второй сетки случайными числами в диапазоне (0..10) 
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sibedir]

1. Запустить Delphi
2. На форму кинуть 1 TButton и 3 TStringGrid
3. У StringGrid'ов назначить кол-во столбцов х строк
StringGrid1 - 4х4
StringGrid2 - 4х1
StringGrid3 - 4х1
4. Копируем в содержимое приведенного модуля в свой
5. Двойной клик на форму
6. Двойной клик на Button1
7. Нажать F9

З.Ы.: В следующий раз пиши в раздел "Помощь студентам"

[Настя-Картошка]

Благодарю,учту)