wmrussian1, как-то так:

результат:

simply_sash,

Спасибо огромное
Очень благодарен за помощь

simply_sash,

Сегодня проверил, он выдаёт ошибку, подскажите почему?)

Потому что где то есть ошибка) Ваш КЕП

Сообщение отредактировал kruzzo - 9.11.2012, 14:40

Либо деление на ноль, либо очень большие значения и плавающая точка выходит за пределы памяти. Нужно смотреть полный лист кода, вместе с данными которые вы указываете - при которых появляется ошибка.

Не пойму в чем ошибка, посмотрите пожалуйста, кто в этом разбирается. Всё решение задачи написано выше.

Как оказалось - код верен. Но проблема в том, что числитель и знаменатель считаются отдельно, и в итоге получаются огромные числа, выходящие за предел. Нужно посчитать сразу число, а не отдельно числитель и знаменатель То есть определить одинаковый множитель, на который нужно домножать каждый член...Помогите, пожалуйста это сделать и изменить код.
program sum1;
uses crt;
var
a,b,h,n,e,x,f,r,s,x4,si:real;
i:integer;
begin
a:=0; b:=2; n:=5;
h:=(b-a)/n;
x:=a;
while(x<b+h/2) do
begin
x4:=2*x*x*x*x;
r:=1;
f:=1;
r:=1;
s:=1;
i:=1;
repeat
f:=f*i;
r:=r*x4;
si:=r/f;
s:=s+si;
i:=i+1;
until abs(si)<0.0001;
writeln(x:5:2,' ',s:10:3);
x:=x+h;
end;
end.

Замечание модератора: Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней. Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой или обратитесь к любому из модераторов.