Хід лабораторної роботи (частина друга). 1. Завантажити середовище візуального програмування Delphi

1. Завантажити середовище візуального програмування Delphi.

2. Задати властивості форми: Caption, Height, Width, Color.

3. Вставити у форму три текстових поля: Label1, Label2, Label3 (рис.18).

4. Вставити у форму три об’єкти типу Edit: Edit1, Edit2, Edit3 (рис.18). Очистити поля редагування Edit1, Edit2, Edit3.

5. Вставити у форму дві кнопки - об’єкти типу Button (рис.18).

6. Вставити у форму кнопку - об’єкт типу BitBtn.

7. Змінити заголовки Caption на об’єктах типу Label та Button (рис.19).

8. Змінити властивість Kind кнопки BitBtn на bkClose.

Рис.18 Рис.19

9. Перед тим, як програмувати кнопки Button1 і Button2 необхідно у розділі описування змінних задати змінні f, x, n, i, де f – типований файл, x – компонента файлу:

Var

Form1: TForm;

f:file of integer;

x,n,i:integer;

10. Запрограмувати кнопку Button1. Процедура матиме такий вигляд:

Procedure TForm1.Button1Click (Sender: TObject);

Begin

assignfile(f,’f1’);

rewrite(f);

randomize;

n:= StrToInt (Edit1.Text);

for i:=1 to n do begin

x:=random(20);

Edit2.Text:=Edit2.Text+’’+ IntToStr (x);

write(f,x);

end;

closefile(f);

end;

11. Запрограмувати кнопку Button2. Процедура матиме такий вигляд:

Procedure TForm1.Button2Click (Sender: TObject);

{визначення добутку непарних компонент файлу}

Var

p:integer;

Begin

reset(f);

p:=1;

while not eof(f) do begin

read(f,x);

if x mod 2<>0 then

p:=p*x;

end;

Edit3.Text:= IntToStr (p);

end;

12. Зберегти створену програму у своїй власній папці.

13. Виконати створену програму.

14. Створити exe - файл програми. Закрити Delphi і запустити створену програму.

Контрольні запитання

1. Яке призначення процедур AssignFile та CloseFile?

2. Чим відрізняються процедури Rewrite та Reset?

3. Які процедури та функції для роботи з текстовими файлами ви знаєте?

4. Яке призначення процедур Read та Write?

5. Які процедури та функції для роботи з типованими файлами ви знаєте?

6. Як створити exe - файл програми?

7. Як поновити на екрані випадково закриту форму?

8. Як увімкнути Object Inspector, якщо його немає на екрані?

Поиск по сайту: