Многочлены Опции

[savik]

Задача №670.
Я смог решить только пункт в) и то не уверен что правильно. Но вот как решить пункт а) и б) я понятия не имею Подскажите пожалуйста!

var     k: byte;
        a, temp: real;
function G(k: integer; x: real): real;
begin
  if k=0 then G:=1 else if k=1 then G:=x-1 else G:=(x-2*k+1)*G(k-1,x)
  -sqr(k-1)*G(k-1,x)
end;
begin
write('Vvedite a: ');  readln(a);
temp:=0;
for k:=0 to 6 do
temp:=temp+G(k,a);
write('Rezultat = ', temp:10:3);
readln;
end.

[volvo]

Там выше описана константа:

const
  sign: array[boolean] of string[3] =
    (' - ', ' + ');

, чтобы не плодить лишние if coeffs[i] > 0 then ... else ..., я делаю все одним оператором: если коэффициент > 0, значит, (coeffs[i] > 0) равно true, и напечатается "+". Иначе логическое значение будет равно false, и напечатается первый элемент sign, то есть "минус"...

Добавлено через 1 мин.

зачет сдал

Ну, сдал-то сдал, это хорошо... А разобрался, что там происходит, и как это делается (кроме твоего вопроса о выводе)?