Представить коэффициенты многочлена в виде простого однонаправленных списка - PascalABC.NET

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

Представить коэффициенты многочлена в виде простого однонаправленных списка и написать процедуру для вычисления значения многочлена в точке х.

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

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

type
  tList = class
    a : Real;
    n : tList;
    
    constructor Create(index : Integer; next : tList);
    begin
      Write('a' + index.toString + ' =');
      a := ReadlnReal();
      n := next;
    end;
    
    function Find(x : Real) : Real;
    var t : tList;
    begin
      Result := 0;
      t := Self;
      while t <> nil do
        begin
          Result := Result*x + t.a;
          t := t.n;
        end;
    end;
  end;
  
 var
   a : tList;
   
 begin
   Write('n =');
   var n := ReadInteger();
   a := nil;
   for var i := 0 to n do
     a := tList.Create(i, a);
     
   Write('x =');
   var x := ReadReal();
   WriteLn('F(', x, ') = ', a.Find(x));
 end.

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

В этом коде создается простой однонаправленный список для представления коэффициентов многочлена.

Объявляется тип tList, который представляет элемент списка, содержащий поле a для хранения коэффициента и поле n для хранения ссылки на следующий элемент списка.
Создается конструктор Create для инициализации нового элемента списка. Он принимает индекс элемента и ссылку на следующий элемент списка. Код выводит сообщение с индексом элемента, запрашивает значение коэффициента и сохраняет его в поле a нового элемента списка. Затем он сохраняет ссылку на следующий элемент списка в поле n нового элемента списка.
Объявляется функция Find, которая находит значение многочлена для заданного значения x. Она начинает с нулевого элемента списка и последовательно умножает значение x на текущий коэффициент и добавляет его к результату. Функция продолжает работу до тех пор, пока не достигнет конца списка.
В основной части кода запрашивается количество элементов списка, затем запрашивается значение x. Создается пустой список a. Затем в цикле создается n элементов списка, каждый с помощью конструктора Create. Наконец, выводится сообщение, которое использует функцию Find для вычисления значения многочлена при заданном значении x.