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

↑

▷ Содержание

⇐ ПредыдущаяСтр 5 из 5

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

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

Хід роботи

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 project As...)

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

ПРАКТИЧНА РОБОТА.

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

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

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

Хід роботи

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

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

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

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

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 project As...)

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

ПРАКТИЧНА РОБОТА 5.

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

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

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

Хід роботи

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

2. Створити процедуру обробки події OnClick для кнопки «Створити і записати в файл», в яку занести створення файлу text.txt, зчитування даних з компоненту Memo1 і записів їх в файл.

3. Створити процедуру обробки події OnClick для кнопки «Дописати в файл», в яку занести зчитування даних з компоненту Memo і записів їх в файл text.txt.

4. Створити процедуру обробки події OnClick для кнопки «Вивести дані з файлу», в яку занести виведення даних з файлу text.txt в компонент Memo2.

5. В поле Edit1 ввести назву test.txt і вказати шлях до файлу.

Фрагменти програм для кнопок 1, 2, 3

6. Додати до форми кнопку «Вихід» для закриття програми

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

Познавательные статьи:



Техника прыжка в длину с разбега

Тактические действия в защите

История Олимпийских игр

История развития права интеллектуальной собственности