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

ɜɟɪɯɧɟɦ ɩɪɚɜɨɦ ɭɝɥɭ. ȼɨɫɫɬɚɧɨɜɢɬɶ ɡɚɤɪɵɬɨɟ ɨɤɧɨ ɧɚɜɢɝɚɬɨɪɚ ɦɨɠɧɨ ɩɨ-
ɫɥɟ ɳɟɥɱɤɚ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɩɨ ɨɤɧɭ ɩɪɨɝɪɚɦɦɵ ɢ ɜɵɛɨɪɚ ɨɩɰɢɢ
View/Code Explorer. Ɂɚɤɪɨɣɬɟ, ɨɬɤɪɨɣɬɟ ɢ ɜɧɨɜɶ ɡɚɤɪɨɣɬɟ ɨɤɧɨ ɧɚɜɢɝɚ-
ɬɨɪɚ.
    3. Ⱦɜɚɠɞɵ ɳɟɥɤɧɭɜ ɩɨ ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɫɨɛɵɬɢɹ OnClick, ȼɵ ɡɚ-
ɫɬɚɜɢɥɢ Delphi ɫɚɦɨɫɬɨɹɬɟɥɶɧɨ ɫɞɟɥɚɬɶ ɡɚɝɨɬɨɜɤɭ ɞɥɹ ɩɪɨɰɟɞɭɪɵ ɨɛɪɚɛɨɬ-
ɱɢɤɚ ɫɨɛɵɬɢɹ OnClick.
     procedure TForm1.Button1Click(Sender: TObject);
     begin
     …
     end;
   Ɇɟɠɞɭ ɨɩɟɪɚɬɨɪɧɵɦɢ ɫɤɨɛɤɚɦɢ Begin ɢ End ɜɜɟɞɢɬɟ ɫɥɟɞɭɸɳɢɟ ɨɩɟ-
ɪɚɬɨɪɵ ɹɡɵɤɚ Object Pascal:
     x := StrToFloat(Edit1.Text);
     y := x/400;
     Memo1.Lines.Add(FormatFloat('####.## Ƚɪɚɦɦɨɜ =',x)+
     FormatFloat('####.## Ɏɭɧɬɨɜ', y));
     Ⱦɨɩɨɥɧɢɬɟ ɨɩɢɫɚɧɢɟ ɩɟɪɟɦɟɧɧɵɯ ɦɨɞɭɥɹ. ɉɨɫɥɟ Var Form1: TForm1;
ɞɨɛɚɜɶɬɟ
     x, y: Real;
    ȼ ɩɟɪɜɨɦ ɨɩɟɪɚɬɨɪɟ ɩɪɢɫɜɚɢɜɚɧɢɹ ɫɨɞɟɪɠɢɦɨɟ ɨɤɧɚ ɪɟɞɚɤɬɨɪɚ ɩɪɟɨɛ-
ɪɚɡɭɟɬɫɹ ɜ ɜɟɳɟɫɬɜɟɧɧɨɟ ɱɢɫɥɨ. ȼɬɨɪɨɣ ɨɩɟɪɚɬɨɪ ɩɪɢɫɜɚɢɜɚɧɢɹ – ɮɨɪɦɭɥɚ
ɩɟɪɟɫɱɟɬɚ. Ⱦɥɹ ɨɬɪɚɠɟɧɢɹ ɪɟɡɭɥɶɬɚɬɚ ɪɚɫɱɟɬɚ ɜ ɨɤɧɟ TɆemo ɢɫɩɨɥɶɡɭɟɬɫɹ
ɦɟɬɨɞ Add ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ. Ɇɟɬɨɞ Add ɤɥɚɫɫɚ TStringList ɞɨɛɚɜɥɹɟɬ ɧɨ-
ɜɭɸ ɫɬɪɨɤɭ ɤ ɢɦɟɸɳɟɦɭɫɹ ɜ Lines ɧɚɛɨɪɭ ɫɬɪɨɤ. Ⱦɨɛɚɜɥɟɧɧɚɹ ɫɬɪɨɤɚ ɨɬɨ-
ɛɪɚɠɚɟɬɫɹ ɧɚ ɷɤɪɚɧɟ. ɉɚɪɚɦɟɬɪɨɦ ɦɟɬɨɞɚ ɹɜɥɹɟɬɫɹ ɫɬɪɨɤɨɜɚɹ ɩɟɪɟɦɟɧɧɚɹ.
ɋɬɪɨɤɨɜɚɹ ɩɟɪɟɦɟɧɧɚɹ ɫɤɥɚɞɵɜɚɟɬɫɹ ɢɡ ɫɬɪɨɤɨɜɨɝɨ ɩɪɟɞɫɬɚɜɥɟɧɢɹ ɜɟɳɟɫɬ-
ɜɟɧɧɵɯ ɩɟɪɟɦɟɧɧɵɯ x ɢ y. Ɏɭɧɤɰɢɹ FormatFloat ɮɨɪɦɚɬɢɪɭɟɬ ɡɧɚɱɟɧɢɟ ɫ
ɩɨɦɨɳɶɸ ɨɩɢɫɚɧɧɨɝɨ ɮɨɪɦɚɬɚ.
    4. Ɉɫɭɳɟɫɬɜɢɬɟ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦɦɵ, ɧɚɠɚɜ ɤɥɚɜɢɲɭ . ȼɜɟɞɢɬɟ ɜ
ɨɤɧɨ ɪɟɞɚɤɬɨɪɚ ɥɸɛɨɟ ɱɢɫɥɨ, ɧɚɠɦɢɬɟ ɧɚ ɤɧɨɩɤɭ <ȼɜɨɞ>, ɢ ɜɵ ɩɨɥɭɱɢɬɟ
ɪɟɡɭɥɶɬɚɬ ɜ ɨɤɧɟ ɦɧɨɝɨɫɬɪɨɱɧɨɝɨ ɪɟɞɚɤɬɨɪɚ.
   5. Ɇɢɧɢɦɢɡɢɪɭɣɬɟ ɨɤɧɨ Delphi ɢ ɡɚɚɪɯɢɜɢɪɭɣɬɟ ɜɫɟ ɮɚɣɥɵ ɜ ɤɚɬɚɥɨɝɟ
Lab_1.
     ȼɵ ɩɨɡɧɚɤɨɦɢɥɢɫɶ ɫɨ ɫɥɟɞɭɸɳɢɦɢ ɤɨɦɩɨɧɟɧɬɚɦɢ, ɢɯ ɦɟɬɨɞɚɦɢ ɢ
ɫɜɨɣɫɬɜɚɦɢ: Ɏɨɪɦɚ (TForm), ɩɚɧɟɥɶ (TPanel), ɦɟɬɤɚ (TLabel), ɨɞɧɨɫɬɪɨɱ-
ɧɵɣ ɪɟɞɚɤɬɨɪ (TEdit), ɦɧɨɝɨɫɬɪɨɱɧɵɣ ɪɟɞɚɤɬɨɪ (TMemo), ɤɧɨɩɤɚ
(TButton), ɤɧɨɩɤɚ (TBitBtn).

                                  18