VBS/WSH/JS - Операторы цикла For и For Each

VBS/WSH/JS - Операторы цикла For и For Each

Новый участник

Сообщения: 16
Благодарности: 0

Изображения

	76676778.PNG
(1.5 Kb, 14 просмотров)

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

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

Отправлено: 17:07, 19-09-2017

megaloman

Ветеран

Сообщения: 2708
Благодарности: 1684

Профиль | Отправить PM | Цитировать

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

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

daniil_im

Отправлено: 14:15, 20-09-2017 | #2