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

   stringGrid1.Cells[5,0]:='ɋɪɟɞɧɹɹ ɨɰɟɧɤɚ'
end; { TForm1.FormActivate }
procedure TForm1.BitBtn1Click(Sender: TObject);
{
   Ɉɛɪɚɛɨɬɱɢɤ ɤɧɨɩɤɢ «Ɂɚɩɢɫɚɬɶ» ɨɫɭɳɟɫɬɜɥɹɟɬ ɜɜɨɞ ɮɚɦɢɥɢɢ ɢ ɩɨɥɚ
   ɉɟɪɟɧɨɫɢɬ ɡɧɚɱɟɧɢɹ ɮɚɦɢɥɢɢ ɜ ɮɢɤɫɢɪɨɜɚɧɧɵɣ ɫɬɨɥɛɟɰ ɬɚɛɥɢɰɵ
}
begin
   n := n+1;
   f[n] := Edit1.Text;
   p[n] := pp[RadioGroup1.ItemIndex];
   StringGrid1.Cells[0,n] := f[n];
   Edit1.SetFocus;
   Edit1.Clear;
end; { TForm1.BitBtn1Click }
procedure TForm1.RadioGroup2Click(Sender: TObject);
// ɋɨɛɵɬɢɟ ɜɨɡɧɢɤɚɟɬ ɩɪɢ ɫɦɟɧɟ ɩɪɢɡɧɚɤɚ ɪɚɫɱɟɬɚ
var
    S : Real;
    k, i: Byte;
begin
    S := 0;
    k:=0;
    with RadioGroup2 do
        begin
           case ItemIndex of
               0: begin //Ɋɚɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɦɚɥɶɱɢɤɨɜ
                     for i := 1 to n do
                         if p[i]='ɦ'
                             then
                                begin S := S+ss[i]; k:=k+1 end;
                     if k=0
                         then S:=0
                         else S := S/k;
                  end;
               1: begin //Ɋɚɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɞɟɜɨɱɟɤ
                     for i := 1 to n do
                         if p[i]='ɠ'
                             then
                                begin S := S+ss[i]; k:=k+1 end;
                     if k=0
                         then S:=0

                                    35