Кто нибудь окажите помощь, Qbasic ругается на массивы

[Sazary]

Сообщение от бедный_студент

наоборот i - это строки

Я говорил об этом куске:

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i

Тут i идет по столбцам.

Сообщение от Sasha_Smirnov

Да на написание такой программы нужен целый взвод бедных студентов! И толковый командир.

[бедный_студент]

Извините, не ожидал столь оперативной реакции. А всё стереть — жалко.

о чемречь ?

Да на написание такой программы нужен целый взвод бедных студентов! И толковый командир.

а вы попробуйте с моё посидеть с этой дурацкой задачкой весь вечер с семи часов...мозги набекрень пойдут, причем самое неприятное - задачкапростенькая а сколько головной боли, даже мистикой попахивает..
а мне еще отчет по ней писать (о майн год 8-. 9-\ >.<)

[бедный_студент]

еще один нюанс, я забыл как сортировать массив...пузырьком.
for i=1 to (?)
for j=1 to (?)
дальше не помню
next j next i


???

[бедный_студент]

п.с. оффтоп:
Конечными данными являются выводимые результаты вычислений сумм модулей чисел по столбцам и вывод отсортированного массива

-я все грамотно написал ?

[Sasha_Smirnov]

Речь о том, что я тоже запутался! А поскольку на тот мой пост (когда я ещё не осознал — что запутался), уже ответили, то вот и жалко его стирать, а то вообще бессмыслица останется (тем, кто сюда залезет в надежде «подкачаться» по Qbasic).

Такую же программку (занятия были раз в неделю на БЭСМ) недели 4 мучил! так что «я вас прекрасно понимаю»:-)

Конечными данными являются выводимые результаты вычислений сумм модулей чисел по столбцам и вывод отсортированного массива

Всё грамотно, но в конце точка бы не помешала! Да и слов много до неприличия

[бедный_студент]

АААА!!!!!, я рудаю...у меня уже веко дергается... 8:::::::-(
напишите мне пожалуйста сортировку да я спать пойду, хрен с ним с этим отчетом... я уже такой бред в коде пишу... мозг уже давно оффлайн

[Goodwin98]

Сорри если не правильно оформил - не писал на кубасике раньше.

for i=1 to m
for j=1 to m-i
if b(j) >= b(j+1) then tmp = b(j) : b(j) = b(j+1) : b(j+1) = tmp
next j
next i

Исправил.
Насчет swap не знаю.
Как-то так b(j) swap b(j+1) ?

[бедный_студент]

что то много всего 8-\, да и не правильно
вот это : b(n)=b(n+1) : что означает ?
кстати там есть swap - меняет переменные местами

[Goodwin98]

Ну как там? Работает/неработает ?

[бедный_студент]

да, работает только вот надо местами поменять чтоб на 1 месте максимальный элемент был