ошибка где-то.

[Ольга123456]

var
Sum: real;
i, k, n: byte;
a: array [1..30] of real;
b: array [1..30] of real;

function Pow(P: real; const s: byte): real;
var
i: byte;
Sp: real;
begin
Sp:=1;
for i:=1 to n do
Sp:=Sp*P;
Pow:=Sp;
end;

begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
Sum:=cos(a[i]);
for k:=2 to n do
Sum:=Sum + Pow(cos(i),k);
b[i]:=Sum;
end;
for i:=1 to n do
writeln(b[i]:1:3);
readln;
end.

[Ольга123456]

исходное задание



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

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

[Grag]

Обратись к автору этого шедевра!!!

[Don Karleone]

Ольга123456 что за ошибку выдает?

[Ольга123456]

Don Karleone,я уже не помню.С процедурой что-то не то.Попробуйте,пожалуйста,запустить.

[Ольга123456]

Grag,выйдите на связь!

[Don Karleone]

Сообщение от Ольга123456

Don Karleone,я уже не помню.С процедурой что-то не то.Попробуйте,пожалуйста,запустить.

в функции Pow в цикле for вместо n поставьте s. Я запускал, у меня все работает.

[Ольга123456]

И правильно работает?

[Don Karleone]

В аську стучимся 593013807 и все правильно заработает.

[Ольга123456]

Да,заработало.А почему там надо было сделать такие попровки?

У меня нет аськи.Есть только агент,там меня можно найти по почте Olgapo4ta@mail.ru