Безотлагательно!!! ПОМОГИТЕ! Составить метод вычисления выражения S=sinx+sin^2x+...+sin^nx.

Безотлагательно!!! ПОМОГИТЕ!
Составить метод вычисления выражения S=sinx+sin^2x+...+sin^nx. Циклическим деянием будет S=Ssinx, изначальное значение суммы S=sinx.

Задать свой вопрос
1 ответ
Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
 begin
 sn:=sn*sin(x);
 s:=s+sn;
 end;
writeln('s = ',s:6:4);
end.

Пример:
0.9 5
s = 2.5490
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт