Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.02.2013
Сообщений: 12
1

Цикл: Вычислить y= sin x+ sin х^2 + ... + sin x ^ n

04.02.2013, 16:02. Показов 3684. Ответов 2
Метки нет (Все метки)

Дано натуральное число n и вещественное число х. Вычислить y= sin x+sin х в квадрате+...+sin x в n степени
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2013, 16:02
Ответы с готовыми решениями:

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y>0.01 do begin ...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия)
посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя "sin" повторяется n раз

2
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
04.02.2013, 16:17 2
Лучший ответ Сообщение было отмечено luv как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var n,i:integer;
    x,t,s:real;
begin
clrscr;
write('n=');
readln(n);
write('x=');
readln(x);
t:=1;
s:=0;
for i:=1 to n do
 begin
  t:=t*sin(x);
  s:=s+t;
 end;
writeln('Sfor=',s:0:3);
t:=1;
s:=0;
i:=1;
while i<=n do
 begin
  t:=t*sin(x);
  s:=s+t;
  i:=i+1;
 end;
writeln('Swhile=',s:0:3);
readln
end.
1
0 / 0 / 0
Регистрация: 03.02.2013
Сообщений: 12
04.02.2013, 17:15  [ТС] 3
спасибо большое!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2013, 17:15

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt)
Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране...

Вычислить: y=sin 1+ sin 1.1+sin 1.2+.+sin2
Вычислить: y=sin 1+ sin 1.1+sin 1.2+...+sin.помоги пожалуйста!

Вычислить sin(a)*sin(b) при условии,что a и b принадлежат отрезку [cd]
Даны два числа A и B. Если оба значения принадлежат отрезку ,то вычислить R=sin(a)*sin(b). В...

Подпрограммы: Вычислить выражение F(t)= sqr(t)+sin(t)/sqrt(t) где t=e^ax+1/sin(x)
1. Вычислить выражение F(t)= sqr(t)+sin(t)/sqrt(t) где t=e^ax+1/sin(x) Прошу помощи по этим...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.