Ïàñêàëü. Îñíîâû ïðîãðàììèðîâàíèÿ


           

Ìîæíî äàæå î÷åíü ìàëîå


                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;


Ñîäåðæàíèå  Íàçàä  Âïåðåä