ЧИСЛО 121 ПАЛИНДРОМ

ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 3434

ЧИСЛО 3434 НЕ ПАЛИНДРОМ

Рис. 2.5. Результат работы PRG2_10.

Задача 2.11 Найти сумму первых N членов ряда. Y = 1 + Х/2 + Х²/З + Х³/4 +..., где х - любое число.

PROGRAM PRG2_11;

VAR X, Y, Z:REAL; I, N: INTEGER;

BEGIN

{НАЙТИ СУММУ ПЕРВЫХ N ЧЛЕНОВ РЯДА

Y = 1 + Х/2 + Х²/3 + Х³/4 +…}

WRITE('BBEДИTE ЗНАЧЕНИЕ ПЕРЕМЕННОЙ X =');

READLN (X);

WRITE('BBEДИTE КОЛИЧЕСТВО ЧЛЕНОВ РЯДА N =');

READLN (N);

Y:= 1;Z:= 1;

FOR I:= 1 ТО N-1 DO

BEGIN

Z:= Z*X;

Y ':= Y+Z/(l + 1)

END;

WRITELN('Y =', Y)

END.

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

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

- вводим количество членов ряда N и переменную X;

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

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

Переменные:

N - количество членов ряда;

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

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

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

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

Задача 2.12 Найти сумму первых N членов ряда Y = 1 + Х/2 + Х²/З + Х³/4 +..., при ú Х ú < 1.

PROGRAM PRG2_12;

VAR X, Y, Z: REAL;

N, I: INTEGER;

BEGIN

REPEAT

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

READLN(X);

WRITE('BBEДИTE ЧИСЛО ЧЛЕНОВ РЯДА N =');

READLN(N);

UNTIL (ABS (X) <1) AND (N > 0);

Y:= 1; Z:= 1;

FOR I:= 2 TO N DO

BEGIN

Z:= Z*X;

Y:= Y + Z/l

END;

WRITELN('CYMMA ПЕРВЫХ N ЧЛЕНОВ РЯДА Y =', Y);

END.

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

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

- вводим количество членов ряда N и переменную X;

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

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

Переменные:

N - количество членов ряда;

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

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

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

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

Задача 2.13 Найти сумму ряда Y=1+Х/2+Х³/3+Х³/4+.., при | Х | < 1.

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