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

UptoLike

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

ɚ)
ɛ) ɜ)
Ɋɢɫ. 3.3.1 Ɉɤɧɚ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨɝɪɚɦɦɵ: ɚɨɤɧɨ ɝɥɚɜɧɨɣ ɮɨɪɦɵ; ɛɨɤɧɨ
ɝɥɚɜɧɨɣ ɮɨɪɦɵ ɢ ɜɵɡɜɚɧɧɨɣ ɢɡ ɧɟɝɨ ɮɨɪɦɵ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2;
ɜɨɤɧɨ ɝɥɚɜɧɨɣ ɮɨɪɦɵ ɢ ɜɵɡɜɚɧɧɨɣ ɢɡ ɧɟɝɨ ɮɨɪɦɵ
ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 3
Ʌɢɫɬɢɧɝ ɦɨɞɭɥɹ U4
unit U4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
44
                                    ɚ)




                  ɛ)                                   ɜ)
Ɋɢɫ. 3.3.1 Ɉɤɧɚ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨɝɪɚɦɦɵ: ɚ – ɨɤɧɨ ɝɥɚɜɧɨɣ ɮɨɪɦɵ; ɛ – ɨɤɧɨ
  ɝɥɚɜɧɨɣ ɮɨɪɦɵ ɢ ɜɵɡɜɚɧɧɨɣ ɢɡ ɧɟɝɨ ɮɨɪɦɵ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2;
             ɜ – ɨɤɧɨ ɝɥɚɜɧɨɣ ɮɨɪɦɵ ɢ ɜɵɡɜɚɧɧɨɣ ɢɡ ɧɟɝɨ ɮɨɪɦɵ
                         ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 3
Ʌɢɫɬɢɧɝ ɦɨɞɭɥɹ U4
  unit U4;
  interface
     uses
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
        Forms, Dialogs, StdCtrls, Buttons;
     type
        TForm1 = class(TForm)
                     BitBtn1: TBitBtn;
                     BitBtn2: TBitBtn;
                     BitBtn3: TBitBtn;
                     procedure BitBtn1Click(Sender: TObject);
                     procedure BitBtn2Click(Sender: TObject);
                  private
                                     44