Сергей Николаевский
Сергей Николаевский

Помогите с заданием, пожалуйста.



Нужно разработать алгоритм и написать программу на языке Бейсик для следующей задачи: Дан двумерный массив А из N строк и M столбцов. Найти максимальный элемент массива и поменять местами элемент, стоящий на пересечении первого столбца и первой с строки с максимальным элементом массива. Результат вывести на печать.

Ирина Тихонова
Ирина Тихонова

значит, алгоритм.
max = элемент ( 1, 1)
max_строка = 1
max_столбец = 1
цикл по строкам
цикл по столбцам
если элемент (строка, столбец) > max ТО
max = элемент (строка, столбец)
max_строка = строка
max_столбец = столбец
конец если
конец цикла по столбцам
конец цикла по строкам

элемент (max_строка, max_столбец) = элемент ( 1, 1 )
элемент ( 1, 1 ) = max
вывести матрицу

ОБ
Олег Балакин

Ну вот примерная реализация алгоритма Ув. Зло

Public max, maxrow, maxcol, i, j As Integer
Public a([0..100], [0..100]) As Integer

Private Sub CommandButton1_Click()
max = a(1, 1)
maxrow = 1
maxcol = 1
For i = 1 To 100 'цикл по строкам
For j = 1 To 100 'цикл по столбцам
If a(i, j) > max Then 'если элемент (строка, столбец) > max ТО
max = a(i, j)
maxrow = i
maxcol = j
End If 'конец если
Next j 'конец цикла по столбцам
Next i 'конец цикла по строкам

a(maxrow, maxcol) = a(1, 1)
a(1, 1) = max
'вывести матрицу
End Sub

P.S.: заполнение матрицы вы уж, реализуйте сами. Для вывода матрицы на печать можно воспользоваться методом формы Print и компонентом PrintForm.

С уважением.

Похожие вопросы
Паскаль! Помогите с заданием по информатике, пожалуйста))
Помогите пожалуйста с заданием по программированию :(
Помогите пожалуйста с заданием по программированию на паскале
Помогите, пожалуйста с заданиями!)
Помогите пожалуйста разобраться с заданиями VBA
Помогите с заданием пожалуйста (Visual Basic)
Пожалуйста помогите ответить на тестовое задание
помогите пожалуйста сделать задание
помогите пожалуйста по ЭВМу! вот задание ))
Помогите пожалуйста с заданием qbasic