PDA

Показать полную графическую версию : Операторы цикла For и For Each


daniil_im
19-09-2017, 17:07
Помогите с написанием скрипта...

С использованием оператора цикла for и функции rnd сгенерировать массивы из n действительных чисел, необходимые для вычисления по заданной формуле.
Для расчета по заданной формуле использовать оператор for each. Программу выполнить несколько раз для различных значений n. Исходные данные и результаты показать в окне сообщений.

megaloman
20-09-2017, 14:15
daniil_im, A = 10
B = 5
C = 1

Xmin = 3
Xmax = 10

InDann = "A=" + CStr(A) + " B=" + CStr(B) + " C=" + CStr(C) + vbCrLf
InDannX = InDann + "Xmin=" + CStr(Xmin) + " Xmax=" + CStr(Xmax) + vbCrLf

Randomize
Do
N = InputBox(InDannX + "Введите количество элементов массива", "Y(i)=A*X(i)^2+B*X(i)+C")
If Not IsNumeric(N) Then Exit Do
N = CInt(N) - 1
If N < 0 Then Exit Do
ReDim X(N)

For i = 0 To N
X(i) = (Xmax - Xmin) * Rnd + Xmin
Next
For Each xi In X
Y = A * xi ^ 2 + B * xi + C
MsgBox InDann + "X(i)=" + CStr(xi) + vbCrLf + "Y(i)=A*X(i)^2+B*X(i)+C= " + CStr(Y)
Next
Loop




© OSzone.net 2001-2012