Этапы решения задачи. 1. Определим переменные, которые будем использовать в программе:

1. Определим переменные, которые будем использовать в программе:

S – сумма ряда, b – степень числителя x, a – степень очередного слагаемого в знаменателе, z –знак слагаемого.

2. Для вычисления N – числа повторений цикла for.. –используем формулу

3. Составляем блок-схему алгоритма и программу расчета, используя оператор цикла for...

PROGRAM ZADANIE2_a; Var b, S, x, b1, b2, h: real; a, i, z, n: integer; Begin Z: = 1; { знак очередного слагаемого} А: = 2; {Степень очередного слагаемого в знаменателе S: = 0; {Здесь накапливаем сумму слагаемых } x: =0.73; B: = 1.2; {Степень числителя x очередного слагаемого} B1: = B; B2: = 4.2; H: =0.2; N: =trunc((B2 -B1)/h)+1; {количество циклов } For I: = 1 То N do {Цикл по всем слагаемым} Begin S: = S+ z *(sin(exp(b* ln(x))) /exp(a*ln(2))); a: = а + 2; {Очередное значение степени знаменателя} b: = b+H; {Очередное значение степени числителя} z: = – z; {Знак слагаемого меняем} End; Writeln(‘ Сумма =’, S: 6: 4); End.

4. Составляем блок-схему алгоритма и программу расчета, используя оператор цикла while..do. Этот цикл называется циклом с предусловием, так как проверка проводится до начала очередной итерации. До первого входа в цикл переменной b уже должно быть присвоено начальное значение. Затем сравним его с конечным значением. Цикл будет выполняться, пока условие истинно. Как только условие нарушается, выполнение цикла завершается.

PROGRAM ZADANIE2_B; Var b, S, x, h: real; a, i, z, n: integer; Begin Z: = 1; { знак очередного слагаемого} А: = 2; {Степень очередного слагаемого в знаменателе S: = 0; {Здесь накапливаем сумму слагаемых } x: =0.73; B: = 1.2; {Степень числителя x очередного слагаемого} H: =0.2; while (b< = 4.2) do Begin S: = S+ z *(sin(exp(b* ln(x))) /exp(a*ln(2))); a: = а + 2; {Очередное значение степени знаменателя} b: = b+H; {Очередное значение степени числителя} z: = – z; {Знак слагаемого меняем} End; Writeln(‘ Сумма =’, S: 6: 4); End.

5. Составляем блок-схему алгоритма и программу расчета, используя оператор цикла Repeat…until.

PROGRAM ZADANIE2_С; Var b, S, x, h: real; a, i, z, n: integer; Begin Z: = 1; x: =0.73; А: = 2; S: = 0; B: = 1.2; H: =0.2; repeat S: = S+ z *(sin(exp(b* ln(x))) /exp(a*ln(2))); a: = а + 2; b: = b+H; z: = – z; until (b> 4.2); Writeln(‘ Сумма =’, S: 6: 4); End.

3. Выполним программу в среде Pascal ABC.NET (см. п.3.1.4).