Ìîæíî äàæå î÷åíü ìàëîå
begin
n := n + 1;
k := k*(-1);
y := 2 + k/n
end
end;
{----------------------------------------------------------------------------------------}
{ Îñíîâíàÿ ïðîãðàììà }
begin
writeln('Ââåäèòå ëþáîå ïîëîæèòåëüíîå ÷èñëî');
write(' Ìîæíî äàæå î÷åíü ìàëîå '); readln(eps);
Element_succession(eps, n, y);
writeln('Èñêîìûé ÷ëåí ïîñëåäîâàòåëüíîñòè ', y:6:t(eps));
writeln('Íàõîäèòñÿ íà ', n , '-îì ìåñòå')
end.
Ê
çàäàíèþ 4
Program Task4;
uses
WinCrt;
var
i, j, n : integer;
k, k1 : longint;
yn, ym, eps : real;
{----------------------------------------------------------------------------------------}
Function
t(eps : real) : integer;
var
k : integer;
begin
k := -1;
repeat
eps := eps*10;
k := k + 1
until
eps > 1;
t := k
end;
{----------------------------------------------------------------------------------------}
begin
writeln('Ââåäèòå ëþáîå ïîëîæèòåëüíîå ÷èñëî ');
write('Ìîæíî äàæå î÷åíü ìàëîå '); readln(eps);
i := 1;
yn := 1/3;
k := 2;
while
abs(yn - 1) >= eps do
begin
i := i + 1;
k := k*2;
yn := (k - 1)/(k + 1)
end;
writeln('Óñëîâèþ |yn - 1| < ', eps:1:t(eps), ' óäîâëåòâîðÿåò');
writeln('÷ëåí ïîñëåäîâàòåëüíîñòè yn = ', yn:6:t(eps), ',');
writeln('íàõîäÿùèéñÿ ïîä íîìåðîì ', i); writeln;
write('Ââåäèòå íîìåð ÷ëåíà ïîñëåäîâàòåëüíîñòè ');
write('áîëüøå ', i, ' '); readln(n);
j := i; ym := yn;
k1 := k;
while
j <= n do
begin
j := j + 1;
k1 := k1*2;