В каждом столбце матрицы найти минимальный элемент и поменять его с первым элементом столбца

@Vovikus · Регистрация: 08.07.2014

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

Прошу вашей помощи товарищи с приведенными ниже задачами:
1)Задана матрица Аm*n. В каждом столбце найти минимальный элемент и поменять его с первым элементом столбца.Необходимо создать максрос.
2)В заданном массиве a1, a2, … , an увеличить все элементы с нечетными индексами на величину минимального элемента.Необходимо создать пользовательскую функцию.
3)Заданы стороны треугольника a, b, c. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника. Указание. Медиана треугольника, проведенная к стороне а, вычисляется по формуле m(a)=0.5*sqr(2b^2+2c^2-a^2).Необходимо создать макрос.

Прошу помощи,кто чем может,хотя бы основу.

@otakuneka · 25.06.2015, 19:43

Не совсем поняла второе задание: имеется ввиду только первая строка? И какой минимальный элемент? Или же во всей матрице все элементы, имеющие хотя бы одну из координат нечётную, увеличиваются на минимальный элемент всей матрицы? Поясните, тогда сразу все задачи выложу

Добавлено через 12 минут
Всё, поняла, эта задача не имеет отношения к предыдущей ^^

Добавлено через 1 час 44 минуты

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Sub task1()
    Dim arr()
    Dim am As Integer
    Dim n As Integer
    am = InputBox("Input Am")
    n = InputBox("Input n")
    ReDim arr(1 To am, 1 To n)
    Randomize
    For i = 1 To am
        For j = 1 To n
            arr(i, j) = CInt(Int((100 * Rnd()) + 1))
        Next j
    Next i
    'Print
    For i = 1 To am
        For j = 1 To n
            Cells(i, j) = arr(i, j)
        Next j
    Next i
    For j = 1 To n
        i = 1
        min_col = arr(i, j)
        min_i = 1
        For i = 2 To am
            If min_col > arr(i, j) Then
                min_col = arr(i, j)
                min_i = i
            End If
        Next i
        temp = arr(1, j)
        arr(1, j) = min_col
        arr(min_i, j) = temp
    Next j
    'Check
    For i = 1 To am
        For j = 1 To n
            Cells(i + am + 1, j) = arr(i, j)
        Next j
    Next i
End Sub
 
Sub task2()
    Dim arr()
    n = InputBox("Input n")
    ReDim arr(1 To n)
    Randomize
    For i = 1 To n
        
        arr(i) = CInt(Int((100 * Rnd()) + 1))
        If i = 1 Then
            min_arr = arr(i)
        Else
            If min_arr > arr(i) Then
                min_arr = arr(i)
            End If
        End If
    Next i
    For i = 1 To n
        arr(i) = arr(i) + min_arr
    Next i
    'or
    For i = 1 To n
        arr(i) = CInt(Int((100 * Rnd()) + 1))
        Cells(1, i) = arr(i)
    Next i
    For i = 1 To n
        If i = 1 Then
            min_arr = arr(i)
        Else
            If min_arr > arr(i) Then
                min_arr = arr(i)
            End If
        End If
    Next i
    For i = 1 To n
        arr(i) = arr(i) + min_arr
    Next i
    For i = 1 To n
        Cells(2, i) = arr(i)
    Next i
    
End Sub
 
Sub task3()
    a = InputBox("Input a")
    b = InputBox("Input b")
    c = InputBox("Input c")
    
    
    For i = 1 To 2
        a1 = 0.5 * (2 * b ^ 2 + 2 * c ^ 2 - a ^ 2) ^ (1 / 2)
        b1 = 0.5 * (2 * a ^ 2 + 2 * c ^ 2 - b ^ 2) ^ (1 / 2)
        c1 = 0.5 * (2 * b ^ 2 + 2 * a ^ 2 - c ^ 2) ^ (1 / 2)
        a = a1
        b = b1
        c = c1
    Next i
    MsgBox "New triangle: " & vbNewLine & "a = " & a1 & vbNewLine & "b = " & b1 & vbNewLine & "c = " & c1
    
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Vovikus 0 / 0 / 1 Регистрация: 08.07.2014 Сообщений: 30

	В каждом столбце матрицы найти минимальный элемент и поменять его с первым элементом столбца 25.06.2015, 11:37. Показов 1917. Ответов 1 Метки нет (Все метки) Прошу вашей помощи товарищи с приведенными ниже задачами: 1)Задана матрица Аmn. В каждом столбце найти минимальный элемент и поменять его с первым элементом столбца.Необходимо создать максрос. 2)В заданном массиве a1, a2, … , an увеличить все элементы с нечетными индексами на величину минимального элемента.Необходимо создать пользовательскую функцию. 3)Заданы стороны треугольника a, b, c. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника. Указание. Медиана треугольника, проведенная к стороне а, вычисляется по формуле m(a)=0.5sqr(2b^2+2c^2-a^2).Необходимо создать макрос. Прошу помощи,кто чем может,хотя бы основу. 0

В каждом столбце матрицы найти минимальный элемент и поменять его с первым элементом столбца

Решение