программирование матрицы в Basic

[Мария Ильина]

Пожалуйста, объясните схему решения матриц, не могу понять даже с чего начинать.
( -12 1 2 -21
11 -14 13 8
9 7 1 3
5 0 -10 2 )
1. Найти сумму S1 положительных элементов гл.диагонали
2. Сумму S2 элементов второй строки с четными индексами
3. Если S1<S2, то D=S2-S1, иначе D=S1-S2

[p51x]

1. Найти сумму S1 положительных элементов гл.диагонали

1. С1 = 0. Делаем цикл по главной диагонали: если элемент положителен, то С1 = С1 + элемент, иначе пропускаем

2. Сумму S2 элементов второй строки с четными индексами

2. С2 = 0. Делаем цикл по второй строке, если номер столбца делится на 2, С2 = С2 + элемент, иначе пропускаем

3. Если S1<S2, то D=S2-S1, иначе D=S1-S2

3. Если С1 < С2, то Д = С2 - С1, иначе Д = С1 - С2 (или просто модуль)

[Sasha_Smirnov]

Мария, начать хорошо бы с примера. А пока просто посчитаем:

-12   1   2 -21
 11 -14  13   8
  9   7   1   3
  5   0 -10   2

1. –12 и –14 отрицательные, так что сумма положительных = 1 + 2.

2. Если индексы идут с нуля (как по умолчанию в basic’е), то:
строка #2 имеет индекс 1 и сумма элементов с чётными индексами = a(1, 0) + a(1, 2) = 11 + 13;
если же задать индексацию с единицы:

Option Base 1 'в начале кода программы

то: a(2, 2) + a(2, 4) = –14 + 8 = –6.

3. Соответственно:

• индексация с 0: S1 = 3; S2 = 13; 3 < 13 → D =13 – 3 = 10;
  
• индексация с 1: S1 = 3; S2 = –6; 3 > –6 → D = 3 – (–6) = 9

Как видите, Мария, всё элементарно, но лучше бы про Option Base узнать заранее.