С Блок корректировки шага

N=(XK-XN)/DX+1определяем количество вычислений на отрезке a ÷ b

DX=(XK-XN)/(N-1)уточняем значение шага

C Переменной цикла присваиваем начальное значение

X=XN

C Вычисляем значение функции

11 F=SIN(X*X)–EXP(X)*COS(X)**2

У показателя степени 2 точку ставить нельзя, т.к. нельзя возвести отрицательное число в вещественную степень.

С Выводим результат вычисления на экран

WRITE(6,*)’При Х=’,X,’ значение функции равно’,FВыводим на экран значение аргумента Х и соответствующее ему значение функции F.

C Задаём приращение аргумента

X=X+DX

С Проверяем условие повторения цикла

IF(X.LE.XK) GO TO 11

PAUSE

STOP

END

Для организации цикла с помощью оператора IF мы сделали:

1). Х присвоили XN:

X=XN

2). Сделали вычисление значения F в области цикла:

F=SIN(X*X)–EXP(X)*COS(X)**2

3). Увеличили значение аргумента на величину шага цикла:

X=X+DX

4). С помощью IF логического проверили условие повторения цикла:

IF(X.LE.XK) GO TO 11

При вычислении значений этой функции, например, при Х, изменяющемся от 1 до 10 с шагом 2, текущее значение Х будет равно 1,3,5,7,9. Т.е. не будет получено последнее значение функции на заданном отрезке. Поэтому в программе и применяется блок корректировки шага. Количество вычислений на отрезке будет N=(10-1)/2+1=5 (целое число). Новое, уточненное значение DX будет равно (10-1)/(5-1)=2.25