Программа. REM Программа массив-строка

CLS

REM Программа массив-строка

DIM X[5], T[5]

A = 2.34: P=1

FOR I=1 TO 5

INPUT X[I]

T[I]=(X[I]^2+SIN(X[I])^2)/SQR(X[I]*A+1)

PRINT "T["I]=";T[I],"X["I"]=";X[I]

IF INT((I/2)-I/2<0 GOTO L

P=P*T[I]

L: NEXT I

PRINT "P="; P

END

Описание программы:

После очистки экрана и ввода названия программы оператором DIM X[5], T[5] резервируется память для шести элементов массива Х и шести элементов массива Т (счёт индексов с 0, при этом ячейки для X[0] и T[0] использоваться не будут, т.к. индекс I начинается с единицы).

Величине А присваивается значение 2,34 и первому значению произведения Р присваивается 1.

Оператором FOR… первому значению I присваивается 1, затем оператором INPUT X[I] с клавиатуры вводится X[1]= 0.1, для этого значения элемента рассчитывается T[1]=f (X[1], A) и распечатываются величины Т[1] и Х[1].

В строке IF INT((I/2)-I/2<0 проверяется чётность индекса I - номера элемента массива Здесь функция INT(…) отбрасывает дробную часть элемента, поэтому для I=1 получим INT(1/2) – 1/2 или 0 – 0,5 = - 0,5 < 0, т.е. условие IF выполняется, программа оператором GOTO переходит по метке L к оператору NEXT I, а в произведение P=P*T[I] нечётный элемент T[I] не попадает.

Оператор NEXT I возвращает цикл к оператору FOR…, где I присваивается следующее значение 2, затем вводится X[2]= 3.5, вычисляется T[2]=f (X[2], A) и распечатывается вместе с Х[2]. Снова выполняется проверка на чётность, теперь INT((2/2)-2/2 даёт значение 0, а это не < 0, т.е. условие не выполняется, поэтому программа переходит к следующему оператору P=P*T[I], где первое значение Р=1 умножается на чётный элемент Р[2]. Затем оператор NEXT снова возвращает вычислительный процесс на начало цикла FOR… и так далее, до I=5. Когда все пять элементов функции T[I]

будут рассчитаны, а её чётные значения перемножены в произведении Р, оператор PRINT "P="; P распечатывает его на экране и END – конец программы.