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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

33
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
BitBtn1: TBitBtn;
Label2: TLabel;
Edit2: TEdit;
procedure StringGrid1SetEditText(Sender: TObject;
ACol, ARow: Integer; const Value: String);
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
ɪrivate
{ Private declarations }
public
{ Public declarations }
end;
const
nn = 20; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɭɱɟɧɢɤɨɜ = 10
mm = 5; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɷɤɡɚɦɟɧɨɜ = 5
pp : array [0..1] of String[1]=('ɦ','ɠ'); //Ɇɚɫɫɢɜ, ɫɨɞɟɪɠɚɳɢɣ ɩɨ-
ɥɨɜɨɣ ɩɪɢɡɧɚɤ
var
Form1: TForm1;
n: Integer; //n - ɬɟɤɭɳɢɣ ɧɨɦɟɪ ɭɱɟɧɢɤɚ.
f: array [1..nn] of String [30]; //f - ɦɚɫɫɢɜ ɮɚɦɢɥɢɣ
p : array [1..nn] of String[1]; //p - ɦɚɫɫɢɜ ɞɥɹ ɢɞɟɧɬɢɮɢɤɚɰɢɢ ɩɨɥɚ
a : array [1..nn, 1..mm] of Real; //a - ɦɚɫɫɢɜ ɨɰɟɧɨɤ
ss : array [1..nn] Of Real; //s - ɦɚɫɫɢɜ ɞɥɹ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɭɱɟɧɢ-
ɤɨɜ
implementation
{$R *.dfm}
procedure TForm1.StringGrid1SetEditText (Sender: TObject; ACol, ARow:
Integer; const Value: String);
var
b, k : integer; //b -
ɰɟɥɨɟ ɡɧɚɱɟɧɢɟ ɫɬɪɨɤɢ ɪɟɞɚɤɬɢɪɨɜɚɧɢɹ
j : Byte; //j - ɩɚɪɚɦɟɬɪ ɰɢɤɥɚ ɞɥɹ ɬɟɤɭɳɟɝɨ ɧɨɦɟɪɚ ɫɬɨɥɛɰɚ ɦɚɬɪɢɰɵ ɚ
begin
with StringGrid1 do
begin
if Value = '' then Exit; //
ȿɫɥɢ ɧɢɱɟɝɨ ɧɟ ɜɜɟɞɟɧɨ, ɬɨ ɜɵɯɨɞ ɢɡ ɩɪɨɰɟɞɭ-
ɪɵ
Try //ɇɚɱɚɥɨ ɡɚɳɢɳɟɧɧɨɝɨ ɛɥɨɤɚ
b := StrToInt(Value)
except
                     RadioGroup1: TRadioGroup;
                     RadioGroup2: TRadioGroup;
                     BitBtn1: TBitBtn;
                     Label2: TLabel;
                     Edit2: TEdit;
                     procedure      StringGrid1SetEditText(Sender:    TObject;
                                  ACol, ARow: Integer; const Value: String);
                     procedure FormActivate(Sender: TObject);
                     procedure BitBtn1Click(Sender: TObject);
                     procedure RadioGroup2Click(Sender: TObject);
                     ɪrivate
                        { Private declarations }
                     public
                        { Public declarations }
                  end;
      const
          nn = 20; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɭɱɟɧɢɤɨɜ = 10
          mm = 5; //Ɇɚɤɫɢɦɚɥɶɧɨɟ ɤɨɥɢɱɟɫɬɜɨ ɷɤɡɚɦɟɧɨɜ = 5
          pp : array [0..1] of String[1]=('ɦ','ɠ'); //Ɇɚɫɫɢɜ, ɫɨɞɟɪɠɚɳɢɣ ɩɨ-
                                                        ɥɨɜɨɣ ɩɪɢɡɧɚɤ
      var
          Form1: TForm1;
          n: Integer; //n - ɬɟɤɭɳɢɣ ɧɨɦɟɪ ɭɱɟɧɢɤɚ.
          f: array [1..nn] of String [30]; //f - ɦɚɫɫɢɜ ɮɚɦɢɥɢɣ
          p : array [1..nn] of String[1]; //p - ɦɚɫɫɢɜ ɞɥɹ ɢɞɟɧɬɢɮɢɤɚɰɢɢ ɩɨɥɚ
          a : array [1..nn, 1..mm] of Real; //a - ɦɚɫɫɢɜ ɨɰɟɧɨɤ
          ss : array [1..nn] Of Real; //s - ɦɚɫɫɢɜ ɞɥɹ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɭɱɟɧɢ-
ɤɨɜ
implementation
   {$R *.dfm}
   procedure TForm1.StringGrid1SetEditText (Sender: TObject; ACol, ARow:
                                                    Integer; const Value: String);
   var
      b, k : integer; //b -ɰɟɥɨɟ ɡɧɚɱɟɧɢɟ ɫɬɪɨɤɢ ɪɟɞɚɤɬɢɪɨɜɚɧɢɹ
      j     : Byte; //j - ɩɚɪɚɦɟɬɪ ɰɢɤɥɚ ɞɥɹ ɬɟɤɭɳɟɝɨ ɧɨɦɟɪɚ ɫɬɨɥɛɰɚ ɦɚɬɪɢɰɵ ɚ
   begin
      with StringGrid1 do
          begin
             if Value = '' then Exit; //ȿɫɥɢ ɧɢɱɟɝɨ ɧɟ ɜɜɟɞɟɧɨ, ɬɨ ɜɵɯɨɞ ɢɡ ɩɪɨɰɟɞɭ-
                                        ɪɵ
             Try //ɇɚɱɚɥɨ ɡɚɳɢɳɟɧɧɨɝɨ ɛɥɨɤɚ
                b := StrToInt(Value)
             except
                                        33

Страницы