Составить алгоритм и программу для вычисления и вывода на печать элементов матрицы Z(i)(j) по формуле - VB
Формулировка задачи:
Здравствуйте, у меня возникла проблема с visual basic. Разумеется по незнанию, а сроки поджимают. Прошу помощь у интернет гуру кибер форума, ваша помощь окажется неоценимой.
Дело вот в чем мне нужно написать программу в basic, понятия не имею как.
Вот задание:
1.Составить алгоритм и программу для вычисления и вывода на печать элементов матрицы Z(i)(j) по формуле
2.Определить минимальный по величине элемент в матрице
Прошу помощи.
Решение задачи: «Составить алгоритм и программу для вычисления и вывода на печать элементов матрицы Z(i)(j) по формуле»
textual
Листинг программы
Private Function z_func(x As Double, y As Double) As Double t = 2 * y - (Cos(x ^ 2)) ^ 3 If Not t = 0 Then z_func = (x ^ 2 + (Sin(x * y)) ^ 2) / t Else MsgBox "недопустимые значения x и y" z_func = 0 End If End Function Private Sub Form_Load() Dim x(8) As Double, y(10) As Double, z(8, 10) As Double 'задание случайных значений 2 векторов Text1 = "" For i = 1 To 8 x(i) = Fix(Rnd * 1000) / 100 Text1 = Text1 & x(i) & vbTab Next Text2 = "" For i = 1 To 10 y(i) = Fix(Rnd * 1000) / 100 Text2 = Text2 & y(i) & vbTab Next 'вычисление Min = z_func(x(1), y(1)) Text3 = "" For i = 1 To 8 For j = 1 To 10 z(i, j) = z_func(x(i), y(j)) If z(i, j) < Min Then Min = z(i, j) Text3 = Text3 & Format(z(i, j), "0.000") & vbTab 'Text3 = Text3 & z(i, j) & vbTab Next Text3 = Text3 & vbCrLf Next text4 = Min End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д