Нужно полностью сделать задачу) Опции

[Lykash]

1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности ∆=10(у -4) .... 10( у -10) или пока не будет просумировано заранее заданное число членов бесконечного ряда.
2. Сравнить вычесленную суму членов бесконечного ряда с образцовым значением, полученным в виде константы или вычисленным по форуме.

Извините если я вас напрягаю) готов платить яндекс деньги.

Сообщение отредактировано: Lykash - 17.02.2012 17:45

[Lykash]

спасибо, на другом форуме( более умном, и адекватом) помогли.

вам для общего развития.

uses crt;
var x,u,e,t:real;
i:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Введите точность от 10^-4 до 10^-10 e=');
readln(e);
until (e>=e-10)and(e>=e-4);
i:=0; {нулевой индекс}
u:=1; {начальное значение итоговой суммы}
t:=1;{знчение члена ряда при i=0}
while abs(t)>=e do {пока модуль очердного члена ряда не меньше точности}
begin
i:=i+1;{следующий член}
t:=t*x/i;{домножаем на х(возводим в степень) и делим на индекс(обратный факториал)}
u:=u+t;{суммируем}
end;
writeln('U=',u:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
write('Вычисленное значение функции=',exp(x):0:10);
readln
end.

Добавлено через 2 мин.

Lykash, к вам у меня двойственное чувство. Будте осторожнее в выражениях, ведь в предыдущей теме форумчане пытались помочь. И их реакцию было нетрудно предсказать.
Попытайтесь выполнить задачу самостоятельно и увидете, как изменится отношение к вам.

Сделаю небольшую подсказку.
Каждый член суммы отличается от предыдущего в (-1)*x/i, т.е. для вычисления очередного слагаемого нужно хранить :
1) предыдущее слагаемое.
2) переменную i - последний множитель факториала в i-ом слагаемом.
Вычисление суммы будет прекращаться при достижении абсолютного значения очередного слагаемого некоторой величины. Для такого случая идеально подойдёт цикл repeat.

Пробуйте...
Если что-то непонятно - спрашивайте.

Я б решил сам, но с русским проблема( я с Украины) + препод нихера не обьясняет