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

             ShowMessage('ɇɟ ɜɟɪɧɵɣ ɫɢɦɜɨɥ!');
             b:=0
         end; //Ʉɨɧɟɰ ɡɚɳɢɳɟɧɧɨɝɨ ɛɥɨɤɚ
         //ɂɝɧɨɪɢɪɨɜɚɬɶ ɧɟɜɟɪɧɨ ɜɜɟɞɟɧɧɭɸ ɨɰɟɧɤɭ
         if (b<1) or (b>5)
             then
                begin
                    Cells[Acol,Arow]:='';
                    Exit;
                end;
         Cells[Acol,Arow]:=Value;         //Ɉɬɪɚɡɢɬɶ ɨɰɟɧɤɭ ɜ ɬɚɛɥɢɰɟ
         A[arow,Acol]:=b;          //Ɂɚɩɢɫɚɬɶ ɨɰɟɧɤɭ ɜ ɦɚɫɫɢɜ
                                    //Ⱦɚɥɟɟ ɩɨɞɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ.
         SS[Arow]:=0;
         k:=0; //ɋɱɟɬɱɢɤ ɱɢɫɥɚ ɜɜɟɞɟɧɧɵɯ ɨɰɟɧɨɤ
         for j:=1 to 4 do
             begin
                SS[Arow]:=SS[Arow]+a[Arow,j];
                if StringGrid1.Cells[j,Arow]<>''
                    then k:=k+1;
             end;
         if k<>0 then SS[Arow]:= SS[Arow]/k else SS[Arow]:=0;
         //Ɉɬɨɛɪɚɡɢɬɶ ɫɪɟɞɧɢɣ ɛɚɥɥ ɜ 5-ɨɦ ɫɬɨɥɛɰɟ ɬɚɛɥɢɰɵ
         Cells[5, Arow] := FormatFloat('##.##', SS[Arow])
      end;
end; { TForm1.StringGrid1SetEditText}
procedure TForm1.FormActivate(Sender: TObject);
{
     Ɉɛɪɚɛɨɬɱɢɤ ɞɥɹ ɡɚɞɚɧɢɹ ɡɧɚɱɟɧɢɣ ɮɢɤɫɢɪɨɜɚɧɧɨɣ ɫɬɪɨɤɢ ɬɚɛɥɢɰɵ.
     Ɉɛɧɭɥɟɧɢɟ ɧɚɱɚɥɶɧɨɝɨ ɡɧɚɱɟɧɢɹ ɧɨɦɟɪɚ ɭɱɟɧɢɤɚ
}
begin
   n:=0;
   stringGrid1.Cells[0,0]:='Ɏɚɦɢɥɢɹ ɫɬɭɞɟɧɬɚ';
   Edit1.SetFocus;
   with StringGrid1 do
       begin
          Cells[1,0] :='Ɏɢɡɢɤɚ';
          Cells[2,0] :='Ɇɚɬɟɦɚɬ.';
          Cells[3,0] :='ɂɫɬɨɪɢɹ';
          Cells[4,0] :='ɂɧɨɫɬɪ. ɹɡ.';
          Cells[5,0] :='ɋɪɟɞɧɢɣ ɛɚɥɥ';
       end;
                                      34