Оператор Do... Loop
Программа генерирует массивы из n действительных чисел, которые пользователь вводит, необходимые для вычисления формулы: Y(i)=AX(i)^2+BX(i)+C
Какую роль играет оператор do...loop в данной программе? И можно ли обойтись без него?
Код:
A = 10
B = 5
C = 1
Xmin = 1
Xmax = 10
InDann = "A=" + CStr(A) + " B=" + CStr(B) + " C=" + CStr(C) + vbCrLf
InDannX = InDann + "Xmin=" + CStr(Xmin) + " Xmax=" + CStr(Xmax) + vbCrLf
do
N = InputBox(InDannX + "Введите количество элементов массива", "Y(i)=AX(i)^2+BX(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) = Rnd
Next
For Each xi In X
Y = A * xi ^ 2 + B * xi + C
MsgBox InDann + "X(i)=" + CStr(xi) + vbCrLf + "Y(i)=AX(i)^2+BX(i)+C= " + CStr(Y)
next
loop
|
Время: 05:43.
© OSzone.net 2001-
