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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

36
else S := S/k;
end;
2: begin //Ɋɚɫɱɟɬ ɨɛɳɟɝɨ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ
for i := 1 to n do S := S+ss[i];
if n=0 then S:=0 else S := S/n;
end;
end;
//ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɚ ɜ ɨɤɧɨ ɪɟɞɚɤɬɨɪɚ
Edit2.Text := FormatFloat('##.##',S);
end;
end; { TForm1.RadioGroup2Click }
end.
1.3. Ʉɨɦɩɢɥɹɰɢɹ ɢ ɨɬɥɚɞɤɚ ɩɪɢɥɨɠɟɧɢɹ
1. ɉɨɞɝɨɬɨɜɤɚ ɩɪɢɥɨɠɟɧɢɹ ɤ ɨɬɥɚɞɤɟ.
– ɉɪɟɠɞɟ ɱɟɦ ɨɬɥɚɠɢɜɚɬɶ ɩɪɢɥɨɠɟɧɢɟ, ɟɝɨ ɧɟɨɛɯɨɞɢɦɨ ɨɬɤɨɦɩɢɥɢɪɨ-
ɜɚɬɶ ɫɩɟɰɢɚɥɶɧɵɦ ɨɛɪɚɡɨɦ. Ⱦɥɹ ɷɬɨɝɨ ɫɥɟɞɭɟɬ ɜɵɩɨɥɧɢɬɶ ɤɨɦɚɧɞɭ
Project/Options ɢ ɜɵɛɪɚɬɶ ɫɬɪɚɧɢɰɭ Compiler. ɇɚ ɷɬɨɣ ɫɬɪɚɧɢɰɟ ɧɟɨɛɯɨ-
ɞɢɦɨ ɩɨɦɟɬɢɬɶ ɨɩɰɢɢ Debug Information, Local Symbols ɢ Reference
Info. ɉɨɫɥɟ ɷɬɨɝɨ ɧɟɨɛɯɨɞɢɦɨ ɜɵɩɨɥɧɢɬɶ ɤɨɦɚɧɞɭ Project/Compile (ɤɨɦ-
ɛɢɧɚɰɢɹ ɤɥɚɜɢɲ <Ctrl–F9>). Ɍɟɩɟɪɶ ɩɪɢɥɨɠɟɧɢɟ ɝɨɬɨɜɨ ɤ ɨɬɥɚɞɤɟ.
– Ʉɨɦɚɧɞɨɣ View/Debug windows/Watches ɜɵɡɨɜɢɬɟ ɨɤɧɨ ɧɚɛɥɸɞɟ-
ɧɢɣ. Ɉɤɧɨ ɧɚɛɥɸɞɟɧɢɣ ɢɫɩɨɥɶɡɭɟɬɫɹ ɜ ɨɬɥɚɞɨɱɧɨɦ ɪɟɠɢɦɟ ɞɥɹ ɧɚɛɥɸɞɟ-
ɧɢɹ ɡɚ ɢɡɦɟɧɟɧɢɟɦ ɡɧɚɱɟɧɢɣ ɜɵɪɚɠɟɧɢɣ, ɩɨɦɟɳɟɧɧɵɯ ɜ ɷɬɨ ɨɤɧɨ. Ⱦɥɹ ɞɨ-
ɛɚɜɥɟɧɢɹ ɧɨɜɨɝɨ ɜɵɪɚɠɟɧɢɹ ɳɟɥɤɧɢɬɟ ɩɨ ɨɤɧɭ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɢ
ɜɵɛɟɪɢɬɟ ɨɩɰɢɸ Add Watch
. ȼ ɫɬɪɨɤɟ Expression ɜɜɟɞɢɬɟ ɜɵɪɚɠɟɧɢɟ
Aɋol. Ɉɤɧɨ Repeat count ɨɩɪɟɞɟɥɹɟɬ ɤɨɥɢɱɟɫɬɜɨ ɩɨɤɚɡɵɜɚɟɦɵɯ ɷɥɟɦɟɧɬɨɜ
ɦɚɫɫɢɜɨɜ ɞɚɧɧɵɯ; ɨɤɧɨ Digits ɭɤɚɡɵɜɚɟɬ ɤɨɥɢɱɟɫɬɜɨ ɡɧɚɱɚɳɢɯ ɰɢɮɪ ɞɥɹ
ɨɬɨɛɪɚɠɟɧɢɹ ɜɟɳɟɫɬɜɟɧɧɵɯ ɞɚɧɧɵɯ; ɩɟɪɟɤɥɸɱɚɬɟɥɶ Enabled ɪɚɡɪɟɲɚɟɬ
ɢɥɢ ɡɚɩɪɟɳɚɟɬ ɜɵɱɢɫɥɟɧɢɟ ɜɵɪɚɠɟɧɢɹ. Ɉɫɬɚɥɶɧɵɟ ɷɥɟɦɟɧɬɵ ɨɩɪɟɞɟɥɹɸɬ
ɜɢɞ ɩɪɟɞɫɬɚɜɥɟɧɢɹ ɡɧɚɱɟɧɢɹ. ȼ ɨɬɥɚɞɨɱɧɨɦ ɪɟɠɢɦɟ ɬɟɤɭɳɟɟ ɡɧɚɱɟɧɢɟ ɥɸ-
ɛɨɣ ɩɟɪɟɦɟɧɧɨɣ ɦɨɠɧɨ ɩɨɫɦɨɬɪɟɬɶ, ɭɤɚɡɚɜ ɧɚ ɧɟɟ ɤɭɪɫɨɪɨɦ: ɡɧɚɱɟɧɢɟ ɩɨɹ-
ɜɢɬɫɹ ɜ ɹɪɥɵɱɤɟ ɪɹɞɨɦ ɫ ɤɭɪɫɨɪɨɦ.
– ɍɫɬɚɧɨɜɢɬɟ ɞɜɟ ɬɨɱɤɢ ɤɨɧɬɪɨɥɶɧɨɝɨ ɨɫɬɚɧɨɜɚ: ɳɟɥɤɧɢɬɟ ɦɵɲɶɸ ɩɨ
ɫɥɭɠɟɛɧɨɣ ɡɨɧɟ ɫɥɟɜɚ ɨɬ ɧɭɠɧɨɣ ɫɬɪɨɤɢ ɜ ɩɪɨɝɪɚɦɦɟ (ɜɵɛɟɪɢɬɟ ɫɬɪɨɤɢ,
ɫɨɞɟɪɠɚɳɢɟ ACol).
2. ȼɵɩɨɥɧɢɬɟ ɩɪɨɝɪɚɦɦɭ (<F9>). ɉɨɫɥɟ ɨɫɬɚɧɨɜɚ ɜɵɩɨɥɧɹɣɬɟ ɩɪɨ-
ɝɪɚɦɦɭ ɩɨɫɬɪɨɱɧɨ. ɉɪɨɫɦɨɬɪɢɬɟ ɡɧɚɱɟɧɢɹ ɩɟɪɟɦɟɧɧɵɯ ɩɪɢ ɩɨɦɨɳɢ ɭɫɬɚ-
ɧɨɜɤɢ ɧɚ ɧɢɯ ɤɭɪɫɨɪɚ.
3. ɉɨɩɪɨɛɭɣɬɟ ɞɪɭɝɢɟ ɦɟɬɨɞɵ ɨɬɥɚɞɤɢ, ɧɚɩɪɢɦɟɪ Run To Cursor,
Program Pause, Program Reset.
                         else S := S/k;
                  end;
               2: begin //Ɋɚɫɱɟɬ ɨɛɳɟɝɨ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ
                     for i := 1 to n do S := S+ss[i];
                     if n=0 then S:=0 else S := S/n;
                  end;
            end;
            //ȼɵɜɨɞ ɪɟɡɭɥɶɬɚɬɚ ɜ ɨɤɧɨ ɪɟɞɚɤɬɨɪɚ
            Edit2.Text := FormatFloat('##.##',S);
         end;
   end; { TForm1.RadioGroup2Click }
