Вложенные циклы

Простые циклы

Циклический вычислительный процесс

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

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

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.

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) простой цикл:

2) вложенный цикл:

Значения переменных выбрать самостоятельно.

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

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

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

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

TextBox (для ввода и вывода чисел),

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

OptionButton (Простой цикл, Вложенный цикл)

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

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

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

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

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

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

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

Dim a As Single, Y As Single, n As Integer, k As Integer

Dim i As Integer, f As Long

Private Sub Form_Load()

Option1.Value = True

End Sub

Private Sub Option1_Click()

Text3.Text = ""

Label7.Visible = False

End Sub

Private Sub Option2_Click()

Text3.Text = ""

Label7.Visible = False

End Sub

Private Sub Command1_Click()

Label7.Visible = False

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

n = Text2.Text

a = Text1.Text

If n < 0 Or n <> Int(n) Then

Label7.Visible = True

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

'Exit Sub

Else

If Option1.Value = True Then

Y = 0

For k = 0 To n

Y = Y + (k ^ 2 - k + 1) / (k + 4)

Next

Y = a - Y

Text3.Text = Y

End If

If Option2.Value = True Then

Y = 1

For k = 1 To n

f = 1

For i = 1 To k

f = f * i

Next

Y = Y * (f + a ^ 2)

Next

Text3.Text = Y

End If

End If

Else

MsgBox " Вы ввели не число!""

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

Exit Sub

End If

End Sub

Private Sub Command2_Click()

End

End Sub

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

Вслучае некорректности введенных данных появляется диалоговое окно «Вы ввели не число!» или появляется надпись «Некорректные данные», если n введено отрицательным числом или не целым.

В случае правильности введенных данных получаем результаты в зависимости от установки переключателя (Простой или Вложенный циклы)

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