Нажмите для просмотра прикрепленного файла
М | Beauty, пожалуйста выбирай более экономные форматы. Я отредактировал (сравни: твой .bmp был 92К, этот .gif - всего лишь 1.4К). |
М | Beauty, пожалуйста выбирай более экономные форматы. Я отредактировал (сравни: твой .bmp был 92К, этот .gif - всего лишь 1.4К). |
function Factorial(n:integer):LongInt;
begin
if n>1 then Factorial:=n*Factorial(n-1) else Factorial:=1
end;
function IntPower(a:real; n:integer):real;
begin
if n>0 then Power:=a*Power(a,n-1) else Power:=1
end;
S:=0;
n:=1;
repeat
a:=Power(2/n,n)*Factorial(n);
if a>=e then S:=S+a else break;
Inc(n)
until false;
function Factorial(n:integer):LongInt;
begin
if n>1 then Factorial:=n*Factorial(n-1) else Factorial:=1
end;
function IntPower(a:real; n:integer):real;
begin
if n>0 then IntPower:=a*IntPower(a,n-1) else IntPower:=1
end;
var
a,S,e:real;
n:integer;
begin
Write('Введите точность E: ');
ReadLn(e);
S:=0;
n:=1;
repeat
a:=IntPower(2/n,n)*Factorial(n);
if a>=e then S:=S+a else break;
Inc(n)
until false;
WriteLn('Сумма ',n,' членов ряда (меньших ',e,') равна ',S)
end.
function Factorial(n:integer):LongInt;
begin
if n>1 then Factorial:=n*Factorial(n-1) else Factorial:=1
end;
function IntPower(a:real; n:integer):real;
begin
if n>0 then Power:=a*Power(a,n-1) else Power:=1
end;
var
a,S,e:real;
n:integer;
begin
Write('Введите точность E: ');
ReadLn(e);
S:=0;
n:=1;
repeat
a:=Power(2/n,n)*Factorial(n);
if a>=e then S:=S+a else break;
Inc(n)
until false;
WriteLn('Сумма ',n,' членов ряда (меньших ',e,') равна ',S)
end.
var
a,S,e:real;
i,n:integer;
begin
Write('Введите точность E: ');
ReadLn(e);
S:=0;
n:=1;
repeat
a:=1;
for i:=1 to n do a:=a*2*i/n;
if a>=e then S:=S+a else break;
Inc(n)
until false;
WriteLn('Сумма ',n,' членов ряда (меньших ',e,') равна ',S)
end.
Program posledovatelnost;
Uses CRT;
var
a,S,E:real;
k,n:integer;
begin
ClrScr;
WriteLn('VVedite to4nost E: ');
ReadLn(E);
WriteLn('Vvedite n ');
ReadLn(n);
for k:=1 to n-1 do
a:=(exp(n*ln(2)))*(k*(k+1))/exp(n*Ln(n));
If abs(a)>=E Then S:=S+a else S:=0;
WriteLn('Symma ',n,'-x 4lenov rjada pavna= ', s:4:2);
Repeat until Keypressed;
end.
{ 1. Перед циклом весьма желательно обнулять переменную для суммы }
for k:=1 to n-1 do { 2. Тут нужен begin, видимо, иначе оператор If не в цикле. И почему цикл до n-1? }
a:=(exp(n*ln(2)))*(k*(k+1))/exp(n*Ln(n)); { 3. Расчет факториала неверный }
If abs(a)>=E Then S:=S+a else S:=0; { 4. Зачем обнуление суммы здесь?.. }
{ 5. А тут нужен end к begin'у (см. п.2 }
{ 1. Перед циклом весьма желательно обнулять переменную для суммы }
for k:=1 to n-1 do { 2. Тут нужен begin, видимо, иначе оператор If не в цикле. И почему цикл до n-1? }
a:=(exp(n*ln(2)))*(k*(k+1))/exp(n*Ln(n)); { 3. Расчет факториала неверный }
If abs(a)>=E Then S:=S+a else S:=0; { 4. Зачем обнуление суммы здесь?.. }
{ 5. А тут нужен end к begin'у (см. п.2 }
F:=1;???
for k:=1 to n do
F:=F*k;
a:=(exp(n*ln(2)))*F/exp(n*Ln(n));