Задачки на Pascal
написать программу нахождения суммы
б) членов ряда с точностью ε для заданного х и их количество, использовав цикл с после условием.
в) членов ряда с точностью ε для заданной последовательности х. Во внешнем цикле для подачи аргумента x использовать оператор цикла с перед условием, во внутренним - вычислить сумму конкретного x с точностью до ε, использовав оператор цикла с после условием. Вывести значение S,x,n.
Помогите исправить ошибки
б)uses crt;
var n:integer; a,s,x:real;
begin
clrscr;
x:=0.1;
n:=0;
s:=0;
repeat
a:=exp(ln(x)*(2*n+1))/2*n+1;
if n mod 2 <> 0 then
a:=-a;
s:=s+a;
n:=n+1;
until (abs(s)<0.0001);
writeln ('Количество членов = ',n);
writeln ('сумма = ',s:2:8);
readln;
end.
в)uses crt;
var n:integer; a,s,x:real;
begin
clrscr;
x:=0.1;
while x<0.7 do
begin
s:=0;
n:=0;
repeat
a:=exp(ln(x)*2*n+1)/2*n+1;
if n mod 2 <> 0 then
a:=-a;
s:=s+a;
n:=n+1;
until (abs(s)<0.01);
writeln ('Количество членов = ',n);
writeln ('сумма = ',s:2:8);
x:=x+0.1;
end;
readln;
end.
написать программу нахождения суммы
б) членов ряда с точностью ε для заданного х и их количество, использовав цикл с после условием.
в) членов ряда с точностью ε для заданной последовательности х. Во внешнем цикле для подачи аргумента x использовать оператор цикла с перед условием, во внутренним - вычислить сумму конкретного x с точностью до ε, использовав оператор цикла с после условием. Вывести значение S,x,n.
Помогите исправить ошибки
б)uses crt;
var n:integer; a,s,x:real;
begin
clrscr;
x:=0.1;
n:=0;
s:=0;
repeat
a:=exp(ln(x)*(2*n+1))/2*n+1;
if n mod 2 <> 0 then
a:=-a;
s:=s+a;
n:=n+1;
until (abs(s)<0.0001);
writeln ('Количество членов = ',n);
writeln ('сумма = ',s:2:8);
readln;
end.
в)uses crt;
var n:integer; a,s,x:real;
begin
clrscr;
x:=0.1;
while x<0.7 do
begin
s:=0;
n:=0;
repeat
a:=exp(ln(x)*2*n+1)/2*n+1;
if n mod 2 <> 0 then
a:=-a;
s:=s+a;
n:=n+1;
until (abs(s)<0.01);
writeln ('Количество членов = ',n);
writeln ('сумма = ',s:2:8);
x:=x+0.1;
end;
readln;
end.
