Операторы цикла For и For Each - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Операторы цикла For и For Each (http://forum.oszone.net/showthread.php?t=329896)

Операторы цикла For и For Each

Помогите с написанием скрипта...

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

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