Технический форум - Помогите с программкой, пожалуйста

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

Цитата:

Сообщение от anasteisha (Сообщение 974292)

: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 (Сообщение 974482)

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