Сформировать двумерный массив по правилу - Visual Basic .NET (250310)
Формулировка задачи:
Сформировать двумерный массив X(4,4) по правилу: Xij = i/(i+j). Вставьте столбец из единиц перед столбцом, содержащим минимальный элемент матрицы.
Решение задачи: «Сформировать двумерный массив по правилу»
textual
Листинг программы
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x(4, 4) As Double, i As Integer, j As Integer, jmin As Integer Dim smin As Double smin = 1 For i = 1 To 4 For j = 1 To 4 x(i, j) = i / (i + j) If x(i, j) < smin Then smin = x(i, j) jmin = j End If Next Next If jmin > 1 Then jmin = jmin - 1 For i = 1 To 4 x(i, jmin) = 1 Next End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д