Даны действительное x и натуральное n. Вычислить sin x + sin2 x + ... sinn x

С использованием рекурсивной функции

Question

Информатика

Моря

20 марта, 11:47

Даны действительное x и натуральное n. Вычислить sin x + sin2 x + ... sinn x

С использованием рекурсивной функции

+3

Ответы (1)

Знаете ответ на вопрос?

Евстратий · Answer 1

Function sum (x:real; n:integer) : real;

begin

if n=0

then sum:=0

else sum:=sum (x, n-1) + sin (n*x)

end;

var x:real; n:integer;

begin

write ('x = ') ;

readln (x) ;

write ('n = ') ;

readln (n) ;

writeln ('Sum = ', sum (x, n)) ;

end.

Пример:

x = 1

n = 4

Sum = 1.13508592438552

Даны действительное x и натуральное n. Вычислить sin x + sin2 x + ... sinn xС использованием рекурсивной функции

Даны действительное x и натуральное n. Вычислить sin x + sin2 x + ... sinn x

С использованием рекурсивной функции