Цитата:
Сообщение от anasteisha
|
Хорошо. Но вообще-то было бы куда приятнее для нас и полезнее для Вас, если бы Вы выложили результаты своих, пусть и неудачных, попыток решить задачу, и мы бы вместе разобрали ошибки. Глядишь - и научились бы чему-то. А так... Боюсь я, что код будет тупо и бездумно скатан и сдан, а при получении следующей столь же пустяковой задачки мы вновь будем осчастливлены воплями "Помогите!", "Не получается!!!" и т.п. Сразу скажу, что конец у подобных подходов всегда один - неуды и отчисление. На форумах всю учебу не проездишь, уж поверьте. Ну да Вам жить...
Код:
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.