Вот, получите.
Некоторые пояснения: как я понял, Eps=0.1 означает, что нужно ограничиться членом ряда, по модулю меньшим Eps при любом х, отсюда получаем, что знаменатель последнего члена должен быть больше 10, т.е. в нашем случае 11.
На графике изображен исходный меандр (синий) и результат вычисления (красный).
Код:
Var
Step:real;
i:byte;
Function Expansion(z:real):real;
var
k:byte;
Sum:real;
begin
Sum:=0;
for k:=0 to 5 do
Sum:=Sum+Sin(z*(2*k+1))/(2*k+1);
Expansion:=Sum*4/Pi;
end;
Begin
Step:=Pi/8;
For i:=0 to 24 do
writeln(Step*i:5:3,Expansion(Step*i):16:5);
Readln
End.