Проверьте правильность написания кода для Visual Basic
Тема "Программирование задач в VB, содержащие сложные циклы"
_
_
Private Sub Command1_Click()
Dim x, y, s, p, f, f1, a, t As Single
x = -5
p = 1
For n = 2 To 7
f = 1
For a = 1 To n - 1
f = f * a
Next a
p = p * ((n + 1) / (n - 1))
Next n
s = 0
For k = 3 To 6
f1 = 1
For t = 1 To 2 * k
f1 = f1 * t
Next t
s = s + (2 * k / (k ^ 3 + 5))
Next k
z = p ^ 3 - 1
Print z
End Sub

Ответы (1)

Мечислав 30.05.2025 5
Private Sub Command1_Click()
Dim x, p, s, f, f1, z As Single
Dim n, k As Integer
x = -5
p = 1
For n = 2 To 7
f = 1
For k = 1 To n - 1
f = f * k
Next k
p = p * ((n + 1) / (n - 1))
Next n
s = 0
For k = 3 To 6
f1 = 1
For n = 1 To 2 * k
f1 = f1 * n
Next n
s = s + (2 * k / (k ^ 3 + 5))
Next k
z = p ^ 3 - 1
Print z
End Sub

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: