Подскажите в чём ошибка программы
Условие
вот код в Visual Basic 6
Private Sub Command1_Click()
Dim z, x(20) As Double
Dim i As Integer
For i = 1 To 20
x(i) = InputBox("Введите число: ")
Next
Sum = 0
For i = 1 To 20
z = Sum + (x(i) ^ 2) / (i ^ 2)
Label1.Caption = z
Next
End Sub
Да вроде правильно. А что выдает? Может массив с 0 нумеруется?
И вынеси Label1.Captiоn = z за next
И будет z = z+ (x(i) ^ 2) / (i ^ 2
выдаёт неверное вычисление, дробная часть таже (пришлось вручную высчитывать), а вот целая часть отличается даже сложно сказать на сколько (такое чувство выдаёт случайное)
массив нумеруется с первого числа, которое задаю я
насчёт вынести за next это просмотрел, спасибо