Программа

REM цикл For…Next

CLS

S = 0 ' задание начального значения суммы S

FOR x = 1 TO 10 STEP .1 ' ввод параметров цикла

Y = SIN(х)^3 ' вычисление у = sin³x

S = S + Y ' прибавление текущего у к предыдущему S

NEXT x ' переход к началу цикла – следующему х

PRINT "S=", S

END

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

До начала цикла вводится начальное значение суммы S = 0. К нему будут добавляться все значения функции у = sin(х), поэтому, чтобы итоговая сумма не искажалась, оно должно быть равно нулю.

Затем оператором FOR аргументу х присваивается первое значение, равное 1, вычисляется Y = sin³x = 0,59 и сумма S = S + Y как S = 0 + 0,59, потом NEXT х передаёт управление строке FOR, где х увеличивается на приращение 0,1 и становится равным 1,1. Вычисляется значение функции при новом х = 1,1 (т.е. Y = 0,707) и прибавляется к предыдущему значению S (S = 0,59 + 0,707 = 1,297, затем NEXT x снова возвращает процесс вычисления на FOR, где х увеличивается на 0.1 и т.д. Последний раз цикл будет просчитан при х = 10, потом значение накопленной суммы S выводится на экран и - конец программы. Если бы оператор PRINT стоял внутри цикла (например, после вычисления S = S + Y, Ио на печать выводились бы все промежуточные значения суммы S.

Та же программа с оператором циклаWHILE…WENDпримет вид

CLS ' очистка экрана

х = 1 : S = 0 ' задание начальных значений х = 1и S = 0

WHILE x <= 10 ' проверка условия: пока х ещё <= х_кон = 10

Y = SIN(х)^3 ' вычисление у = sin³x

S = S + Y ' прибавление текущего у к предыдущему S

х = х + 0.1 ' увеличение х на шаг 0.1

WEND ' возврат к началу цикла - WHILE…

PRINT "S ="; S ' вывод на экран S

END

Пример 3 Вычислить с помощью оператора цикла и вывести на печать произведение положительных значений функции p = е^4x, где х изменяется от 0.1 до 0.5 с шагом 0.1

Программа с оператором FOR…NEXTпримет вид:

CLS

p = 1' присвоение 1 начальному р

FOR x = 0.1 TO 0.5 STEP .1 ' ввод параметров цикла

Y = ЕХР(4*х) ' вычисление у = e^4х

p = p*Y ' умножение текущего у на предыдущее р