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

1. Яке призначення панелі групи об’єктів типу GroupBox?

2. Як розмістити на цій панелі об’єкти типу CheckBox?

3. Які властивості панелі групи об’єктів ви знаєте?

4. Які властивості має об’єкт CheckBox?

5. Що означає команда SetLength(m,n)?

6. Яке призначення компоненту StringGrid?

7. Що вміщують його властивості Align, ColCount, FixedRows?

8. Як розмістити на формі кнопку BitBtn?

9. Що вміщує властивість Kind об’єкта BitBtn?

Лабораторна робота №6 робота з рядками

Мета роботи: Створити форму „Обробка рядків типу String”.

Хід лабораторної роботи

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

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

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

4. Вставити у панель три прапорці (об’єкти CheckBox).

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

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

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

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

Рис.14 Рис.15

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

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

Procedure TForm1.Button1Click (Sender: TObject);

var

s: string;

n:byte;

begin

n:=0;

Edit2.Text:=’’;

Edit3.Text:=’’;

s:=Edit1.Text;

if CheckBox2.Checked then

while Pos(‘a’,s)>0 do begin

n:=n+1;

s[Pos(‘a’,s)]:=’o’;

end;

if CheckBox3.Checked then

while Pos(‘ ’,s)>0 do begin

n:=n+1;

s[Pos(‘ ’,s)]:=’-’;

end;

if CheckBox1.Checked then Edit3.Text:= IntToStr(n);

Edit2.Text:=s;

end;

11. Вставити поле редагування Edit та об’єкт типу CheckBox, змінити його заголовок Caption на „Добуток непарних чисел” та запрограмувати кнопку „Обчислити” відповідним чином.

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

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

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

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

1. Яке призначення функцій StrToInt та IntToStr?

2. Яке призначення процедур Delete та Insert?

3. Як працюють функції Concat, Pos, Length і Copy?

4. Яке призначення властивості Checked об’єкта CheckBox?

Лабораторна робота №7 робота з текстовими та типованими файлами

Мета роботи: Ознайомитись з процедурами та функціями для роботи з текстовими та типова ними файлами. Створити дві форми „Мої друзі” та „Створення та обробка типованого файлу”.

Хід лабораторної роботи (частина перша)

1. За допомогою текстового редактора створити текстовий файл з даними про 10 друзів (прізвище, ім’я, день народження). Дані у файл уведіть у стовпчики так: прізвище та ім’я – по 12 символів, дата народження – 10 символів, наприклад,

1-а позиція 13-а позиція 25-а позиція

Огарков Вадим 25.03.1989

Шевченко Сергій 13.07.1988

Петренко Катерина 24.04.1989

Ці дані вивести на форму „Мої друзі”.

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

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

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

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

6. Вставити у форму чотири кнопки - об’єкти типу Button (рис.16).

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

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

Рис.16 Рис.17

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

10. Властивість Enabled для кнопок Button2, Button3, Button4 задати як False.

11. Перед тим, як програмувати кнопки Button1, Button2 тощо, необхідно у розділі описування змінних задати змінні f, pr, im, dn, де f – текстовий файл, pr, im, dn – прізвище, ім’я та дата народження відповідно:

var

Form1: TForm;

f:textfile;

pr,im:string[12];

dn:string[10];

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

Procedure TForm1.Button1Click (Sender: TObject);

begin

assignfile(f,’f1.txt’);

reset(f);

read(f,pr,im,dn);

Edit1.Text:=pr;

Edit2.Text:=im;

Edit3.Text:=dn;

Button2.Enabled:=true;

Button3.Enabled:=true;

Button4.Enabled:=true;

end;

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

Procedure TForm1.Button2Click (Sender: TObject);

begin

reset(f);

while not eof(f) do begin

readln(f,pr,im,dn);

if (pr=Edit1.Text) and (im=Edit2.Text) then begin

readln(f,pr,im,dn);

if eof(f) then Button2.Enabled:=false;

Edit1.Text:=pr;

Edit2.Text:=im;

Edit3.Text:=dn;

break;

end;

end;

end;

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

Procedure TForm1.Button3Click (Sender: TObject);

var

pr1,im1: string[12];

dn1: string[10];

begin

reset(f);

readln(f,pr1,im1,dn1);

Button2.Enabled:=true;

while not eof(f) do begin

readln(f,pr,im,dn);

if (pr=Edit1.Text) and (im=Edit2.Text) then begin

Edit1.Text:=pr1;

Edit2.Text:=im1;

Edit3.Text:=dn1;

break;

end;

pr1:=pr; im1:=im;dn1:=dn;

end;

end;

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

Procedure TForm1.Button4Click (Sender: TObject);

begin

reset(f);

while not eof(f) do begin

readln(f,pr,im,dn);

Edit1.Text:=pr;

Edit2.Text:=im;

Edit3.Text:=dn;

end;

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

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

18. Модифікувати проект „Мої друзі” для розв’язування задачі відшукування і виведення на форму даних про друзів, які: а) народилися у квітні; б) номер телефону починається з цифри 7.

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