Поможите кто может!!!

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Аватара пользователя
AiK
Сообщения: 2271
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

29 май 2004, 01:33

Ты бы ради спортивного интереса указал бы язык что ли.
Даже самый дурацкий замысел можно воплотить мастерски
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

31 май 2004, 19:31

На форму добавьте TextBox (Text1) и кнопку. На кнопку напишите следующее:

Код: Выделить всё

Dim a(1 To 10, 1 To 20) As Double, max As Double, _
    maxi As Integer, maxj As Integer, i As Integer, _
    s As String, j As Integer
    
Private Sub Command1_Click()
  max = a(1, 1): maxi = 1: maxj = 1
  s = "Исходные данные: " & Chr(13) & Chr(10)
  For i = 1 To 10
    For j = 1 To 20
      a(i, j) = Int(Rnd(1) * 1000)
      s = s & a(i, j) & " "
    Next
    s = s & Chr(13) & Chr(10)
  Next
  
  s = s & "Результат: " & Chr(13) & Chr(10)
  s = s & "Макс. элемент: " & maxi & " строка  " & maxj & " столбец" & Chr(13) & Chr(10)
    
  For i = 1 To 10: For j = 1 To 20
    If max < a(i, j) Then
      max = a(i, j): maxi = i: maxj = j
    End If
  Next: Next
  
  a(maxi, maxj) = 0
  
  For i = 1 To 10
    For j = 1 To 20
      s = s & a(i, j) & " "
    Next
    s = s & Chr(13) & Chr(10)
  Next
  
  
  Text1.Text = s
  
End Sub
Ответить