процедуры и функции

[LiptonICE]

Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где
p(y) = a6 y6 + a5 y5 + ... + a0

[LiptonICE]

Язык Паскаль,что скажите , есть выход с ситуации?

[LiptonICE]

Program ;
const n=6;
Type Arr=array[0..n] of integer;
var i:integer;

function f(x:real,b:arr) of real;
var p:real;
begin
p:=b[6];
for i:=5 downto 0 do
p:=x*p+b[i];
f:=p;
end;
begin

вот думаю так... описал.. теперь само тело программы как сделать?

[LiptonICE]

Помогите прошу вас!

[sergio11]

а что тебе именно в теле нужно?

[LiptonICE]

Сообщение от sergio11

а что тебе именно в теле нужно?

Да вот сам не знаю, я ж и обратился к специалистам, может подскажите.

[p51x]

readln(y);
writeln(f(y+1, b)-f(y, b));

[Ольга123456]

Здравствуйте!Помогите пожалуйста!


Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni

(формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее)
среда-Турбо Паскаль