Даны действительное число Х и натуральное число n. Вычислить с помощью рекурсии s=1+cos2x+cos^(2)2x+...+cos^(n-1)2x
Даны действительное число Х и натуральное число n. Вычислить с помощью рекурсии s=1+cos2x+cos^(2)2x+...+cos^(n-1)2x
Гость
Ответ(ы) на вопрос:
Гостьfunction summa(x:real; n:integer):real;
var
s,step:
real;
i:integer;
begin
step:=cos(2*x);
if n>1 then
begin
for i:=2 to n do
step:=step*cos(2*x);
summa:=summa(x,n-1)+step;
end
else
summa:=cos(2*x);
end;
var
x:real;
n:integer;
begin
write('X = ');
readln(x);
write('N = ');
readln(n);
writeln('S = ',summa(x,n-1)+1:0:3);
end.
Гостьvar N: integer;
x: real;
function Sum(x: real; N: integer): real;
begin
if (N>1) then Sum:=Power(cos(2*x),N-1)+Sum(x,N-1)
else Sum:=1;
end;
{ основная программа }
begin
write('задайте N: '); readln(N);
write('задайте x: '); readln(x);
writeln('сумма ряда = ',Sum(x,N):10:5);
end.
Не нашли ответ?
Похожие вопросы