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

Авторadmin / Опубликовано1 комментарий

* Задание: Разработайте приложение, которое вычисляет сумму ряда х+х/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. Сколько раз будет выполняться следующий цикл:
Do … Loop While True ?
  1. Сколько раз будет выполняться следующий цикл:
Do … Loop Until True ?

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

1 комментарий для “VB 13. Циклические структуры”

Обсуждение закрыто.