Найти значения функции. Массивы - VB

Формулировка задачи:

Для одномерных одинаковой длины массивов X и Z и коэффициентов A, B, C, D найти значения функции по формуле: Yk=(A*Xk+B)/(C*Zk+D) .

Код к задаче: «Найти значения функции. Массивы - VB»

textual
Private Sub Form_Load()
'ГђГ*çìåð Г¬Г*Г±Г±ГЁГўГ*
Const N = 5
Me.AutoRedraw = True
List1.AddItem "ГЊГ*Г±Г±ГЁГў Г•"
List2.AddItem "ГЊГ*Г±Г±ГЁГў Z"
List3.AddItem "ГЊГ*Г±Г±ГЁГў Y"
 
Dim x(N), z(N), y(N) As Single
Dim a, b, c, d As Single
Dim i As Integer
 
For i = 0 To N - 1
x(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* Г•")
Next
For i = 0 To N - 1
z(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* Z")
Next
 
a = InputBox("Ââåäèòå êîýôôèöèåГ*ГІ ГЂ")
b = InputBox("Ââåäèòå êîýôôèöèåГ*ГІ B")
c = InputBox("Ââåäèòå êîýôôèöèåГ*ГІ C")
d = InputBox("Ââåäèòå êîýôôèöèåГ*ГІ D")
 
 
For i = 0 To N - 1
y(i) = (a * x(i) + b) / (c * z(i) + d)
List1.AddItem x(i)
List2.AddItem z(i)
List3.AddItem Format(y(i), "0.00")
Next
 
End Sub

7   голосов, оценка 3.000 из 5


СОХРАНИТЬ ССЫЛКУ