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

FOR I:=1 TO N DO
 BEGIN
 Y:=(XN*XN-2.0*XN+2.0)/(XN-1.0);
  WRITELN(‘* ‘,ХN:8:3,‘ * ‘,Y:8:3,’ *’);
  WRITELN(‘ ----------------------------’);
 XN:=XN+HX;
 END
WRITELN(‘ ----------------------------’);
END.

        Пример 16в. В задаче, рассмотренной в примере 18, вывести только окончательный
результат. Фрагмент программы
. . . . . .
WRITELN(‘*        ХN * Y *’);’
  FOR I:=1 TO N DO
   BEGIN
    Y:=(XN*XN-2.0*XN+2.0)/(XN-1.0);
    XN:=XN+HX;
  END
 WRITELN(‘* ‘,ХN:8:3,‘ * ‘,Y:8:3,’ *’);
END.

                                   2.13. Вычисление суммы

    Сумма вычисляется по рекуррентному выражению
       S=S+Y,
       где S - накапливаемая сумма;
           Y - слагаемое.
       По данному выражению каждое новое значение получается из предыдущего добавле-
нием очередного слагаемого. Для первого слагаемого Y начальное значение суммы S = 0.
       Пример 17. Составить программу для вычисления среднеарифметического N произ-
вольных чисел.
Введем обозначения:
       S- сумма всех чисел;
       SR - среднеарифметическое N чисел;
       A - значение I - го числа;
       N - количество чисел.
PROGRAM PR17;
 VAR
  I,N:INTEGER;
    S,SR,A:REAL:
  BEGIN
   WRITE(‘ Введите N’);
    READLN(N);
     S:=0;
       FOR I:=1 TO N DO
        BEGIN
        WRITE(‘ Введите ‘,I,’ число’);
        READLN(A);
       S:=S+A:
        END;
              SR:=S/N;

                                                                                    43