Обчислення суми значень і кількості елементів табличної величини

Перегляньте відеомаетріал.

Опрацювання елементів табличної величини здійснюватиметься з використанням циклу. Використаємо змінну s для накопичування суми значень елементів табличної величини. Перед циклом надамо їй значення 0.

У циклі послідовно переглядатимемо елементи табличної величини та додаватимемо їхні значення до змінної s.

Звертаємо вашу увагу: якщо в циклі використовується команда змі- нення значення певної величини (у даній задачі s := s + a[i]), то перед циклом цій змінній обов’язково потрібно присвоїти початкове значення (у даній задачі s:= 0).

Задача 2. Визначити, скільки разів задане дійсне число трапляється серед значень елементів табличної величини.

Очевидно, що для розв’язування цієї задачі потрібно переглянути послідовно значення всіх елементів табличної величини, порівняти кожне з них із заданим числом, і якщо деяке з них дорівнює цьому числу, то збільшити лічильник таких елементів на 1.

Задача 3. Визначити, чи є задане дійсне число серед значень елементів даної табличної величини.

Цю задачу можна було б розв’язати аналогічно до попередньої: визначити, скільки елементів табличної величини дорівнюють заданому числу, і якщо ця кількість дорівнює 0, то заданого числа серед значень елементів табличної величини немає, а якщо більше 0, то є.

Але такий метод розв’язування цієї задачі є нераціональним. Уявіть собі, що задане число є значенням уже першого елемента табличної величини. Тоді всі інші її елементи переглядати вже не потрібно, і це значно економить час розв’язування цієї задачі, особливо якщо кількість елементів табличної величини велика.

Для реалізації раціонального методу розв’язування цієї задачі використаємо змінну логічного типу f і нехай її значення false означатиме, що заданого числа серед значень елементів табличної величини немає, а значення true — що є. Перед початком перегляду значень елементів табличної величини присвоїмо змінній f значення false, адже задане число в табличній величині поки що не знайшлося. Порівнюватимемо в циклі послідовно значення елементів табличної величини із заданим числом, і якщо одне з них дорівнює заданому числу, то змінимо значення змінної f на true та перервемо виконання циклу командою break (англ. break — переривати). Виведення реалізуємо залежно від значення змінної f.

Робота з комп’ютером.

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки

та санітарно-гігієнічних норм.

Задача 6. Багаторядкове текстове поле містить дійсні числа. Відомо, що їх кількість не перевищує 20. Увести ці числа як значення елементів таб­личної величини. Визначити суму значень і кількість її елементів, які ма­ють додатні значення. Визначити середнє арифметичне значень цих елемен­тів. Вивести значення цих елементів в інше багаторядкове текстове поле.

1. Відкрийте вікно середовища Lazarus.

2. Розмістіть на формі:

• два багаторядкових текстових поля висотою 400 пікселів;

• два написи: над першим багаторядковим текстовим полем з тек­стом Елементи та над другим — з текстом Додатні елементи;

• три текстових поля;

• три написи по одному зліва від кожного текстового поля з текста­ми відповідно Сума, Кількість, Середнє арифметичне;

• кнопку з текстом Додатні елементи.

1. Збережіть проект у папці з іменем Вправа 6.2, створеній у вашій папці.

2. Створіть обробник події Click для кнопки для обчислення суми додат­них значень елементів табличної величини.

Оскільки за умовою задачі кількість елементів табличної величини невідома, і знаємо лише, що вона не перевищує 20, то в рядку var оголосимо табличну величину максимально можливої кількості елемен­тів (20) з номерами від 0 до 19. Це дасть змогу під час виконання проекту вводити в перше багаторядкове текстове поле довіль­ну кількість чисел, яка не перевищує 20.

Для визначення реальної кількості елементів для кожного такого введення скористаємося властивістю Memol.Lines.

Count, яка, нагадуємо, визначає реальну кількість заповнених рядків багаторяд­кового текстового поля.                                   

1. Уведіть такий текст процедури:  для задачі 6

procedure TForm1.Button1Click(Sender: TObject);

var a: array [0..19] of real; s: real; n, i: integer;

begin

n := Memol.Lines.Count;

for i := 0 to n - 1 do

a[i] := StrToFloat(Memo1.Lines[i]);

s :=0;

for i := 0 to n - 1 do

If a[i] > 0 Then s := s + a[i];

Editl.Text := FloatToStr(s);

end;

1. Збережіть оновлену версію проекту.

2. Запустіть проект на виконання.

3. Уведіть у перше багаторядкове текстове поле числа: 3,4; -7; 0; -13; 8,75; 23; 15. Виберіть кнопку Додатні елементи. Проаналізуйте отри­маний результат.

4. Видаліть числа з першого багаторядкового текстового поля та введіть інші: -16; 98,43; 45; 0; 45; -1; 29; -2,67; 55. Виберіть кнопку Додатні елементи. Проаналізуйте отриманий результат.

5. Закрийте вікно виконання проекту.

6. Додайте до тексту процедури такий фрагмент:

k := 0;

for і := 0 to n - 1 do

If a[i] > 0 Then k := k + 1;

Edit2.Text := IntToStr(k);

а також змінну k до списку змінних типу integer у рядку var.

1. Збережіть оновлену версію проекту.

2. Уведіть свій набір чисел до першого багаторядкового текстового поля. Виберіть кнопку Додатні елементи. Проаналізуйте отримані резуль­тати.

3. Закрийте вікно виконання проекту.

4. Додайте до тексту процедури такий фрагмент:

sa := s/k;

Edit3.Text := FloatToStr(sa);

Memo2.Clear;

for i := 0 to n - 1 do

If a[i] > 0

Then Memo2.Lines.Append(FloatToStr(a[i]));

а також змінну sa до списку змінних типу real у рядку var.

1. Збережіть оновлену версію проекту.

2. Уведіть свій набір чисел до першого багаторядкового текстового поля. Виберіть кнопку Додатні елементи. Проаналізуйте отримані резуль­тати. Зверніть особливу увагу на числа, що будуть виведені у друге багаторядкове текстове поле.

3. Закрийте вікно виконання проекту.

4. Закрийте вікно середовища Lazarus.

Домашня робота

Створіть проект, у якому вводяться значення елементів табличної

величини з 8 дійсних чисел у багаторядковому текстовому полі,

визначається кількість з них, які більші за 5, і результат виводиться в напис.

Збережіть проект з іменем Завдання 6. і відправте вчителю на перевірку.