Усложненные задачи

Сочетание разветвляющегося и циклического вычислительных процессов

Найти значение суммы или произведения в зависимости от заданного условия. Значения переменных выбрать самостоятельно.

Задания для решения на практических занятиях:

1.

2.

Варианты индивидуальных заданий

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

Образец выполнения задания

Найти значение суммы или произведения в зависимости от заданного условия. Значения переменных выбрать самостоятельно.

1. Входными данными являются переменные b, и n.

2. Выходными данными – значение Y.

3. На форме спроэктированы следующие элементы управления:

Label (Введите n, Введите b, Y=, Исходные данные, Результат),

TextBox (для ввода и вывода данных),

CommandButton (Найти Y, Выход),

Image (для помещения на форму формулы)

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (для элемента TextBox),

Font – для изменения размера и начертания шрифта,

ForeColor - для изменения цвета шрифта.

Icon – для размещения пиктограммы в стоке заголовка формы.

4. Программный код:

Dim N As Integer, B As Single, Y As Single

Dim i As Integer, k As Integer, p As Single

Private Sub Command1_Click()

If IsNumeric(Text1) = True And IsNumeric(Text2) = True Then

B = Text1.Text

N = Text2.Text

If B < 0 And N > 0 And N = Int(N) Then

Y = 0

For k = 1 To N

Y = Y + 1 / (2 * k + 1) ^ 2 * B ^ 2

Next

ElseIf B > 0 And N = 0 Then

p = 1

For i = 1 To 3

p = p * Log(i * B) / Log(10)

Next

Y = Log(B + p)

Else

Y = 0

End If

Text3.Text = Y

Else

MsgBox "Вы ввели не число! Повторите ввод."

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End If

End Sub

Private Sub Command2_Click()

End

End Sub

6. Результат выполнения программы:

Задание 5

Дата добавления: 2017-02-01