Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Tock
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 6
1

Дана матрица А(5´5). Получить вектор

19.05.2017, 15:14. Просмотров 478. Ответов 5
Метки нет (Все метки)

Дана матрица А(5´5). Получить вектор В={b1,b2,b3,b4,b5} такой, что bi равно среднему арифметическому i-й строки матрицы А. Нахождение максимального элемента строки матрицы оформить в виде подпрограммы.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2017, 15:14
Ответы с готовыми решениями:

Дана матрица С с элементами: C ij, i=1,2,3,.,5 j=1,2,3,.,5
Напечатать все C ij, для которых 2<C ij<3

Вложенные циклы в матричных задачах.Дана действительная матрица размера 18 x n. Найти значение наибольшего по
Помогите пожалуйста с задачей .Дана действительная матрица размера 18 x n....

Дана матрица А(n,m). Получить векторный столбец, элементы которого являются наибольшими по модулю элементов строк исходной матрицы.
1.Дана матрица А(n,m). Получить векторный столбец, элементы которого являются...

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a ´ b и c ´ d
Вот собственно задача: -Можно ли из круглой заготовки радиуса r вырезать две...

Дана матрица 5 на 4.
Найти количесво всех элементов, которые находятся в диапазоне от a до b. Найти...

5
hamin
312 / 269 / 180
Регистрация: 21.11.2012
Сообщений: 865
19.05.2017, 18:11 2
Tock,

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
Sub test()
    
    Dim i As Integer
    Dim j As Integer
    Dim A() As Variant
    Dim B() As Variant
    
    ReDim A(1 To 5, 1 To 5)
    ReDim B(1 To 5)
    
    For i = 1 To 5
        For j = 1 To 5
            A(i, j) = Int((10 - 1 + 1) * Rnd + 1)
        Next j
    Next i
    
    For i = 1 To UBound(A)
        B(i) = GetAvg(A, i)
    Next i
    
    Range(Range("A1"), Range("A1").Offset(4, 4)) = A
    Range(Range("G1"), Range("G1").Offset(4, 0)) = WorksheetFunction.Transpose(B)
    
End Sub
 
Function GetAvg(arr As Variant, index As Integer)
        
    Dim sum As Variant
    
    For i = 1 To UBound(arr, 2)
        sum = sum + arr(index, i)
    Next i
    
    GetAvg = (sum / UBound(arr, 2))
End Function
1
Tock
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 6
19.05.2017, 19:24  [ТС] 3
А возможно ее написать в Turbo Basic?
0
Tock
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 6
19.05.2017, 19:32  [ТС] 4
Дана матрица А(5´5). Получить вектор В={b1,b2,b3,b4,b5} такой, что bi равно среднему арифметическому i-й строки матрицы А. Нахождение максимального элемента строки матрицы оформить в виде подпрограммы.

Добавлено через 4 часа 18 минут
Можно в Turbo Basic ее написать?
0
Alex77755
10819 / 3377 / 569
Регистрация: 13.02.2009
Сообщений: 9,940
20.05.2017, 09:28 5
Можно в Turbo Basic ее написать?
Можно! Пиши!
А вообще-то лучше почитай методичку или спроси у препода на каком ЯП нужно выполнять задание!
0
Tock
0 / 0 / 0
Регистрация: 10.03.2017
Сообщений: 6
21.05.2017, 10:17  [ТС] 6
Дана матрица А(5´5). Получить вектор В={b1,b2,b3,b4,b5} такой, что bi равно среднему арифметическому i-й строки матрицы А. Нахождение максимального элемента строки матрицы оформить в виде подпрограммы.
0
21.05.2017, 10:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2017, 10:17

Изменить код, чтобы вектор стоял как матрица
Как поменять, чего добавить, чтобы вектор стоял, как матрица, по виду, и не...

Дана квадратная матрица
Консольное приложение Напишите,пожалуйста, программу . Дана квадратная...

Дана целочисленная прямоугольная матрица
Дана целочисленная прямоугольная матрица найти 1) количество столбцов что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru