Составить программу вычисления функции при заданных значениях аргументов - Pascal ABC

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

Составить программу вычисления функции при заданных значениях аргументов. x=-0,5(0,1)0,5. Для вычисления ln(1-x)воспользоваться равенством

Решение задачи: «Составить программу вычисления функции при заданных значениях аргументов»

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

function sum(x:real):real;
var s,t:real;
    n:byte;
begin
t:=1;
s:=0;
for n:=1 to 50 do
 begin
  t:=t*x;
  s:=s+t/n;
 end;
sum:=-s;
end;
var x,z:real;
begin
x:=-0.5;
while x<=0.5 do
 begin
  if x<=0 then z:=sum(x)
  else z:=ln(1+x);
  writeln('x=',x:4:1,' z=',z:0:4);
  x:=x+0.1;
 end;
end.

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

Создаётся функция sum, которая принимает один аргумент типа real и возвращает значение типа real.
В функции объявляются три переменные: s, t и n. Переменная s инициализируется значением 0, а переменная t инициализируется значением 1. Переменная n инициализируется значением 1.
Запускается цикл for, который выполняется 50 раз. На каждой итерации цикла переменная t умножается на значение аргумента x, а переменная s суммирует результаты.
После завершения цикла переменная sum инициализируется значением -s.
В основной части программы объявляются две переменные: x и z. Переменная x инициализируется значением -0.5.
Запускается цикл while. Условием продолжения цикла является то, что значение переменной x меньше или равно 0.5.
Внутри цикла while проверяется, что значение переменной x меньше нуля. Если это условие выполняется, то переменная z инициализируется значением функции sum, переданной в качестве аргумента значению переменной x. Если условие не выполняется, то переменная z инициализируется значением ln(1+x).
После завершения цикла while значение переменной x увеличивается на 0.1.
Выводится сообщение с значениями переменных x и z.
Программа завершается.