end.
    1.3. Ʉɨɦɩɢɥɹɰɢɹ ɢ ɨɬɥɚɞɤɚ ɩɪɢɥɨɠɟɧɢɹ
    1. ɉɨɞɝɨɬɨɜɤɚ ɩɪɢɥɨɠɟɧɢɹ ɤ ɨɬɥɚɞɤɟ.
     – ɉɪɟɠɞɟ ɱɟɦ ɨɬɥɚɠɢɜɚɬɶ ɩɪɢɥɨɠɟɧɢɟ, ɟɝɨ ɧɟɨɛɯɨɞɢɦɨ ɨɬɤɨɦɩɢɥɢɪɨ-
ɜɚɬɶ ɫɩɟɰɢɚɥɶɧɵɦ ɨɛɪɚɡɨɦ. Ⱦɥɹ ɷɬɨɝɨ ɫɥɟɞɭɟɬ ɜɵɩɨɥɧɢɬɶ ɤɨɦɚɧɞɭ
Project/Options ɢ ɜɵɛɪɚɬɶ ɫɬɪɚɧɢɰɭ Compiler. ɇɚ ɷɬɨɣ ɫɬɪɚɧɢɰɟ ɧɟɨɛɯɨ-
ɞɢɦɨ ɩɨɦɟɬɢɬɶ ɨɩɰɢɢ Debug Information, Local Symbols ɢ Reference
Info. ɉɨɫɥɟ ɷɬɨɝɨ ɧɟɨɛɯɨɞɢɦɨ ɜɵɩɨɥɧɢɬɶ ɤɨɦɚɧɞɭ Project/Compile (ɤɨɦ-
ɛɢɧɚɰɢɹ ɤɥɚɜɢɲ ). Ɍɟɩɟɪɶ ɩɪɢɥɨɠɟɧɢɟ ɝɨɬɨɜɨ ɤ ɨɬɥɚɞɤɟ.
    – Ʉɨɦɚɧɞɨɣ View/Debug windows/Watches ɜɵɡɨɜɢɬɟ ɨɤɧɨ ɧɚɛɥɸɞɟ-
