Массивы Help!

[Dmitry_K]

Нужно написать программу на Бэйсике, которая делает следующее:

1. Пользователем задается размер двумерного массива - строк, столбцов.
2. Пользователем забивается этот массив.
3. Этот массив транспонируется.
4. Находится наименьший элемент массива. Выводится на экран.

Все.

Можно на обычном Бэйсике, никакая экранная графика не нужна, все в текстовом режиме. Первый и второй пункт - предполагаю будет использоваться команда DIM....
Помогите пожалуйста, срочно надо....

E-mail: n620@nsk.ru

[Firestorm]

...что значит 3й пункт?

[Александр Андреев]

Транспонировать массив - значит поменять местами все его элементы, симметричные относительно главной диагонали.
Т.е.: arr[1,2] меняется значениями с arr[2,1];
В общем случае arr[i,j] меняется значениями с arr[j,i] когда i<>j, т.е. элемент не лежит на главной диагонали.

По поводу программы - все довольно просто, вот только писать мне ее в лом

[GoGosha]

Мне не в лом!

[Dmitry_K]

Мне не в лом!

Спасибо большое! Только вот не распаковывается у меня архив этот. Пишет "Неизвестный метод". WinRAR версии 2.60.

e-mail: n620@nsk.ru

[MEMBER]

3 скачай.

[alibek]

(wrong)

[alibek]

Александр Андреев, можно сказать проще -- повернуть на 90 градусов

Я бы советовал вообще не изменять массив. Просто, если ты его загружаешь как

Код: Выделить всё

For i = 1 to 3
  For j = 1 to 4
    arr(i,j) = ...
  Next j
Next i


а используешь так

Код: Выделить всё

For j = 1 to 3
  For i = 1 to 4
    arr(j,i) = ...
  Next j
Next i


Т.е. просто "переварачиваешь" индексы, не изменяя массив.