Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо

[igor278130]

3 вариант
уже 2 месяц пытаюсь решить не один програмист не помог а который помог препод сказал то что не правильное решение.Вот посмотрите что там не правильно
Const
Eps=0.001;

Function Sum(x:real):real;
var
S,a:real;
i:word;
begin
a:=x*2;
S:=a;
i:=0;
Repeat
Inc(i);
a:=-a*x*x*2*2/(i*2*(i*2+1));
S:=S+a;
Until Abs(a)<Eps;
Sum:=S;
end;

Begin
Writeln('Result: ',Sum(0.2):0:5);
Readln
End.

[Arigato]

Номер варианта назвал бы что ли.

[type_Oleg]

Что сразу бросилось в глаза:

Eps=0.001;

хотя в задании eps=0,0001

и, зачем вот так:

a:=-a*x*x*2*2/(i*2*(i*2+1));

а не так:

a:=-a*x*x*4/(i*2*(i*2+1));

[igor278130]

в моей задаче 3 вариант

[ViktorR]

Посмотри вложенный файл.


Как-то так, ...