Задачка на массивы QBasic

[blok20]

Извините что в начале не указал, это надо на QBasic написать.
Такая задача:
Расформируйте массив А(n, n) в одномерный массив B(n) по столбцам, и вывести последнее число в массиве B(n).
Пример:
123
456
789


1
4
7
2
5
8
3
6
9

Последнее число 9


Буду очень благодарен.

[MAKEDON]

Ну в принципе, если вы неплохо разбираетесь с синтаксисе языка бейсик, то вполне в ваших силах изменить мой СИшный код. Ну или хотя бы можно проглядеть там алгоритм работы.

[blok20]

К сожалению я не понимаю...

[MAKEDON]

Обидно. Я конечно могу написать словами алгоритм работы, но вряд ли это вам поможет.

[blok20]

Ну у меня уже есть массив A(n, n) и B(n) я сформировал, только мне говорят что я что то не доработал, и последнее число не выводиться

Я хочу свою ошибку понять)

[MAKEDON]

Выложи код. Посмотрим.

/*Используй тег CODE*/

хорошо, 5 мин

5, так 5

[blok20]

Cls
Input n
Dim A(n, n)
For i=1 to n
For j=1 to n
Input A(i, j)
Next j
Next i
? “”
For i=1 to n
For j=1 to n
? A(i,j);
Next j
? ””
Next i
Dim B(n*n)
For i=1 to n
For j=1 to n
B(n)=A(i, j)
? B(n)
Next i
Next j
For q=1 to n*n
? B(q)
Next q

[Sazary]

Вот тут:

For i=1 to n
For j=1 to n
B(n)=A(i, j)
? B(n)
Next i
Next j

Вам нужно иметь еще одну переменную, указывающую индекс в массиве B.

Вот, в общем:

CLS
INPUT n
DIM A(n, n)
FOR i = 1 TO n
 FOR j = 1 TO n
  INPUT A(i, j)
 NEXT j
NEXT i

PRINT ""

FOR i = 1 TO n
 FOR j = 1 TO n
  PRINT A(i, j);
 NEXT j
 PRINT ""
NEXT i

DIM B(n * n)
t = 1

FOR j = 1 TO n
 FOR i = 1 TO n
 B(t) = A(i, j)
 PRINT B(t)
 t = t + 1
 NEXT i
NEXT j

PRINT "Poslednee chislo: "; B(n * n)

[blok20]

Спасибо большое