Полином в списке, Нужно решить задачку Опции

[Si]

Полином вида а+а1x+a2x^2+..+anx^n может быть представлен в виде линнейного списка

Ввести с клавиатуры вещ. коэф. полинома.Распечатать эл-ты списка.Вычислить значение полинома для значения х.

Поиском пользовался нашёл только инверсию полинома

[volvo]

Ну, вот так, например:

uses crt;

type
  plist = ^tlist;
  tlist = record
    coeff: real;
    next: plist;
  end;

var
  first, last, p: plist;
  more: boolean;
  n: integer;
  ans: char;

  X, s, next: real;
begin
  first := nil;

  more := true; n := 0;
  repeat
    if more then begin
      write('coeff at x^', n:2, ' = '); readln(X);

      new(p);
      p^.coeff := X;
      p^.next := nil;

      if first = nil then first := p
      else last^.next := p;
      last := p;
    end;

    write('more coeffs? (Y/N)'); ans := upcase(readkey);
    writeln;
    more := (ans = 'Y'); inc(n);
    while keypressed do readkey;
  until not more;

  writeln('coeffs:');
  p := first;
  while p <> nil do begin
    writeln(p^.coeff:10:5);
    p := p^.next;
  end;

  write('X = '); readln(X);
  p := first;
  s := 0; next := 1;
  while p <> nil do begin
    s := s + next * p^.coeff;
    next := next * X;
    p := p^.next
  end;
  writeln('poly = ', s:10:5);

end.

[Гость]

Большое спасибо !!!!
Тему можно закрыть

[Гость]

а как сделать чтоб список содержал продефференцированные коэффициенты

[volvo]

Я вношу в список значения <1, 3, 5, 7, 3, 4> ... Что ты хочешь, чтобы в нем содержалось? Какие "продифференцированные" значения?