VB 13. Циклические структуры

* Задание: Разработайте приложение, которое вычисляет сумму ряда х+х/2+х/3+х/4+…(|х|<1) и количество слагаемых в этой сумме, причем расчет производится, пока приращение не будет меньше заданной точности.

Инструментарий

объект свойство name
форма frm
кнопка (button) btn
текстовое поле (textbox) txtX
текстовое поле (textbox) txtТочность
надпись (label) lblСумма

 

Выполнение:

  1. Создайте новый проект и расположите элементы управления на новой форме, как показано на рисунке.
  2. Запрограммируйте кнопку Вычислить так, чтобы вычислялись сумма ряда и количество входящих в нее элементов.
Циклические структуры в Visual basic

Форма «Сумма ряда»

  1. Сначала опишите переменные, которые потребуются для вычисления:
Dim Количество As Integer
Dim Сумма As Single
Dim Приращение As Single
  1. Теперь вычисляйте приращение для каждого члена ряда и производите суммирование до тех пор, пока приращение не превзойдет заданной точности, причем приращение необходимо брать по модулю. Обратите внимание, что для решения данной задачи цикл с параметром не подойдет, так как заранее неизвестно, сколько раз необходимо производить циклические действия:
Do
  Количество = Количество + 1
  Приращение = Val(txtX.Text) / Количество
  Сумма = Сумма + Приращение
Loop While Math.Abs(Приращение) > Val(txtТочность.Text)
  1. Осталось только вывести результаты Вашего вычисления в надпись:
lblСумма.Text = "сумма=" + Str(Сумма) + ", количество=" + Str(Количество)
  1. Запустите и отладьте программу. Для контроля введите данные приведенные на рисунке.


Контрольное задание:
Выполните задание данного занятия при следующих условиях:
1+ х/2+х2/3+х3/4+…


Вопросы для самоконтроля:

  1. Что такое цикл?
  2. Сколько раз будет выполняться следующий цикл:
DoLoop While True ?
  1. Сколько раз будет выполняться следующий цикл:
DoLoop Until True ?

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.
Поделитесь уроком с коллегами и друзьями:
One Comment

    Сергей

    Просто КЛАСС . СПАСИБО!

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*


Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить