Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/21: Рейтинг темы: голосов - 21, средняя оценка - 4.76
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 11
1

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x

18.12.2013, 16:32. Просмотров 4183. Ответов 2
Метки нет (Все метки)


Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и Repeat)
S=sin x+ sin sinx +...+sin sin....sin x n-раз
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2013, 16:32
Ответы с готовыми решениями:

Дано целое число N (>0). Найти сумму Sin(x) + Sin(2x) + … + Sin(Nx)
А можно сделать чтоб одна строка все суммировала, или write(тут код). условие вв

Вычислить (1+sin 0,1) (1+sin 0,2) . (1+sin 10)
Вычислить (1+sin 0,1) (1+sin 0,2) ... (1+sin 10) Помогите сделить не могу разобратся. Зарание...

(sin(a + b) - cos(a) * sin(b) / (cos(a- b) - sin(a) * sin(b)
(sin(a + b) - cos(a) * sin(b)) / (cos(a- b) - sin(a) * sin(b))

Вычислить sin(x) и tg(x), если известен cos(x)
Известно, что cos x=0,8; x є . Найти sin x и tg x.

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30869 / 20190 / 7875
Регистрация: 22.10.2011
Сообщений: 35,051
Записей в блоге: 6
18.12.2013, 20:11 2
Лучший ответ Сообщение было отмечено Zyzz89 как решение

Решение

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
var
   i, n : integer;
   X, s, p : double;
 
begin
   write('N = '); readln(n);
   write('X = '); readln(X);
 
   p := X; s := 0;
   i := 1;
   while i <= n do
   begin
      p := sin(p);
      s := s + p;
      i := i + 1;
   end;
   writeln(s:12:7);
 
   p := X; s := 0;
   i := 0;
   repeat
      i := i + 1;
      p := sin(p);
      s := s + p;
   until i = n;
   writeln(s:12:7);
end.
1
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 11
18.12.2013, 20:51  [ТС] 3
спасибо огромное
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2013, 20:51

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

Вычислить значение выражения z=1-e^2a*(sin^3(2a)/sqrt(cos(a))
Program example1; Var a,z,e:integer; begin writeln('Chislo a:='); readln(a);...

Программа, которая будет считать функцию Ln(x)=sin(x)
Нужно составить программу, которая будет считать функцию Ln(x)=sin(x) A=1 B=3 Если не сложно,...

Сформировать квадратную матрицу порядка N по правилу A[i,j]=sin(j^2-j^2/N)
Сформировать квадратную матрицу порядка N по правилу A=sin(j^2-j^2/N) и подсчитать количество...

Не правильно считается Sin(x) - на проге одно н калькуляторе другое
Похоже, что я что-то не правильно делаю. Вопрос дурацкий Калькулятор выдаёт sin(2874,19863) =...


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

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

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