Сформировать матрицу N*N случайных чисел - VB
Формулировка задачи:
"Сформировать матрицу N*N случайных чисел в диапозоне от -340 до 570.Разработать общую процедуру Sub вывода матрицы на экран в элемент управления TextBox.Определить максимальное значение среди отрицательных чисел,расположенных в верхнем треугольнеке и минимальное среди положительных чисел-в левом треугольнике,образованном диагоналями.Вывести на экран эти значения с указанием координат.Поменять их местами."
Вот то,что я сделала:
Вообще не знаб как это делать,но хотелось бы разобраться!!)Кто-нибудь может помочь????
Решение задачи: «Сформировать матрицу N*N случайных чисел»
textual
Листинг программы
Dim arr() As Double, n As Byte, i As Byte, j As Byte, u As Byte Dim less As Single, Answer Dim max As Single, maxI As Byte, maxJ As Byte Dim min As Single, minI As Byte, minJ As Byte Private Sub Command1_Click() n = InputBox("n") Answer = "" ReDim arr(1 To n, 1 To n) For i = 1 To n For j = 1 To n arr(i, j) = Int(910 * Rnd - 340) Answer = Answer & arr(i, j) & " " Next j Answer = Answer & Chr(13) Next i MsgBox Answer If (n Mod 2) = 0 Then less = 0 Else less = 0.5 max = -350 For i = 1 To n / 2 For j = i To n - i + 1 If arr(i, j) > max And arr(i, j) < 0 Then max = arr(i, j): maxI = i: maxJ = j Next j Next i If max = -350 Then MsgBox ("Нет отрицательных в верхнем треугольнике") Else MsgBox "max " & max & "(" & maxI & ";" & maxJ & ")" End If min = 580 For i = 1 To n If i > ((n / 2) + less) Then u = n - i + 2 * less Else u = i For j = 1 To u If arr(i, j) > 0 And arr(i, j) < min Then min = arr(i, j): minI = i: minJ = j Next j Next i If min = 580 Then MsgBox ("Нет положительных в левом треугольнике") Else MsgBox "min " & min & "(" & minI & ";" & minJ & ")" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д