Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2.

[Executive]

Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2.
F(x)=(1-e^-x)*sin(4piX)

[Bugrimov]

На каком языке реализуете???

[Executive]

Pascal....

[s-andriano]

А ничего, что она бесконечна?
Или это прикол такой?

[Executive]

Не прикол. Дали задание такое. Вот не получается решить, не разбираюсь в этом..

[s-andriano]

Раз дали задание, значит, предполагается, что должны разбираться.
А если все равно не разбираетесь, значит, оно Вам не нужно.

[Mad_Cat]

readln(xn,xk,dx);
s:=0;
x:=xn;
while x<xk+dx/2 do begin
f:=(1-exp(-x))*sin(4*3.14*x);
if not odd(trunc(f)) then s:=s+f;
x:=x+dx;
end;
writeln(s);

[Executive]

Дали задание в институте, я в этом никогда не разбирался, да и не собираюсь, мне это нужно только для галочки...

[Mad_Cat]

Дали задание в институте, я в этом никогда не разбирался, да и не собираюсь

В армию Вам надо! Там думать не надо - за все отцы-командиры подумают! Так что собирайте вещички и вперед в ближайший военкомат

[Executive]

Все сказал? Я сам решу когда и куда мне нужно. Попросили помочь, помог-спасибо. Правда, как мне сказали на другом форуме-решение не правильное... Мне твоя информатика не нужна и никогда в жизни по профессии не пригодится.