Регистрация
Войти
Стать экспертом Правила
Информатика

Вычислить значение у. Подсчет вести до тех пор, пока очередной член ряда по модулю не станет меньше E. ЗначениеE должно быть малой величиной порядка 0.001. Значение x, E задавать с клавиатуры.При решении данного задания необходимо использовать алгоритм с условнымциклом.Сама функция y=1+x/1!+x^2/2!+...

ОТВЕТЫ
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
100
Нужен срочно ответ?
1 Зарегистрируйся
2 Пополни баланс баллов
3 Назначь баллы за ответ
Чем больше баллов, тем выше веротяность скорого ответа
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам