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

                4 − ( − 4 ) 
       n   =                 + 1 =       4 1
                   0 .2     

PROGRAM PR16;
VAR
 X,Y: REAL;
 I: INTEGER;
  BEGIN
    X:=-4;
     FOR I:=1 TO 41 DO
      BEGIN
       Y:=(X*X-2.0*X+2.0)/(X-1.0);
       Х:=Х+0.2;
        WRITE(X,Y)
      END
  END.

    Для данной функции эту программу можно записать в общем виде для различных значе-
ний интервалов и величин изменения шага и в наглядном виде. При этом информация выво-
дится в удобной форме.
PROGRAM PR16a;
VAR
 XN,XK,HX,X,Y: REAL;
 I,N: INTEGER;
   BEGIN
WRITE(‘ Введите начальное значение Х’);
READLN(XN);
WRITE(‘ Введите конечное значение Х’);
READLN(XK);
WRITE(‘ Введите шаг изменения Х’);
READLN(HX);
N:=TRUNC((XK-XH)/HX)+1;
WRITELN(‘ ----------------------------’);
WRITELN(‘*        ХN * Y *’);’
WRITELN(‘ ----------------------------’);
 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,’ *’);
 XN:=XN+HX;
 END
WRITELN(‘ ----------------------------’);
 END.

Рассмотрим различные формы вывода окончательного результата расчета.
     Пример 16б. Необходимо в конечной форме провести линию после каждого шага расче-
та.
      Фрагмент программы
. . . . . .
WRITELN(‘ ----------------------------’);
WRITELN(‘*        ХN * Y *’);’
WRITELN(‘ ----------------------------’);

                                                                                   42