Составить алгоритм и программу для вычисления и вывода на печать элементов матрицы 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы