Сумма элементов массива, QBasic Опции

[Гелла]

У меня задача: дан чиловой массив X(4,3), нужно найти общую сумму первого и третьего столбцов.
Моя программа почему то не считает эти суммы, она только вводит маччив и заканчивает..ароде бы все правильно сделано.. где здесь может быть ошибка?

Код

CLS
DIM x(1 TO 4, 1 TO 3), i, j AS INTEGER, s1, s2, s3 AS SINGLE
FOR i = 1 TO 4
FOR j = 1 TO 3
PRINT "vv znach elta", i, ",", j, ")"
INPUT x(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
FOR j = 1 TO 3
PRINT x(i, j);
NEXT j
NEXT i
s1 = 0
FOR j = 1 TO 3
s1 = s1 + x(1, j)
NEXT j

s2 = 0
FOR j = 1 TO 3
s2 = s2 + x(3, j)
NEXT j
s3 = s1 + s2
PRINT 'obsch summa eltov 1go i 3go stolbtsa",s3
END

[xds]

В последнем PRINT вместо двойной кавычки стоит одинарная - интерпретатор думает, что это PRINT без параметров (переход на новую строку). Одинарная кавычка в QBasic - начало комментария.

В PRINT для разделения параметров лучше вместо запятой использовать точку с запятой, т. к. запятая вставляет символ TAB. При выводе чисел к ним по краям всегда дописываются пробелы. Побороться с этим можно так: LTRIM$(STR$(n))

Сообщение отредактировано: xds - 11.05.2007 12:19