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

[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.

[savik]

Я тебя достал наверное своими вопросами... но еще один остался.
Теперь по процедуре mult_2x:

move(cf[0], res[1], pred(maxOrder)*sizeof(integer));

здесь я не понял стороку pred(maxOrder)*sizeof(integer).
Если не ошибаюсь то sizeof(integer) возвращает размер типа в байтах.
А вот дальше не очень ясно.

Сообщение отредактировано: savik - 29.05.2009 19:12