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

@Executive · Регистрация: 05.06.2013

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

@CodeR · 06.06.2013, 09:40

Pascal

Var xn,xk,x,s,y:real;
Begin
    write('Отрезок изменения x: ');readln(xn,xk);
    x:=xn;
    While x<=xk do
    Begin
      y:=(1-exp(-x))*sin(4*pi*x);
      if trunc(y) mod 2 = 0 then s:=s+y;
      x:=x+0.1;
    End;
    writeln('Сумма = ',s:0:2);
    readln;
End.

@Executive · 06.06.2013, 18:02 **[ТС]**

Сообщение от CodeR

x:=x+0.1

Почему 0.1 ? Никак не пойму..

@CodeR · 06.06.2013, 21:28

Сообщение от Executive

Почему 0.1 ? Никак не пойму..

это шаг изменения аргумента

@Executive 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 8
		1
	Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2 06.06.2013, 09:06. Показов 2535. Ответов 3 Метки нет (Все метки) Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2. F(x)=(1-e^-x)*sin(4piX) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Executive 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 8
	06.06.2013, 18:02 [ТС]	3
	Сообщение от CodeR x:=x+0.1 Почему 0.1 ? Никак не пойму.. 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,493 Записей в блоге: 1
	06.06.2013, 21:28	4
	Сообщение от Executive Почему 0.1 ? Никак не пойму.. это шаг изменения аргумента 0

Опции темы