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


              

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


          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-го члена к рекурретному соотношению, которое впоследствии надо использовать при составлении программы.

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