ɧɢɣ. Ɉɤɧɨ ɧɚɛɥɸɞɟɧɢɣ ɢɫɩɨɥɶɡɭɟɬɫɹ ɜ ɨɬɥɚɞɨɱɧɨɦ ɪɟɠɢɦɟ ɞɥɹ ɧɚɛɥɸɞɟ-
ɧɢɹ ɡɚ ɢɡɦɟɧɟɧɢɟɦ ɡɧɚɱɟɧɢɣ ɜɵɪɚɠɟɧɢɣ, ɩɨɦɟɳɟɧɧɵɯ ɜ ɷɬɨ ɨɤɧɨ. Ⱦɥɹ ɞɨ-
ɛɚɜɥɟɧɢɹ ɧɨɜɨɝɨ ɜɵɪɚɠɟɧɢɹ ɳɟɥɤɧɢɬɟ ɩɨ ɨɤɧɭ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɢ
ɜɵɛɟɪɢɬɟ ɨɩɰɢɸ Add Watch. ȼ ɫɬɪɨɤɟ Expression ɜɜɟɞɢɬɟ ɜɵɪɚɠɟɧɢɟ
Aɋol. Ɉɤɧɨ Repeat count ɨɩɪɟɞɟɥɹɟɬ ɤɨɥɢɱɟɫɬɜɨ ɩɨɤɚɡɵɜɚɟɦɵɯ ɷɥɟɦɟɧɬɨɜ
ɦɚɫɫɢɜɨɜ ɞɚɧɧɵɯ; ɨɤɧɨ Digits ɭɤɚɡɵɜɚɟɬ ɤɨɥɢɱɟɫɬɜɨ ɡɧɚɱɚɳɢɯ ɰɢɮɪ ɞɥɹ
ɨɬɨɛɪɚɠɟɧɢɹ ɜɟɳɟɫɬɜɟɧɧɵɯ ɞɚɧɧɵɯ; ɩɟɪɟɤɥɸɱɚɬɟɥɶ Enabled ɪɚɡɪɟɲɚɟɬ
ɢɥɢ ɡɚɩɪɟɳɚɟɬ ɜɵɱɢɫɥɟɧɢɟ ɜɵɪɚɠɟɧɢɹ. Ɉɫɬɚɥɶɧɵɟ ɷɥɟɦɟɧɬɵ ɨɩɪɟɞɟɥɹɸɬ
ɜɢɞ ɩɪɟɞɫɬɚɜɥɟɧɢɹ ɡɧɚɱɟɧɢɹ. ȼ ɨɬɥɚɞɨɱɧɨɦ ɪɟɠɢɦɟ ɬɟɤɭɳɟɟ ɡɧɚɱɟɧɢɟ ɥɸ-
ɛɨɣ ɩɟɪɟɦɟɧɧɨɣ ɦɨɠɧɨ ɩɨɫɦɨɬɪɟɬɶ, ɭɤɚɡɚɜ ɧɚ ɧɟɟ ɤɭɪɫɨɪɨɦ: ɡɧɚɱɟɧɢɟ ɩɨɹ-
ɜɢɬɫɹ ɜ ɹɪɥɵɱɤɟ ɪɹɞɨɦ ɫ ɤɭɪɫɨɪɨɦ.
    – ɍɫɬɚɧɨɜɢɬɟ ɞɜɟ ɬɨɱɤɢ ɤɨɧɬɪɨɥɶɧɨɝɨ ɨɫɬɚɧɨɜɚ: ɳɟɥɤɧɢɬɟ ɦɵɲɶɸ ɩɨ
ɫɥɭɠɟɛɧɨɣ ɡɨɧɟ ɫɥɟɜɚ ɨɬ ɧɭɠɧɨɣ ɫɬɪɨɤɢ ɜ ɩɪɨɝɪɚɦɦɟ (ɜɵɛɟɪɢɬɟ ɫɬɪɨɤɢ,
ɫɨɞɟɪɠɚɳɢɟ ACol).
    2. ȼɵɩɨɥɧɢɬɟ ɩɪɨɝɪɚɦɦɭ (). ɉɨɫɥɟ ɨɫɬɚɧɨɜɚ ɜɵɩɨɥɧɹɣɬɟ ɩɪɨ-
ɝɪɚɦɦɭ ɩɨɫɬɪɨɱɧɨ. ɉɪɨɫɦɨɬɪɢɬɟ ɡɧɚɱɟɧɢɹ ɩɟɪɟɦɟɧɧɵɯ ɩɪɢ ɩɨɦɨɳɢ ɭɫɬɚ-
ɧɨɜɤɢ ɧɚ ɧɢɯ ɤɭɪɫɨɪɚ.
    3. ɉɨɩɪɨɛɭɣɬɟ ɞɪɭɝɢɟ ɦɟɬɨɞɵ ɨɬɥɚɞɤɢ, ɧɚɩɪɢɦɟɪ Run To Cursor,
Program Pause, Program Reset.


                                  36

Страницы