Программирование итерационного цикла - Pascal

Формулировка задачи:

Функция y(x) задана двумя способами: формулой y = f(x) и ее разложением в бесконечный ряд S. elp:Разработать программу вычисления точного yT и приближенного yP значений функции y(x) при изменении её аргумента x от a до b с шагом Dx. Приближенное значение вычислять путем суммирования членов ряда до достижения требуемой точности ε (|УT - УP| ≤ ε). Предусмотреть завершение процесса суммирования членов ряда по заданному максимальному номеру члена ряда n для предотвращения зацикливания итерационного цикла. Результаты расчетов вывести в виде следующей таблицы. Помогите написать программу и блок схему, буду очень благодарен

Решение задачи: «Программирование итерационного цикла»

Листинг программы

const a=0.1;
      b=0.5;
      dx=0.1;
      e=0.0001;
function y(x:real):real;
begin
y:=1/(1-x);
end;
function s(x:real):real;
var n:integer;
    t,sm:real;
begin
t:=1;
sm:=t;
while abs(sm-y(x))>e do
 begin
  t:=t*x;
  sm:=sm+t;
 end;
s:=sm;
end;
var x:real;
begin
x:=a;
while x<=b do
 begin
  writeln('x=',x:4:1,' yT=',y(x):8:4,' yP=',s(x):8:4);
  x:=x+dx;
 end;
end.

Объяснение кода листинга программы

Объявлены константы: a=0.1, b=0.5, dx=0.1, e=0.0001.
Объявлены функции:
- y(x:real):real; - функция вычисляет значение y для заданного значения x.
- s(x:real):real; - функция вычисляет значение s для заданного значения x.
В функции s(x:real):real; объявлены переменные:
- n: integer; - инициализируется значение переменной n.
- t, sm: real; - инициализируется значение переменной t, а значение переменной sm инициализируется значением переменной t.
В цикле while, который выполняется до тех пор, пока абсолютное значение разности между sm и y(x) больше e, выполняются следующие действия:
- t := t*x; - значение переменной t умножается на значение переменной x.
- sm := sm + t; - значение переменной sm увеличивается на значение переменной t.
В основной программе объявлена переменная x: real;.
Значение переменной x устанавливается равным a.
В цикле while, который выполняется до тех пор, пока x меньше или равно b, выполняются следующие действия:
- writeln('x=',x:4:1,' yT=',y(x):8:4,' yP=',s(x):8:4); - выводится значение x, значение yT и значение yP.
- x := x + dx; - значение переменной x увеличивается на dx.
Конец программы.