Хід роботи

1. Розмістити на формі візуальні компоненти. Встановити значення властивостей компонентів: колір, шрифт, заголовки.

2. Створити процедуру обробки події OnClick для кнопки «Обчислити», в яку занести зчитування даних з полів Editl та Edit2, обчислення суми та виведення в мітку Label її значення. Ввести необхідну послідовність команд у тіло процедури.

Ф рагмент програми

Label 1;

Var

a, b, s: integer;

Begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

s:=0;

If a > b then

Begin

Label4.Caption := ' Перше число повинне бути меншим від другого числа ';

Goto 1;

End;

If a mod 3 = 0 then // перевірка кратності числа

Begin

While a <= b do

Begin

s:= s+a;

a:= a+3;

End;

Label4.Caption := ' Сума чисел ' + IntToStr(s);

End

Else Label4.Caption := ' Ввести перше число кратне 3';

1: End;

3. Додати до форми кнопку «Закрити» для закриття програми

4. Зберегти проект на диск (File / Save project As...)

5. Запустити проект та перевірити правильність його виконання (Run / Run або F9).

Практична робота4. Розробка проекту «Опрацювання одновимірного масиву в середовищі Delphi».

Завдання. Створити проект для визначення кількості елементів у масиві з 10 цілих чисел, які не перевищують значення 8. В проекті передбачити введення елементів масиву з клавіатури через компонент Memo.

Під час роботи на комп’ютері дотримуйтесь правил безпеки та санітарно-гігієнічних норм.

Хід роботи

1. Розмістити на формі за зразком візуальні компоненти.

2. Створити процедуру обробки події OnClick для кнопки «Обчислити», в яку занести зчитування даних з компонента Memo, знаходження кількості елементів, які менше 8 та виведення відповіді в мітку Label.

Форма проекту та її властивості

Компонент	Властивість	Значення
Label1	Caption	Ввести елементи масиву
Label2	Caption
Button1	Caption	обчислити
Вutton2	Caption	вихід

Фрагмент програми

Const

n=10;

Var

i, k: integer;

a: array [1..n] of string;

Begin

k:=0;

Memo1.Text:=' ';

For i:=1 to n do

Begin

a[i]:=Memo1.Lines[i-1];

If StrToInt(a[i]) <= 8 then k:=k+1;

End;

Form1.Label2.Caption:= 'відповідь '+ IntToStr(k);

End;

3. Додати до форми кнопку «Закрити» для закриття програми

4. Зберегти проект на диск (File / Save projectAs...)

5. Запустити проект та перевірити правильність його виконання (Run / Run або F9).

Розробка проекту «Опрацювання одновимірного масиву в середовищі Delphi».

Завдання. Скласти проект для обчислення суми додатних елементів у одновимірному масиві з 13 цілих чисел та замінити непарні за значенням елементи на суму. В проекті передбачити введення і виведення елементів масиву через компонент Memo.

Під час роботи на комп’ютері дотримуйтесь правил безпеки та санітарно-гігієнічних норм.