ЧИСЛО 121 ПАЛИНДРОМ
ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 3434 ЧИСЛО 3434 НЕ ПАЛИНДРОМ Рис. 2.5. Результат работы PRG2_10. Задача 2.11 Найти сумму первых N членов ряда. Y = 1 + Х/2 + Х2/З + Х3/4 +..., где х - любое число. PROGRAM PRG2_11; VAR X, Y, Z:REAL; I, N: INTEGER; BEGIN {НАЙТИ СУММУ ПЕРВЫХ N ЧЛЕНОВ РЯДА Y = 1 + Х/2 + Х2/3 + Х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 + Х2/З + Х3/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/3+Х3/4+.., при | Х | < 1. Расчет продолжать до тех пор, пока приращение | y | будет больше заданной точности е, е < = | Х |.
|
