Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:lab_inf / lab3B
.PAS Program lab3B;
var
X,EPS,A,S:real;
N:integer;
Begin
writeln('vvedite X,EPS');
read(X,EPS);
A:=X; S:=0; N:=1;
while ABS(A)>=eps do
begin
S:=(S+A);
N:=N+1;
A:=(-1)*(1/(2*N-1));
end;
writeln('summa ryda=',S:8:4);
writeln('chislo chlenov ryda',N:4);
end.
var
X,EPS,A,S:real;
N:integer;
Begin
writeln('vvedite X,EPS');
read(X,EPS);
A:=X; S:=0; N:=1;
while ABS(A)>=eps do
begin
S:=(S+A);
N:=N+1;
A:=(-1)*(1/(2*N-1));
end;
writeln('summa ryda=',S:8:4);
writeln('chislo chlenov ryda',N:4);
end.