Использование циклов - Pascal (248421)

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

Приведите примеры использования циклов для следующей задачи: вывести таблицу значений функции y=ln(1+x) для x, изменяющихся в интервале от x1 до x2 с шагом h, формула

var a,b,h,y,x:real;
begin
  writeln('a, b, h');readln(a,b,h);
  x:=a;
  while x<b do
    begin
      if x-1<1 then writeln(x:0:6,' undefined')
      else writeln(x:0:6,ln(1+x):10:6);
      x:=x+h;
    end;
  readln;
end.

Решение задачи: «Использование циклов»

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

var x1,x2,h,y,s,x,t:real;
    n,i:integer;
begin
repeat
write('Введите начало интервала -1<x1<=1 x1=');
readln(x1);
until (x1>-1)and(x1<=1);
repeat
write('Введите конец интервала ',x1:0:2,'<x2<=1 x2=');
readln(x2);
until (x2>x1)and(x2<=1);
repeat
write('Введите шаг табуляции h<',x2-x1:0:2,' h=');
readln(h);
until h<x2-x1;
repeat
write('Введите количество слагаемых n>1 n='); //50 и больше
readln(n);
until n>1;
x:=x1;
while x<x2+h/2 do
 begin
   t:=x;
   s:=t;
   for i:=2 to n do
    begin
     t:=-t*x;
     s:=s+t/i;
    end;
   writeln('x=',x:5:2,' s=',s:8:4,' y=',ln(1+x):8:4);
   x:=x+h;
 end;
end.

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

Переменные x1, x2, h, y, s, x, t инициализируются как real.
Переменные n и i инициализируются как integer.
Используется цикл repeat-until для ввода начала интервала x1.
Используется цикл repeat-until для ввода конца интервала x2.
Используется цикл repeat-until для ввода шага табуляции h.
Используется цикл repeat-until для ввода количества слагаемых n.
Устанавливается значение переменной x как x1.
Используется цикл while для обработки каждого шага интервала от x до (x2+h/2).
Внутри цикла while устанавливается значение переменной t как текущее значение x.
Внутри цикла while устанавливается значение переменной s как сумма t/i для i от 2 до n.
Выводится текущее значение x, s и y (натуральный логарифм от 1+x).
Значение x увеличивается на h после каждой итерации цикла while.
Цикл while завершается, когда x превышает x2+h/2.
Код завершается.