Лаба 6

program laba_6;
uses crt;

var
i, n, h: byte;
x, xn, xk, sum, sl, eps, ee: real;

begin

clrscr;
i:=1;
while i<>2 do begin

   writeln ('Введите начальное и конечное значения х - целые числа меньше 1');
   readln (xn, xk);

   writeln ('Введите шаг изменения х - целое положительное число');
   readln (h);

   writeln ('Введите значение Эпселан - число, принадлежащее промежутку (0; 0,1]');
   readln (eps);

   x:=xn;

   if (xn>=1)or(xk>=1)or(xn>xk)or(eps<=0)or(eps>0.1) then begin
               Writeln ('Error!');
               Break;
   end;

   clrscr;

   writeln ('|   x   |   n   |   S   |   e^(-x^2)   |');
   writeln ('----------------------------------------');

   repeat
      sum:=0;
      n:=0;
      sl:=1;

          while abs(sl)>=eps do begin
                sum:=sum+sl;
                n:=n+1;
                sl:=(-sl*x*x)/n;
      end;

      ee:=exp(-sqr(x));
      writeln ('|',x:7:2,'|',n:7,'|',sum:7:4,'|',ee:14:4,'|');
      writeln ('----------------------------------------');
      x:=x+h;

   until (x>xk);

   readln;
   clrscr;
   writeln ('1 - Go!');
   writeln ('2 - Exit');
   Read (i);
   clrscr;

end;

readln;
end.