Обработка числовой последовательности-паскаль, По формуле найти сумму нечетных членов Опции

[maximmax]

М

Теги !

есть такое задание- Найти сумму не четных членов последовательности....
последовательность ((-1)^k*p^k*cos^k(2*x))/k*(k-1)
где x=max(a,b)+min(c,d) p=p0+(i-1)*h i=1,...,m
с клавы вводим значения- a=3.5 b=2.4 c=6.1 d=-3.5 p0=1 h=0.2 m=6и длинна n=4

саму прогу я написал так-

program Rekur2 (input, output);
uses crt;
Var a, b, x0, h, p, x, max, min, ak, s, c, d, p0: real;
n, m, l, g, i, k: integer;
begin
clrscr;
writeln('ВВЕДИТЕ a, b, c, d, p0, h, m, n');
read(a, b, c, d, p0, h, m, n);
if a>b
then
max:=a
else
max:=b;
if c>d
then
min:=d
else
min:=c;
{perebor X}
for i:=1 to m do
begin
x:=max+min;
ak:=p*cos(2*x);
p:=p0+(i-1)*h;
writeln('p=',p:6:(2*n-1));
write('a1=', ak:6:(2*n-1));
s:=ak;
{vi4islenie po rekkurentnoi formule}
for k:=2 to n do
begin
ak:=-ak*p*cos(2*x)/k*(k-1);
write('a',k,'=',ak:6:(2*n-1));
end;
if k = (2*n-1)
then
s:=s+ak;
writeln;
writeln('s=',s:6:(2*n-1),' при x=',x:6:(2*n-1));
readkey
end;
end.
end.

Значения X считает нормально, p тоже.....а сумму нет....
если не сложно помогите пожалуйста

Сообщение отредактировано: klem4 - 4.11.2007 20:34