Хід роботи

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

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

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

Const

n=13;

Var

i , k, s : integer;

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

c : string;

Begin

s:=0;

For i:=1 to n do

Begin

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

If StrToInt(a[i])>0 then s:=s+StrToInt(a[i]);

End;

Form1.Label2.Caption:= 'відповідь '+ ІntToStr(s);

For i:=1 to n do

Begin

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

If StrToInt(a[i]) mod 2 <> 0 then a[i]:=IntToStr(s);

c:= a[i];

Form1.Memo2.Lines.Add(c);

end;

end;

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

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

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

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

Завдання. Скласти проект для знаходження суми і середнього арифметичного одновимірного масиву. В проекті передбачити введення елементів масиву через компонент stringGrid

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

Хід роботи

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

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

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

	Властивість	Значення
	ColCount	5
	FixedCols	0
	RowCount	1
	DefaultRowHeight	24
	Height	24
	DefaultColWidth	64
	Width	328
	Options . goEditing	True
	Options . goAlwaysShowEditing	True
	Options . goTabs	True

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

Var

a : array[1 .. 5] of integer;

i, sum : integer ;

sr: real;

Begin

For i:= 1 to 5 do

If Length(StringGrid1.Cells[i-1, 0]) <>0 then

a[i] := StrToInt(StringGrid1.Cells[i-1,0])

else a[i] := 0;

sum := 0;

For i :=1 to 5 do

sum := sum + a[i];

sr := sum / 5;

Label2.Caption := ' Сума елементів: ' + IntToStr(sum) + #13+ ' Середнє арифметичне: ' + FloatToStr(sr);

End;

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

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

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