Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 52 стр.

                 procedure N3Click(Sender: TObject);
                 procedure N5Click(Sender: TObject);
                 procedure BitBtn1Click(Sender: TObject);
                 procedure N4Click(Sender: TObject);
                 private
                     { Private declarations }
                 public
                     { Public declarations }
                end;
  var
     Form2: TForm2;
implementation
  {$R *.dfm}
  const
     nn = 5; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɭɱɟɧɢɤɨɜ = 5
     mm = 5; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɷɤɡɚɦɟɧɨɜ = 5
  type
     T_a = array [1..nn, 1..mm] of real;
     T_sr=array [1..nn] of real;
     Tf_type = record
                     make       : T_a;
                     sr         : T_sr;
                 end;
     var
        a         : T_a; //a - ɦɚɫɫɢɜ ɨɰɟɧɨɤ
        ss        : T_sr;//ss - ɦɚɫɫɢɜ ɞɥɹ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɭɱɟɧɢɤɨɜ
        f_p       : Tf_type; {ɗɤɡɟɦɩɥɹɪ ɡɚɩɢɫɢ}
        f         : file of Tf_type; {Ɏɚɣɥ}
     procedure TForm2.FormActivate(Sender: TObject);
     var
        i :integer;
     begin
        stringGrid1.Cells[0,0]:='ɇɨɦɟɪ ɫɬɭɞɟɧɬɚ';
        for i:=1 to nn do
            stringGrid1.Cells[0,i]:='ʋ '+IntToStr(i);
        for i:=1 to mm do
            stringGrid1.Cells[i,0]:='Ɉɰɟɧɤɚ ʋ'+IntToStr(i);
        stringGrid1.Cells[mm+1,0]:='ɋɪɟɞɧɹɹ ɨɰɟɧɤɚ'
     end; { TForm2.FormActivate }

     procedure TForm2.StringGrid1SetEditText(Sender: TObject; ACol,
                                        ARow: Integer; const Value:
String);
                                    52