Программа с помощью рекурсии

@sanaice · Регистрация: 26.02.2009

Написать программу, которая по заданным натуральным значениям и вычисляет результат выражения:Дана вот такая формула:
S=1+a^2/cos(2a)+a^4/cos(4a)+...+a^2n-2/cos((2n-2)a)
Помогите пожалуйста!!!

@Puporev · 12.05.2009, 15:00

Вроде так.

Pascal

uses crt;
function S(a:real;n:integer):real;
var c:real;
begin
c:=a*a;
if n=1 then S:=1
else S:=S(a,n-1)+S(a,n-1)*c/cos((2*n-2)*a);
end;
var a:real;
    n:integer;
begin
clrscr;
write('a=');readln(a);
write('n=');readln(n);
write('S=',S(a,n):0:5);
readln
end.

@sanaice 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 30
		1
	Программа с помощью рекурсии 11.05.2009, 20:28. Показов 1230. Ответов 1 Метки нет (Все метки) Написать программу, которая по заданным натуральным значениям и вычисляет результат выражения:Дана вот такая формула: S=1+a^2/cos(2a)+a^4/cos(4a)+...+a^2n-2/cos((2n-2)a) Помогите пожалуйста!!! 0

Опции темы

Программа с помощью рекурсии

Решение