История изменений
Исправление bormant, (текущая версия) :
Заглавной буквой, а в коде применяется только строчной
Имена регистронезависимы. Более, того, стоит единожды в редакторе QBasic поправить имя переменной, она будет изменена во всем тексте.
Могу предположить, что t=X присваивает каждому элементу массива
Не надо ничего предполагать, t — обычная переменная, t() — массив, совпадение имен переменных и массивов не возбраняется.
QBasic-у номера строк не нужны,
X = X1 + H
...
t = X
FOR I = 1 TO I1
FOR J = 1 TO N(I)
IF t >= t(I, J) THEN
LX = TI(I, J)
UX = TI(I, J + 1)
LT = t(I, J)
UT = t(I, J + 1)
END IF
NEXT J
HR(I) = (UT - LT) / (UX - LX)
NEXT I
Исходная версия bormant, :
Заглавной буквой, а в коде применяется только строчной
Имена регистронезависимы. Более, того, стоит единожды в редакторе QBasic поправить имя переменной, она будет изменена во всем тексте.
Могу предположить, что t=X присваивает каждому элементу массива
Не надо ничего предполагать, t — обычная переменная, t() — массив, совпадение имен переменных и массивов не возбраняется.
QBasic-у номера строк не нужны,
X = X1 + H
...
t = X
FOR I = 1 TO I1
FOR J = 1 TO N(I)
IF t >= t(I, J) THEN
LX = TI(I, J)
UX = TI(I, J + 1)
LT = t(I, J)
UT = t(I, J + 1)
END IF
NEXT
HR(I) = (UT - LT) / (UX - LX)
NEXT