PROGRAM PRG2_13;

VAR X,Y. Z, Е: REAL;

I: INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ПЕРЕМЕННУЮ РЯДА X, |X|<1 X = ');

READLN(X);

WRITE('ВВЕДИТЕ ТОЧНОСТЬ ВЫЧИСЛЕНИЯ Е = ');

READLN(E);

UNTIL (ABS (X) <1) AND (E < 1) AND (E <= X);

Y:- 1; Z:= 1; I:= 2;

REPEAT

Z:= Z*X;

Y:= Y+Z/l;

I:=I+1

UNTIL ABS (Z/(l - 1)) < E;

WRITELN('ИСКОМАЯ СУММА РЯДА Y = ', Y);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим точность вычисления Е и переменную X;

- в цикле порождаем очередной член ряда и прибавляем его к сумме Y;

- выводим результат.

Переменные:

X - переменная ряда;

Z - вспомогательная переменная;

I - переменная цикла;

Y - сумма ряда;

Е - точность вычисления.

Задача 2.14 Найти сумму знакопеременного ряда Y= 1+ Х²/2! – Х⁴/3!+ Х⁶/4! –... при

| Х | <= 1. Расчет продолжать до тех пор, пока приращение | y | будет больше заданной точности е, е < = | Х |.

PROGRAM PRG2_14;

VAR X, Y, Z, E: REAL;

I: INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ПЕРЕМЕННУЮ РЯДА X, |X|<= 1 X = ');

READLN(X);

WRITE('BBEДИTE ТОЧНОСТЬ ВЫЧИСЛЕНИЯ Е =');

READLN(E);

UNTIL (ABS (X) <= 1) AND (E < 1) AND (E <= X);

Y:= 1; Z:= 1;l:= 2;

REPEAT

Z:= (Z*X*X)/I; IF I MOD 2 = 0 THEN Y:= Y+Z

ELSE Y:= Y- Z;

I:= I+1

UNTIL ABS (Z) <= E;

WRITELN('ИСКОМАЯ СУММА РЯДА Y = ', Y);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим точность вычисления Е и переменную X;

- в цикле порождаем очередной член ряда и прибавляем его

к сумме Y или вычитаем его из суммы, в зависимости от его номера;

- выводим результат.

Переменные:

X - переменная ряда;

Z - вспомогательная переменная;

I - переменная цикла;

Y - сумма ряда;

Е - точность вычисления.

Задача 2.15 Найти сумму первых N членов ряда Y = 1– 1/X + 2/Х² – 3/Х³ +... при > 1.