Составить программу, которая вычисляет сумму ряда с заданной точностью. Нужная точность считается полученной, если очередное слагаемое оказалось по модулю меньше, чем (это и все последующие слагаемые учитывать не надо).
Написать блок-схему и Паскаль
Answers & Comments
function f(x,eps:real):real;
var z,s:real; k:integer;
begin
z := x;
k := 1;
s := 0;
while abs(z/k) >= eps do
begin
s := s + z/k;
z := -z*x;
k := k + 1;
end;
f := s;
end;
begin
writeln( f(0.35, 0.001) );
// writeln( ln(1 + 0.35) )
end.