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

   BEGIN
   WRITE(‘ Введите X и E’);
   READLN(X,E);
 S:=0;
 Y:=1;
 I:=0;
  WHILE ABS(Y)>= E DO
   BEGIN
   S:=S+Y;
   I:=I+1;
   Y:=Y*X/I;
   END;
WRITELN(‘S = ‘,S:8:6);
   END.

Рассмотрим еще один пример на точность вычислений.
Пример 28. Вычислить с заданной точностью Е
      Y= 2 + 2 + 2 +... и определить N -вычислений.
    В данном случае необходимо определить правила изменения приращения на каждом ша-
ге вычисления:
      на 1- ом шаге Y1= 2 ;
        на 2- ом шаге Y2= 2 + 2 .
        Разница δ Y = Y1-Y2 обеспечивает необходимую точность расчета.
PROGRAM PR28;
 VAR
  Y,Y1,Y2,Y3,X,E:REAL;
 I:INTEGER;
  BEGIN
    WRITE(' Введите точность вычисления Е = ');
    READLN(E);
     Y1:=SQRT(2);
     Y2:=0;
     Y3:=Y1-Y2;
  I:=1;
WRITELN('I Y1           Y       Y3');
 WHILE ABS(Y3)>=E DO
  BEGIN
   WRITELN(I,' ',Y1:8:7,' ',Y2:8:7,' ',Y3:8:7);
    Y1:= SQRT(2+Y1);
    Y2:= SQRT(2+Y2);
    Y3:=Y1-Y2;
      I:=1+I;
  END
  END.

Пример 29. Рассмотрим решение уравнения вида Y=A*X2+B*X+C путем подставки.
Решение. А,В,С - коэффициенты уравнения;
         Х - начальное приближение;
         Е - точность вычисления;
          Х:=Х+Е/2 изменение (приращение) Х.


                                                                                  50