блок схема

@WWWTED · Регистрация: 28.11.2009

Студворк — интернет-сервис помощи студентам

дорый день, если кто разбирается в б\с помогите (В произвольно заданном двумерном массиве размера 4Х5 определить три элемента с наибольшими значениями.)
"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub max_Click()
  Dim i As Long
  Dim j As Long
  Dim ip As Long
  Dim jp As Long
  Dim min As Long
  Dim imin As Long
  Dim jmin As Long
  Dim js As Long
  Const N = 3
  Const M = 4
  Dim Mas(0 To N, 0 To M) As Long
  Cls
  For i = 0 To N
    For j = 0 To M
      Mas(i, j) = Int(Rnd * 100)
      Print Mas(i, j);
    Next j
    Print
  Next i
  Print
  For ip = 0 To N
    For jp = 0 To M
      min = Mas(ip, jp)
      imin = ip: jmin = jp
      For i = ip To N
        If (i = ip) Then js = jp + 1 Else js = 0
        For j = js To M
          If Mas(i, j) < min Then
            min = Mas(i, j)
            imin = i: jmin = j
          End If
        Next j
      Next i
      Mas(imin, jmin) = Mas(ip, jp)
      Mas(ip, jp) = min
    Next jp
  Next ip
 
  For i = 0 To N
    For j = 0 To M
      Print Mas(i, j);
    Next j
    Text1.Text = Mas(i, 3)
    Text2.Text = Mas(i, 2)
     Text3.Text = min
  Next i
End Sub

@Toxa33rus · 15.12.2009, 23:42

Visual Basic
1
2
3
4
5
6
7
8
9
dim Mas2()
redim Mas2(1 to (M+1)*(N+1))
For i=0 to N
For j=0 to M
  Mas2(j*M + i +1) = Mas(i,j)
next j
Next i
Sort Mas2
msgbox Mas2(1) & "; " & Mas2(2) & "; " & Mas2(3)

Процедуру сортировки ищем в соседних темах поиском.

@BasicMan · 16.12.2009, 00:44

Toxa33rus, в Важном есть тема Массивы. Обьявление массивов. Сортировка массивов

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

@BasicMan 19317 / 2624 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	16.12.2009, 00:44
	Toxa33rus, в Важном есть тема Массивы. Обьявление массивов. Сортировка массивов 0

Опции темы