Паскаль в примерах. Иринчеев А.А - 49 стр.

   WRITE(‘ Введите А и В’);
   READLN(A,B);
     C:=A;
      WHILE C< B DO
        BEGIN
         WRITELN(‘C = ‘,C:8:5);
           C:=C*A;
        END
   END.

Пример 26. Вычислить U для данного U ≥ 0.
Рассмотрим бесконечную последовательность х1, х2, х3, ... образованную по следующему
закону:

                   u + 1
             Χ   i   =    ;
                     2
                   1             u
            Χi =      ( Χ i−1 +       ) , i = 2 ,3 , . . .
                   2            Χ i−1
    Оказывается, что члены этой последовательности с увеличением номера i все меньше и
меньше отличаются от U .


PROGRAM PR26;
 VAR
  U,X,E; REAL;
   BEGIN
    WRITE(‘ Введите U и E’);
     READLN(U,E);
       X:=(U+1)/2;
        WHILE ABS(SQR(X)-U) >= E DO
          X:=0.5*(X+U/X);
    WRITELN(‘X = ‘,X:5:3);
    END.


      Пример 27. Напишем программу приближенного вычисления суммы

                       Χ Χ2
                         +
                         1+   + ⋅⋅⋅
                       1! 2!
       с заданной точностью Е (Х<= 86).
      По условию задачи считается, что нужное приближение получено, если вычислена
сумма некоторых первых слагаемых, и очередное слагаемое оказалось по модулю меньше,
чем данное малое положительное число E - и все последующие слагаемые уже не надо учи-
тывать.
      При анализе задачи видно, что каждое последующее слагаемое отличается от преды-
дущего на величину Χ / i .
PROGRAM PR27;
 VAR
 X,E,Y,S:REAL;
  I:INTEGER;

                                                                                    49