[VB] Работа с двумерным массивом

[samlab]

Прошу помочь нерадивому студенту еще разочек, если вас это не затруднит, конечно

Код:

Dim i As Integer, j As Integer
Dim a(7, 7) As Integer
Dim Result As Single

Private Sub cmd1_Click()

Cls

k = Val(InputBox())

For i = 1 To 7
For j = 1 To 7
a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))

Print a(i, j),

Next j

Print

Next i

End Sub

В коде вычисляется двумерный массив, когда вводишь с помощью inputbox значение k. Не могу разобраться, как вычислить наибольшее положительное cos (a(4,j)), то бишь косинус 4 строки начиная с 1 и до 7 столбца... Как вариант делал так

Код:

For i = 1 To 7
For j = 1 To 7
a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))

Print cos (a(4,j))

Next j

Next i

Но что то тут не то, по идее выводиться должно 7 раз, а не как у меня... И как вообще сравнивать числа?
Заранее спасибо.

[RXL]

samlab, не уважаешь ты нас. Отформатируй код!

[samlab]

samlab, не уважаешь ты нас. Отформатируй код!

Отформатировал в первом посту, так должно быть?

[Sla]

Код:

For i = 1 To 7
    For j = 1 To 7
        a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))
        Print cos (a(4,j))
    Next j
Next i

А так слабо?

[RXL]

1. Ввести дополнительную переменную для этого значения. Проинициализировать! Чем - подумай.
2. Цикл по j. Вычислить формулу и сравнить с переменной (см. п.1). Если значение формулы больше, присвоить переменной ее значение.
3. После цикла проверить, положительная ли переменная (см. функцию SIGN) и если да, то вывести ее.

Математика 5 класс...

[samlab]

Код:

For i = 1 To 7
    For j = 1 To 7
        a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))
        Print cos (a(4,j))
    Next j
Next i

А так слабо?

Слабо, давайте кидайтесь в меня гнилыми помидорами и тухлыми яйцами, я готов ко всему...

[samlab]

1. Ввести дополнительную переменную для этого значения. Проинициализировать! Чем - подумай.
2. Цикл по j. Вычислить формулу и сравнить с переменной (см. п.1). Если значение формулы больше, присвоить переменной ее значение.
3. После цикла проверить, положительная ли переменная (см. функцию SIGN) и если да, то вывести ее.

Математика 5 класс...

математику мы не любим с детства ибо преподаватель был тот еще фрукт, спасибо за подсказку, буду думать

[RXL]

samlab, извини, но это твои проблемы. Ты потихоньку скатываешься до уровня соседнего раздела - "Памагите".

Кстати, если ты не любишь две крайности - грамматику и математику, то чего же ты любишь?

[samlab]

samlab, извини, но это твои проблемы. Ты потихоньку скатываешься до уровня соседнего раздела - "Памагите".

Кстати, если ты не любишь две крайности - грамматику и математику, то чего же ты любишь?

Я и не перекладываю свои проблемы на Вас.  По поводу соседнего раздела - разве я хнычу " памагите пажалуйста..., сессия горит, напишите за меня код..."? Я просто прошу помочь, но не навязываю себя.
А по - поводу грамматики, вы немного путаете , по-моему - кислое с пресным, уважаемый RXL. Знай я, в каком виде нужно представить свой код на суд общественности, я бы так и сделал, не прекословя, вы же требуете от меня того, чего я не могу сделать, я по-просту не знаю - пишу код так, как удобно читать и понимать мне, я же не виноват в этом...

Добавлено через 2 часа, 46 минут и 27 секунд:
А по поводу кода, сам принцип мне ясен
назначаешь за миниум первый элемент: MIN = M(1) или MIN = M(1, 1) для двумерного
А потом в цикле сравниваешь. И если текущий элемент меньше - берёшь его за миниум
Только из за этих внутренних и внешних циклов у меня каша в голове...

Код:

For i = 4 To 4
      For j = 1 To 7
            a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))
            l = cos (a(4,j))
      Next
Next

Правильно ли пока что тут?

[Dusk]

