Вычислить значение у. Подсчет вести до тех пор, пока очередной член ряда по модулю не станет меньше E. Значение E должно быть малой величиной порядка 0.001. Значение x, E задавать с клавиатуры.

При решении данного задания необходимо использовать алгоритм с условным циклом. Сама функция

Question

Информатика

Борислава

15 ноября, 01:12

Вычислить значение у. Подсчет вести до тех пор, пока очередной член ряда по модулю не станет меньше E. Значение E должно быть малой величиной порядка 0.001. Значение x, E задавать с клавиатуры.

При решении данного задания необходимо использовать алгоритм с условным циклом. Сама функция

+2

Ответы (1)

Знаете ответ на вопрос?

Каллиста · Answer 1

Var

y, x, E, Ch, F, St:real;

n:integer;

Begin

Write ('E = ') ; ReadLn (E) ;

Write ('x = ') ; ReadLn (x) ;

y:=0;

St:=1;

Ch:=1;

n:=1;

F:=1;

While Ch>=E do

Begin

y:=y+Ch;

F:=F*n;

St:=St*x;

Ch:=St/F;

n:=n+1;

End;

Write ('y = ', y)

End.

Пример:

E = 0.001

x = 13

y = 442413.391363861