Розробка проекту з використанням циклів. Повінь.

Завдання. Створити проект для розв’язання задачі: Перед початком повені рівень води у річці становив Н м. Під час повені кожну годину рівень води зростав на Р% від рівня попередньої години. Яким буде рівень води через Т годин після початку повені? Через скільки годин після початку повені рівень води буде не менше, ніж К м?

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

Хід роботи

1. Встановити значення властивостей форми, текст заголовка Повінь.

2. Розмістити на формі три кнопки, поля та написи.

3. Задайте на першій кнопці текст Питання 1, на другій – Питання 2, на третій – Спочатку, у полів - порожній текст.

4. Розмістіть на формі біля кожного поля додаткові написи з текстами, що будуть пояснювати їхні призначення.

5. Створити процедуру обробки події OnClick для кнопки «Питання 1», виконання якого приведе до виведення у вікно повідомлення відповіді на перше запитання задачі.

6. Виконайте складену процедуру і переконайтеся, що результати її роботи правильні.

7. Створити процедуру обробки події OnClick для кнопки «Питання 2», виконання якого приведе до виведення у вікно повідомлення відповіді на друге запитання задачі.

8. Виконайте складену процедуру і переконайтеся, що результати її роботи правильні.

9. Створити процедуру обробки події OnClick для кнопки «Спочатку», виконання якого приведе до очищення тексту в полях та напису для відповіді.

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

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

12. Додати до форми кнопку «Закрити» для закриття вікна програми.

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

Begin h:= StrToFloat(Form1.Edit1.Text); p:= StrToFloat(Form1.Edit2.Text); t:= StrToInt(Form1.Edit3.Text); s:=1; While s<=t do Begin x:=(p*h)/100; h:=h+x; s:=s+1; End; Form1.Label6.Caption:=' Рівень води '+FloatToStr(h)+ ' м через '+ IntToStr(t) + ' год '; End;	Label 1; Var … Begin h:= StrToFloat(Form1.Edit1.Text); p:= StrToFloat(Form1.Edit2.Text); t:= StrToFloat(Form1.Edit3.Text); k:= StrToFloat(Form1.Edit4.Text); s:=1; While s<=t do Begin x:=(p*h)/100; h:=h+x; if h >= k then goto 1; s:=s+1; End; 1: Form1.Label6.Caption:=' Рівень води буде більшим за '+FloatToStr(k)+ ' м через '+ IntToStr(t) + ' год'; End;
Begin Edit1.Text:= ' '; Edit2.Text:= ' '; Edit3.Text:= ' '; Edit4.Text:= ' '; Label6.Caption:= ' '; End;

Розробка проекту з використанням циклів. Сума чисел кратних 3 з заданого проміжку.

Завдання. Створити програму, яка обчислюватиме суму чисел кратних 3 з проміжку, який вводиться з клавіатури.

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