-22

Ребят помогите написать код с матрицей, я только учуть, но у меня не получаться, у меня пацани здают уже 6 задачи, а я 2 не могу зделать

7.Ввести матрицю А(6,6). Знайти номер стовпця, всі елементи якого є монотонно спадаючою послідовністю.

Дубликаты не найдены

+3
Program imSmartCock; Begin Write(“Ya oherel. Stav’te dva”); Readln; End.
+2
Ввести матрицу А(6,6). Найти номер столбца, все элементы которого являются монотонно совпадающей последовательностью.
Сделал то, что должен был сделать автор.
раскрыть ветку 2
+1

Надеюсь в раю для тебя отдельное место уже приготовили.

0

Дак это чё, чувак массив перебрать не может? гыыы.

Не помогайте ему, нахуй таких специалистов.

+1

На каком языке то хоть написать надо? У меня дома, кроме MS Office и нет ничего, потому придётся на VBA :) Принцип будет понятен, думаю, а на нужный вам язык сами переведёте.

Sub MyTask()

Dim d(5, 5) As Integer

Dim i As Integer

Dim t As Integer


Randomize

For i = 0 To 5

     For t = 0 To 5

          d(i, t) = Int(100 * Rnd)

     Next t

Next i


Dim direction As Integer

Dim flag As Boolean

For i = 0 To 5

     direction = 0

     flag = True

     For t = 1 To 5

         Select Case direction 'так нагляднее

             Case 0

                   If d(i, t) > d(i, t - 1) Then

                        direction = 1

                  ElseIf d(i, t) < d(i, t - 1) Then

                       direction = -1

                  End If

           Case 1

                 If d(i, t) < d(i, t - 1) Then

                     flag = False

                    Exit For

                 End If

         Case -1

               If d(i, t) > d(i, t - 1) Then

                    flag = False

                    Exit For

              End If

          End Select

    Next t

    If flag = True Then

        MsgBox "Столбец " & CStr(i + 1) & " является монотонной последовательностью"

   End If

Next i

End Sub


Кстати... а что если на наш язык "спадаючою" переводится как убывающая? Тогда всё гораздо проще ещё будет. У меня тут ищется хоть возрастающая, хоть убывающая.

0

Может ещё на лекции за тебя походить?

0

1с?

0

Тикай с села......

0

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

0

А ты смешной :)

0
Чиво?????
раскрыть ветку 4
+1

А тi смешнiй :)

раскрыть ветку 3
+2
Смiшний*
раскрыть ветку 2
Похожие посты
Похожие посты не найдены. Возможно, вас заинтересуют другие посты по тегам: