Программирование на smart BASIC. Урок 5

[MARK99]

Коротко покажите на маленьком примере, как заполнять и читать двухмерный массив.
Пожалуйста.

[Mr. Kibernetik]

Коротко покажите на маленьком примере, как заполнять и читать двухмерный массив.
Пожалуйста.

Печать таблицы умножения после ее расчета в двухмерном массиве:

Code: Select all

FOR a=1 TO 9
  FOR b=1 TO 9
    m(a,b)=a*b
  NEXT b
NEXT a

FOR a=1 TO 9
  FOR b=1 TO 9
    PRINT "##":m(a,b);
  NEXT b
  PRINT
NEXT a

[MARK99]

Спасибо

[MARK99]

Коротко покажите на маленьком примере, как заполнять и читать двухмерный массив.
Пожалуйста.

Печать таблицы умножения после ее расчета в двухмерном массиве:

Code: Select all

FOR a=1 TO 9
  FOR b=1 TO 9
    m(a,b)=a*b
  NEXT b
NEXT a

FOR a=1 TO 9
  FOR b=1 TO 9
    PRINT "##":m(a,b);
  NEXT b
  PRINT
NEXT a

А если использовать команду DIM , то она будет в начале DIM A(9,9)

[Mr. Kibernetik]

А если использовать команду DIM , то она будет в начале DIM A(9,9)

Нет, будет DIM A(10,10). По умолчанию индексы массива начинаются с 0.

[MARK99]

А если использовать команду DIM , то она будет в начале DIM A(9,9)

Нет, будет DIM A(10,10). По умолчанию индексы массива начинаются с 0.

Понял, а как тогда заполнит массив конкретными числами

[Фант]

Насчет начальных индексов массива, считаю важный момент. По умолчанию они равны нулю. Лично я всегда использую начальный индекс единичку для этого в начале каждой программы я прописываю команду OPTION BASE 1-лично мне так удобнее делать расчеты.

[Mr. Kibernetik]

Понял

Просто в вышеуказанном примере я не стал использовать нулевые элементы массива и использовал только с 1 по 9, для наглядности примера.
Конечно здесь можно заказать и массив 9x9. И даже использовать те же самые номера индексов с 1 по 9. Тогда программа бы выглядела вот так:

Code: Select all

DIM m(9,9)
OPTION BASE 1

FOR a=1 TO 9
  FOR b=1 TO 9
    m(a,b)=a*b
  NEXT b
NEXT a

FOR a=1 TO 9
  FOR b=1 TO 9
    PRINT "##":m(a,b);
  NEXT b
  PRINT
NEXT a

[MARK99]

Понял

Просто в вышеуказанном примере я не стал использовать нулевые элементы массива и использовал только с 1 по 9, для наглядности примера.
Конечно здесь можно заказать и массив 9x9. И даже использовать те же самые номера индексов с 1 по 9. Тогда программа бы выглядела вот так:

Code: Select all

DIM m(9,9)
OPTION BASE 1

FOR a=1 TO 9
  FOR b=1 TO 9
    m(a,b)=a*b
  NEXT b
NEXT a

FOR a=1 TO 9
  FOR b=1 TO 9
    PRINT "##":m(a,b);
  NEXT b
  PRINT
NEXT a

Спасибо, разобрался)

[MARK99]

А как в массиве записать вот , что бы a= 1 ; 12 ; 3/10 ....
И при этом с переменной b было бы что-то похожее