8 клас

17.02.2020 Цикл з лічильником. Складання алгоритмів опрацювання величин у навчальному середовищі програмування, їх налагодження і виконання.  Практична робота 15

https://sites.google.com/view/onlayn-konspekt-z-informatiku/8-%D0%BA%D0%BB%D0%B0%D1%81/%D1%83%D1%80%D0%BE%D0%BA-37-%D0%B0%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC%D0%B8-%D0%B7-%D1%80%D0%BE%D0%B7%D0%B3%D0%B0%D0%BB%D1%83%D0%B6%D0%B5%D0%BD%D0%BD%D1%8F%D0%BC?authuser=0

Завдання 2. Числа

Організувати введення послідовності натуральних чисел, яка завершується 0. Знайти кількість і середнє арифметичне введених чисел.

Розв’язання

1) Створіть новий проект.
2) Розробіть інтерфейс програми згідно з рисунком.
З) Створіть процедуру обробки події OnCIick для кнопки Ввести числа.
4) Запишіть програмний код:

5) Запустіть проект. Випробуйте його для різних наборів чисел. Збережіть проект.
6) Змініть програму таким чином, щоб вона визначала порядковий номер N найменшого з уведених чисел.
Алгоритм визначення мінімального з уведених чисел:
1) змінній Міn присвоюемо значення першого з уведених чисел;
2) кожне наступне число порівнюємо з Міn. Якщо поточне А < Min, виконується заміна Міn := А і запам’ятовується порядковий номер поточного числа А (N := K).
Після введення А = 0 цикл припиняє роботу, в комірці Міn міститься мінімальне число 3 уведеної послідовності, в комірці N – порядковий номер цього числа в послідовності.

Завдання 3. Числа

Надрукувати числа y вигляді таблиці:
5 5 5 5 5
5 5 5 5 5
5 5 5 5 5
Рядок із п’яти цифр можна сформувати за допомогою циклу For:
For i:=1 to 5 do S:=S+’5 ‘; //5-рядок
Щоб повторити виведення даного рядка три рази, вставляємо цей цикл всередину іншого:
For k:=1 to 3 do
{тричі виконується цикл з параметром k}
begin
S:=”;
Fог i := 1 to 5 do S := S + ‘5’; // S разів виконується цикл із параметром і
ListBox1.Items.Add(S);
end;

При вкладенні циклів For для кожного циклу як параметри повинні використовуватися різні змінні.

Завдання 4. Надрукувати таблицю множення

Розв’язок

Результат

Завдання 5. Скласти програму для розв’язання старовинної задачі.

Плата за одного бика – 20 карбованців, за корову – 10 карбованців, за теля – 1 карбованець. Скільки можна купити биків, корів i телят, якщо на 200 карбованців треба купити 100 голів худоби?
Розв’язок
1) Створіть новий проект. Змініть заголовок форми на «Старовинна задача».
2) Розмістіть на формі компонент ListBox.
3) Додайте на форму кнопку Виконати.
4) Розв’язання задачі.
Позначимо літерою b кількість биків; k – кількість корів;
t – кількість телят. Загальна кількість голів дорівнює 100:
b + k + t = 100.

За биків заплатили 20b карбованців, за корів – 10k карбованців. за телят – t карбованців, отже, 20b + 10k + t = 200. Ha
200 карбованців можна купити: не більше 10 биків, тобто 0≤b≤10; не більше 20 корів, тобто 0≤К≤20; не більше 200 телят, тобто 0≤t≤200. Таким чином, необхідно перебрати всі можливі значении змінних b, k, t i вивести в поле ListBox той набір значень. для яких виконується умова (20*b+10*k+t=200)And(b+k+t=100).
Створіть процедуру обробки події ОnСІісk для кнопки. Запишіть програмний код: