блок схема

@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, в Важном есть тема Массивы. Обьявление массивов. Сортировка массивов

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

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