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

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента

27.03.2014, 00:16. Просмотров 578. Ответов 2
Метки нет (Все метки)

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента. Размерность матрицы произвольная.
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
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Введите количетсво строк матрицы")
n = InputBox("Введите количество столбцов матрицы")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "Исходный массив:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If i = j Then
max = a(i, i)
End If
   Next j
Next i
Print Spc(4); "Результат:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub
Подскажите, что не так?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2014, 00:16
Ответы с готовыми решениями:

Заменить значения элементов, расположенных на побочной диагонали, на максимальное значение матрицы
Разработать информационную технологию позволяющую заменить значени, элементов расположенных на...

Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали
Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали,...

Заменить все элементы главной диагонали заданной матрицы значением первого элемента
Дан двумерный статический массив действительных чисел размером 6х5. Заменить все...

В заданном массиве заменить значения отрицательных элементов значением максимального элемента
Дан вещественный массив х(12).В заданном массиве заменить значения отрицательных элементов...

Найти произведение положительных элементов главной диагонали квадратной матрицы, заменить полученные значением
Найти произведение положительных элементов главной диагонали квадратной матрицы, заменить...

2
Казанский
14905 / 6308 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
27.03.2014, 00:37 2
Цитата Сообщение от Bar123 Посмотреть сообщение
значением её максимального элемента
"Её" - это матрицы или главной диагонали?
0
Bar123
7 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 20
27.03.2014, 17:54  [ТС] 3
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
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Ââåäèòå êîëè÷åòñâî ñòðîê Г¬Г*òðèöû")
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ Г¬Г*òðèöû")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If a(i, j) > max Then
   max = a(i, j)
End If
   Next j
Next i
For i = 1 To m
For j = 1 To n
If i = j Then
a(i, i) = max
End If
Next
Next
Print Spc(4); "ÐåçóëüòГ*ГІ:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2014, 17:54

Сумму элементов главной диагонали матрицы увеличить на значение максимального элемента
Найти суму элементов главной диагонали, увеличить на значение максимального элемента в массиве...

В каждой строке матрицы элемент главной диагонали заменить суммой ранее расположенных элементов
Ребята выручайте, до пятницы нужно сделать это задание(( я понимаю, что вы мне не обязаны( но очень...

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального...


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

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

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