25 FreeBasic - Задачи. Двумерные массивы

6 лет назад

sergiy Креветки

в программирование

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

Массив будет размером 11х11 элементов - 10х10 и строка и столбец для подписей.

Здесь как раз удобно начать нумерацию индексов элементов массива с нуля(если ещё не привыкли)

dim as integer a(0 to 10, 0 to 10)
ещё для индексов двумерного массива нам понадобится две переменные.

dim as integer i,j

Осталось заполнить массив первые столбец и строку(с индесом ноль) заполняя перемножать не будем, остальные элементы формируются умножением строки на столбец.

for i=0 to 10
    for j=0 to 10
        if i=0 then a(0,j)=j else if j=0 then a(i,0)=i else a(i,j)=i*j
    next j
next i

осталось оформить вывод, если стобец или строка первые(индекс ноль) ставим цвет голубой, если диагональ (значения столбца и строки равны) - ставим цвет красный. А перед всеми этими условиями установим цвет для всех остальных элементов - тёмно серый.

for i=0 to 10
    for j=0 to 10
        color 7
        if i=0 or j=0 then color 11 else if i=j then color 12
        locate j+1, (i+1)*3
        if a(i,j)>0 then print (i,j) 
    next j
next i

Но ведь числа принято выравнивать по правому краю, а не по левому...

Для этого у оператора print есть специальное средство - print using "формат"; значения(переменные)

Если знакомы с Excel это немного похоже. Для задания формата чисел используется "#". Нам нужно выводить числа в три знакоместа - "###"

print using "###";a(i,j)

Окончательный вид программы:


dim as integer a(0 to 10, 0 to 10)

dim as integer i,j

for i=0 to 10
    for j=0 to 10
        if i=0 then a(0,j)=j else if j=0 then a(i,0)=i else a(i,j)=i*j
    next j
next i

for i=0 to 10
    for j=0 to 10
        color 7
        if i=0 or j=0 then color 11 else if i=j then color 12
        locate j+1, (i+1)*3
        if a(i,j)>0 then print using "###";a(i,j) 
    next j
next i

sleep