| Вопрос: Срочно надо, позарез! | Добавлено: 09.08.04 12:32 |
Автор вопроса:  Бывалый | ICQ: 243613085 |
|
Народ! Помогите пожалуйста решит две незатейливые задачки, училка по програмированию задала а у меня опыта маловато...
Вот они: Задача1 "Написать программу, которая методом прямого выбора сортирует по убыванию введённый с клавиатуры одномерный массив." Задача2 "Задана матрица размером n*m(n-строк, m-столбцов). Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы таким образом, чтобымаксимальный по модулю элемент матрицы, был расположен на пересечении k -й строки и k -го столбца." |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 10.08.04 06:53 |
|
1)
' В b() исходный массив For i = 0 To UBound(b) - 1 Max = i For j = i + 1 To UBound(b) If b(j) > b(Max) Then Max = j Next Swap b(i), b(Max) Next ' В b() отсортированный массив Private Sub Swap(ByRef a As Long, ByRef b As Long)  im t As Long
t = a a = b b = t End Sub 2) mi = 0: mj = 0 For i = 0 To n For j = 0 To m If Abs(a(i, j)) > Abs(a(mi, mj)) Then mi = i: mj = j Next Next For i = 0 To n Swap a(i, mj), a(i, k) Next For j = 0 To m Swap a(mi, j), a(k, j) Next |
||
|
Номер ответа: 2 Автор ответа: Бывалый ICQ: 243613085 Вопросов: 2 Ответов: 6 |
Профиль | | #2 | Добавлено: 10.08.04 17:47 |
|
Спасибо за предложенный вариант, только можно всё по порядку и последовательно от с чего начинать, вед у меня пока нет никакого массива мне с самого начала надо ...
|
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 11.08.04 05:05 |
| Проблемы возникают со вводом данных??? Может, лучше скажешь училке, что не готов? | ||
Страница: 1 |