Помогите с программкой, пожалуйста

[anasteisha]

Помогите с программкой, пожалуйста

Помогите, пожалуйста написать программу на пример 5. Вычислить значение суммы ряда с заданной точность или протабулировать с шагом h на [a,b] (если заданы a,b,h)

 

[anasteisha]

:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837: напишите пожалуйста, ничего не получается(

 

[Vladimir_S]

:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837: напишите пожалуйста, ничего не получается(

Хорошо. Но вообще-то было бы куда приятнее для нас и полезнее для Вас, если бы Вы выложили результаты своих, пусть и неудачных, попыток решить задачу, и мы бы вместе разобрали ошибки. Глядишь - и научились бы чему-то. А так... Боюсь я, что код будет тупо и бездумно скатан и сдан, а при получении следующей столь же пустяковой задачки мы вновь будем осчастливлены воплями "Помогите!", "Не получается!!!" и т.п. Сразу скажу, что конец у подобных подходов всегда один - неуды и отчисление. На форумах всю учебу не проездишь, уж поверьте. Ну да Вам жить...

Const
 a=0.8;
 b=1.2;
 h=0.1;
 Eps=0.001;

Var
 N,i,j:Integer;
 S,x,Q:Real;

Begin
 N:=Round((b-a)/h);
 Writeln(' x      Sum  Accurate value');
 For i:=0 to N do
  begin
   x:=a+h*i;
   j:=1;
   Q:=x;
   S:=Q;
   Repeat
    Inc(j,2);
    Q:=-Q*x*x/(j*(j-1));
    S:=S+Q;
   Until Abs(Q)<Eps;
   Writeln(x:3:1,S:9:3,Sin(x):10:3);
  end;
 Readln
End.

 

[anasteisha]

Спасибо огромное!!! Теперь поняла где у меня ошибка. В следующий раз учту ваши замечания и буду писать что где именно не получается)

 

[Vladimir_S]

Спасибо огромное!!! Теперь поняла где у меня ошибка. В следующий раз учту ваши замечания и буду писать что где именно не получается)

Ну что же - успехов! Обращайтесь, если что...