А по поводу кода, сам принцип мне ясен
назначаешь за миниум первый элемент: MIN = M(1) или MIN = M(1, 1) для двумерного
А потом в цикле сравниваешь. И если текущий элемент меньше - берёшь его за миниум
Только из за этих внутренних и внешних циклов у меня каша в голове...

Код:

For i = 4 To 4
      For j = 1 To 7
            a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))
            l = cos (a(4,j))
      Next
Next

Правильно ли пока что тут?

Для выявления минимального числа надо сделать:

Код:

For i = 1 To 7
      For j = 1 To 7
            a(i, j) = ((-1) ^ (i + j)) * ((22 * Cos(i)) + (33 * Sin(j)) + (44 * Cos(k)))
            If i = 4 Then
                   m = cos (a(i,j))
                   If j = 1 Then
                         l = m
                   Else
                         If  l > m then  l = m
                   End If
            End If
      Next
Next

Скорее всего должно выглядеть где-то так, если я правильно понял задание.
Разберись в том, что я написал.

P.S. Точно не помню, и проверить негде, поддерживает ли VB конструкцию типа  If  l > m then  l = m.
Если не поддерживает - исправляй ошибку сам.

[samlab]

Спасибо, немного под себя подправил код ( нужно было сравнивать только положительные косинусы), а так все работает... Сейчас буду заниматься сортировкой массива, но уже сам, чтобы никого тут больше не доставать...

[Dusk]

samlab, тебе надо понять принцип работы вложенных циклов - без них сортировку тоже не сделаешь.

[samlab]

Да тут и понимать нечего - один цикл идет по строкам, второй по столбцам, разве не так? Меня гнетет то, что мне нужно отсортировать фактически только одну строку (сортировка квадратов элементов 6 - го стобца), а как в одной строке найти столбцы...  

Код:

Dim I As Integer, J As Integer
Dim a(7, 7) As Integer
Dim my(7) As Integer

Private Sub cmd1_Click()
Cls
k = Val(InputBox("", ""))
For I = 1 To 7
  For J = 1 To 7
    a(I, J) = ((-1) ^ (I + J)) * ((22 * Cos(I)) + (33 * Sin(J)) + (44 * Cos(k)))
    Print a(I, J),
  Next
  Print
Next
For I = 1 To 7
  For J = 1 To 7
    a(I, J) = ((-1) ^ (I + J)) * ((22 * Cos(I)) + (33 * Sin(J)) + (44 * Cos(k)))
    If I = 4 Then
       m = Cos(a(I, J))
       If m > 0 Then
         If J = 1 Then
           l = m
         Else
            If l > m Then l = m
         End If
      End If
    End If
  Next
Next
Print "Min =" & Round(l, 5)
For I = 1 To 7
  J = 6
  my(I) = ((-1) ^ (I + J)) * ((22 * Cos(I)) + (33 * Sin(J)) + (44 * Cos(k)))
  Print my(I) ^ 2 ' kak tyt ???'
Next
End Sub

Форматировать код не буду, ибо мне не понятны принципы всех этих мистических отступов, пробелов и т.п., уж не вините
Столько методов смотрел, самый простой в реализации - пузырьковый, но там все для массивов, а мне надо отсортировать только 6 столбик, или я не правильно мыслю?

updА я буду. Предупреждение, в противном случае тема будет удалена

[Sla]

samlab, т.е. ты считаешь, что нам здесь делать нефик, чтоб подстраиваться под твои хочу/не хочу

Не хочешь - не надо. Но в таком случае ЗДЕСЬ твоих постов не будет.

А ломать глаза из-за твоих непонятных принципов мне, лично, облом, и другим, наверное, тоже.

[Dimka]

Форматировать код не буду, ибо мне не понятны принципы всех этих мистических отступов, пробелов и т.п., уж не вините

Тут я со Sla согласен. Не умеешь - научим, не хочешь - заставим.

[samlab]

samlab, т.е. ты считаешь, что нам здесь делать нефик, чтоб подстраиваться под твои хочу/не хочу

Не хочешь - не надо. Но в таком случае ЗДЕСЬ твоих постов не будет.

А ломать глаза из-за твоих непонятных принципов мне, лично, облом, и другим, наверное, тоже.

Ваше право, удаляйте тему...