здраствуйте, имеется задача на циклы, сама задача скрином ниже, программу я написал, но, где то есть ошибка, помогите пожалуйста ее найти и исправить.
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.
Задача практически аналогична Разложению ex в ряд Тейлора ... С одним отличием, придется на каждой итерации менять знак очередного члена последовательности (домножать его на -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
это я уже пробывал все, что только можно(( боюсь там много всяких глупостей((
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.