Доброго дня!
Продовжуємо вивчати тему "Алгоритми з повтореннями та розгалуженнями".
Тема сьогоднішнього уроку "Цикл з передумовою".
Записуємо у робочих зошитах:
9 квітня
Цикл з передумовою
Працюємо за таким планом:
І. Вивчення нового матеріалу
Записуємо у робочих зошитах:
Загальний вигляд циклу з передумовою:
while <умова> do
begin
<команди>
end;
Переклад службових слів:
while - поки; do - виконувати
ІІ. Практичне завдання
Розробка проекту “Кількість доданків” (код для цього проекту запишіть у зошит)
Задача.
Скільки потрібно взяти доданків, перший з яких дорівнює заданому дійсному числу, а кожний наступний на 3 більший попереднього, щоб їхня сума перевищила 100?
Зразок форми:
Позначимо а - дане дійсне число (його будемо вводити), S - cума, n - кількість доданків (тобто відповідь до задачі).
Опишемо ці змінні після слова var:
var a,s:real; n:integer;
Код для кнопки "Підрахувати":
a:=StrToFloat(Edit1.Text);
s:=a; n:=1;
while s<=100 do
begin
a:=a+3;
s:=s+a;
n:=n+1;
end;
Label2.Caption:=IntToStr(n);
Також перегляньте та розберіть відео, де ця задача розв'язана:
ІІІ. Завдання додому (записати у щоденники):
Опрацювати параграф 6.7 та конспект;
підготуватися до практичної роботи № 15
Зауваження. Практичні завдання на комп'ютері з даної теми будемо виконувати, коли буде очне навчання. Створений конспект відправте, будь ласка, мені в особисті повідомлення.
До нових зустрічей!
