Циклический алгоритм. Операторы Repeat ... Until и While

[Игорь_кпи]

Напишите программу для расчета значения функции y = cos (x) + cos (х^2) + cos (x^3) + ... + cos (x^n), когда значение угла x (в радианах) и количество членов суммы n вводятся с клавиатуры.

[Stilet]

var n:integer; x,y:double;
begin
 readln(n); x:=0;
 repeat while n>0 do begin y:=y+cos(exp(n*ln(x)));dec(n);end; until n=0;
 write(y);readln;
end.

Подходит?

[BDA]

Stilet, ln(0) не существует

var n: integer; x, y, a: double; begin readln(x, n); y := 0; a := x; while n > 0 do begin y := y + cos(a); a := a * x; dec(n); end; writeln(y:0:5); readln; end.

[Игорь_кпи]

Спасибо, пашет.

[Stilet]

ln(0) не существует

Не существовал. До того как я его сегодня создал и водрузил в сферу бытия