Паскаль. Основы программирования



              

Глава Числовые последовательности - часть 10


          k := k + 1

        until eps > 1;

        t := k

      end;

{----------------------------------------------------------------------------------------}

    Procedure Root(u, n, eps : real; var

x : real);

         var

            x1, x2, xn : real;

            i               : integer;

         begin

             x1 := (u + n - 1)/2;

             repeat

                xn := 1;

                for i := 1 to trunc(n) - 1 do

xn := xn*x1;

                x1 := ((n - 1)*x1 + u/xn)/n;

                x2 := ((n - 1)*x1 + u/xn)/n

             until abs(x1 - x2) <= eps;

             x := x2

         end;

{--------------------------------------------------------------------------------------}

   begin

     write('Введите подкоренное выражение '); readln(u);

     write('Введите показатель корня '); readln(n);

     write('Введите точность вычисления '); readln(eps);

     Root(u, n, eps, x);

     writeln('Значение корня равно ', x:8:t(eps));

     writeln('С точностью до ', eps:1:t(eps))

   end.

Рассмотрим несколько последовательностей, заданных формулами n-го члена:

3)

 все три последовательности имеют место при любом значении x;

4)

 , где m - вещественное число, отличное от 0 и от всех натуральных чисел при 
 

5)

 при |x| < 1 и x = 1;  6)
 при  |x|
 1.

Нам еще придется на следующем занятии иметь дело с этими последовательностями, но уже при постановке несколько иной задаче. А теперь составим программы вычисления членов последовательности, причем вычисления вести до того члена, который по абсолютной величине станет равным или меньше заданной точности. Выполним это задание для последовательностей 2-й и 4-й.

Пример 4.

Последовательность задана формулой

Вывести на экран члены последовательности до члена, меньшего заданного положительного числа eps. Желательно принять 0 < eps < 1.

Самое важное - это перейти от формулы n-го члена к рекурретному соотношению, которое впоследствии надо использовать при составлении программы.




Содержание  Назад  Вперед