Вычислите сумму ряда для каждого значения - Pascal

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

Вычислите сумму ряда для каждого значе(ния c шагом h Вычисление производить до тех пор, пока очередной член больше ..Во входном файле задано два действительных числа h И Формат выходных данных В выходной файл выведите таблицу, состоящую из двух колонок. Первая колонка содержит значения x, а вторая содержит приближенную сумму ряда при соответствующем значении x. Действительные числа выводите ровно с 8 знаками после запятой. Если через 10000 операций слагаемое так и не стало меньше , то считайте, что ряд расходится, а в качестве суммы выведите "0.00000000". Примеры: Вход 0.80000000 0.00010000 Выход 0.00000000 1.00000000 0.80000000 1.36350560

Решение задачи: «Вычислите сумму ряда для каждого значения»

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

Var x,h,eps,s,p:real;
    f:text;
    k:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    read(f,h,eps);
    Close(f);
    Assign(f,'out.txt');Rewrite(f);
    x:=0;
    While x<=0.9 do
    Begin
      p:=1;s:=1;k:=0;
      While (p>eps)and(k<=10000) do
      Begin
        p:=p*(x/3);
        s:=s+p;
      End;
      if k>10000 then writeln(f,x:0:8,' 0.00000000')
       else writeln(f,x:0:8,' ',s:0:8);
      x:=x+h;
    End;
    Close(f);
    writeln('Результат в файле out.txt');
    readln;
End.

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

Объявляются переменные x, h, eps, s, p типа real и f типа text.
Задается начальное значение переменной x.
Открывается файл in.txt для чтения.
Читаются значения переменных h и eps из файла in.txt.
Закрывается файл in.txt.
Открывается файл out.txt для записи.
Переменная x устанавливается равной 0.9.
Входим в цикл While x<=0.9 do.
Внутри цикла объявляются переменные p, s и k типа integer.
Устанавливается начальное значение переменной p равным 1, s равным 1, а k равным 0.
Входим в цикл While (p>eps)and(k<=10000) do.
Внутри цикла вычисляется значение переменной p как p*(x/3).
Значение переменной s увеличивается на p.
Проверяется условие (p>eps)and(k<=10000). Если оно истинно, то записывается в файл out.txt строка ' 0.00000000'. Если условие ложно, то записывается в файл out.txt строка ', '.
Увеличивается значение переменной k на 10000.
Если значение переменной k больше 10000, то записывается в файл out.txt строка ' 0.00000000'.
Цикл While заканчивается.
Закрывается файл out.txt.
Выводится сообщение 'Результат в файле out.txt'.
Ждется ввод пользователя.