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

Question

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

Настя

Составить программу, которая вычисляет сумму ряда с заданной точностью. Нужная точность считается полученной, если очередное слагаемое оказалось по модулю меньше, чем  (это и все последующие слагаемые учитывать не надо). Написать блок-схему и Паскаль

Есть ответ

12.12.2022

136

Ответ

Answer 1 · 12.12.2022

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.

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

Ответ

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.

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.