Тема: Практична робота №13. Складання та виконання алгоритмів з повтореннями та розгалуженнями для опрацювання величин.
Мета завдання:Навчитися використовувати цикли для знаходження сум елементів послідовностей.Завдання. Розробити проект «Додавання», призначений для
знаходження суми N членів арифметичної прогресії An, різниця якої дорівнює d.
Хід роботи1.Створіть новий проект. Збережіть його у папку «Практична
робота _13».Змініть заголовок форми на «Додавання». Можливий інтерфейс програми наведено на малюнку.
2.Розташуйте на формі чотири текстових поля: для введення
першого значення члена прогресії А, кількості членів послідовності N,різниці прогресії d і виведення результату Sum. Помістіть поряд з текстовими полями відповідні написи (елементи управління Label).
3.Додайте на форму елемент ListBox для виведення списку членів послідовності.
4.Помістіть на форму 8 командних кнопок (за кількістю завдань)і змініть їх заголовки згідно з малюнком. Для полегшення роботи з
програмним кодом змініть імена кнопок на cmdZ5..cmdZ12. Створені
кнопки призначені для виклику процедур, що реалізують
розв’язування задач з пунктів 5-12. Проаналізуйте умову кожної задачі
і визначте, які значення А, d, N відповідають змісту.
5.Задача. Знайти суму 10 членів послідовності 5, 7, 9 …Запишіть у вікні програмного коду процедуру опрацювання командної кнопки «Задача 5 Sum» (cmdZ5).
Dim A As Single, d As Single, Sum As Single N, i As Integer
Dim N As Integer, i As Integer
Private Sub cmdSum_Click()
List1.Clear
A = Val(Text1.Text)
d = Val(Text2.Text)
N = Val(Text3.Text)
Sum = 0
For i = 1 To N
List1.AddItem Str(А)
Sum = Sum + A
A = A + d
Next i
Text4.Text = Str(Sum)
End SubВиконайте проект.
6.Знайдіть суму 6 членів геометричної прогресії 2, 4, 8,16…
7.Знайдіть суму А1+А4+А7+А10 послідовності 11, 18, 25, 32, ...
8. Знайдіть суму А1+А3+А5+А7 геометричної прогресії 8, 32, 128, ....
9.Знайдіть суму натуральних чисел, менших або рівних 1000.
10.Знайдіть суму парних чисел, більших за 100, менших за 200.
11.Дана послідовність 5, 9, 13, 17, ... . Скільки доданків треба
взяти, щоб одержати суму, рівну 324?
12. Відомо, що перший член геометричної прогресії 3, її знаменник q=3. Складіть програму для обчислення кількості членів
прогресії, які дають в сумі 1092
знаходження суми N членів арифметичної прогресії An, різниця якої дорівнює d.
Хід роботи1.Створіть новий проект. Збережіть його у папку «Практична
робота _13».Змініть заголовок форми на «Додавання». Можливий інтерфейс програми наведено на малюнку.
2.Розташуйте на формі чотири текстових поля: для введення
першого значення члена прогресії А, кількості членів послідовності N,різниці прогресії d і виведення результату Sum. Помістіть поряд з текстовими полями відповідні написи (елементи управління Label).
3.Додайте на форму елемент ListBox для виведення списку членів послідовності.
4.Помістіть на форму 8 командних кнопок (за кількістю завдань)і змініть їх заголовки згідно з малюнком. Для полегшення роботи з
програмним кодом змініть імена кнопок на cmdZ5..cmdZ12. Створені
кнопки призначені для виклику процедур, що реалізують
розв’язування задач з пунктів 5-12. Проаналізуйте умову кожної задачі
і визначте, які значення А, d, N відповідають змісту.
5.Задача. Знайти суму 10 членів послідовності 5, 7, 9 …Запишіть у вікні програмного коду процедуру опрацювання командної кнопки «Задача 5 Sum» (cmdZ5).
Dim A As Single, d As Single, Sum As Single N, i As Integer
Dim N As Integer, i As Integer
Private Sub cmdSum_Click()
List1.Clear
A = Val(Text1.Text)
d = Val(Text2.Text)
N = Val(Text3.Text)
Sum = 0
For i = 1 To N
List1.AddItem Str(А)
Sum = Sum + A
A = A + d
Next i
Text4.Text = Str(Sum)
End SubВиконайте проект.
6.Знайдіть суму 6 членів геометричної прогресії 2, 4, 8,16…
7.Знайдіть суму А1+А4+А7+А10 послідовності 11, 18, 25, 32, ...
8. Знайдіть суму А1+А3+А5+А7 геометричної прогресії 8, 32, 128, ....
9.Знайдіть суму натуральних чисел, менших або рівних 1000.
10.Знайдіть суму парних чисел, більших за 100, менших за 200.
11.Дана послідовність 5, 9, 13, 17, ... . Скільки доданків треба
взяти, щоб одержати суму, рівну 324?
12. Відомо, що перший член геометричної прогресії 3, її знаменник q=3. Складіть програму для обчислення кількості членів
прогресії, які дають в сумі 1092
Немає коментарів:
Дописати коментар