LINUX.ORG.RU

История изменений

Исправление 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