Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ ошибка в задаче на циклы

Автор: k0sT 18.06.2008 22:00

здраствуйте, имеется задача на циклы, сама задача скрином ниже, программу я написал, но, где то есть ошибка, помогите пожалуйста ее найти и исправить.


Program LL_U_K_Jl_bI;
var
   x,Sum,SumM:real;
   i,n,f:integer;
const E=0.001;
Begin
writeln ('Input x:');
readln (x);
Sum:=0;
SumM:=0;
i:=1;
n:=1;
while  1/i >= E DO
Begin
    f:=n*i;
    if (n/2) mod 0 then
    begin
    SumM:=(Exp(n*ln(1)) * (exp(n*ln(x))/f) );
    end;
    Sum:=Sum+SumM;
    n:=n+1;i:=i+1;
    writeln (SumM);
End;
writeln ('Summa =',Sum);
readln;
End.

Прикрепленное изображение

Автор: volvo 18.06.2008 22:35

Задача практически аналогична http://volvo71.narod.ru/faq_folder/math.htm#taylor_exp ... С одним отличием, придется на каждой итерации менять знак очередного члена последовательности (домножать его на -1)

Автор: k0sT 22.06.2008 14:56

все перепробывал, не хочет работать, подскажите плз все таки как сделать))

Автор: Sozialist 22.06.2008 15:52

if (n/2) mod 0 then - это еще что такое?

Автор: k0sT 22.06.2008 15:57

это я уже пробывал все, что только можно(( боюсь там много всяких глупостей((