Урок 61-62. Цикл з передумовою

Перегляньте презентацію

Практичне завдання

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

Повторіть правила безпечної роботи за комп’ютером.

Завдання. Побудуйте математичну модель і створіть проєкт для визначення, на скільки років вкладник має покласти х грн до банку, щоб отримати від банку не менше ніж а грн, якщо банк щорічно збільшує вклад на р %.

Побудуємо математичну модель для цієї задачі:

• вхідні дані: сума вкладених грошей (х), щорічне збільшення вкладу (р %), сума грошей, не менше якої потрібно отримати від банку (а);

• кінцеві результати: кількість років (n);

• формули: сума грошей через кожний рік: х = х + х * р / 100.

Відповідний проєкт мовою програмування наведено на малюнку.

Перед циклом змінній n для кількості років присвоюється значення 0, тому що вкладник тільки поклав суму х грн у банк. Вклад буде лежати в банку доти, доки він буде менше потрібної суми а грн. Вкладник забере гроші з банку тільки тоді, коли сума грошей стане рівною або перевищить а грн. Тому логічним виразом циклу з передумовою буде нерівність x < a.

У тілі циклу дві команди на обчислення: перша для обчислення суми вкладу через рік (x := x + x * p / 100), а друга для збільшення кількості років на 1 (n := n + 1). Змінна n – кількість років набуває в проєкті тільки цілих значень, а всі інші змінні можуть набувати як цілі, так і дробові значення.

Хід роботи:

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

2. Розмістіть на формі поля, написи і кнопку, як це наведено на малюнку.

3. Створіть заготовку процедури – обробник події Click для кнопки.

4. Уведіть фрагмент проєкту:
   procedure TForm1.Button1Click(Sender: TObject);
     var x, p, a: real; n: integer;
   begin
     x := StrToFloat (Edit1.Text);
     p := StrToFloat (Edit2.Text);
     a := StrToFloat (Edit3.Text);
     n := 0;
     while x < a do
     begin
       x := x + x*p/100;
       n := n + 1;
     end;
     if n = 0
       then Edit4.Text := 'Грошей і так вистачає'
         else Edit4.Text := IntToStr (n);
   end;

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

6. Уведіть для тестування проєкту набір вхідних даних, для якого команди тіла циклу не виконуватимуться жодного разу, наприклад, x = 1000, p = 20, a = 500.

7. Проаналізуйте результат виконання проєкту та порівняйте його з очікуваним.

8. Уведіть для тестування проєкту набір вхідних даних, щоб команди тіла циклу виконувалися 1 раз. Запишіть його в зошит.

9. Проаналізуйте результат виконання проєкту та порівняйте його з очікуваним.

10. Виконайте проєкт ще для 2–3 наборів вхідних даних. Запишіть у зошит ці набори та відповідні результати виконання проєкту.

11. Закрийте всі відкриті вікна.

Опрацюйте 

за підручником "Інформатика, 8 клас" (Й.Я. Ривкінд та їнші):

• Прочитайте та розберіть теоретичний матеріал пункту 6.11 (стор. 242-245).

• Дайте усні відповіді на питання 1-9 (стор. 244).

• Виконайте вправу 2 (стор. 245).

Перевірте свій рівень знань 

Скриншот результату тесту прикріпіть у розділі Ваші роботи на платформі Google ClassRoom: 

• Цикли з передумовою (Pascal-Lazarus). Тест 39 (Інформатика 8 клас Ривкінд)

Для моніторингу засвоєння матеріалу пройдіть тестування 

• https://vseosvita.ua/test/start/hvu410