Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
38 / 1 / 3
Регистрация: 16.11.2015
Сообщений: 103
1

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …

28.11.2015, 17:46. Просмотров 2120. Ответов 9
Метки нет (Все метки)


Pascal
1
2
3
4
5
6
7
8
9
10
11
var x,z:integer;
y:real;
begin
readln(x);    y:=abs(sin(x));
while y>0.01 do begin
  y:=abs(sin(x)) ;
   // write(y);
    end;
 
  readln
   end.
Почему выбивает ошибка ???
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2015, 17:46
Ответы с готовыми решениями:

Для заданных 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 раз).

Циклом «пока» вычислить сумму ряда 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

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

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

__________________
Помогаю в написании студенческих работ здесь.
9
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
28.11.2015, 18:09 2
А Вы напишите полное и точное условие задачи, а то что-то написали в названии темы и какую-то хрень в коде.
0
38 / 1 / 3
Регистрация: 16.11.2015
Сообщений: 103
28.11.2015, 18:46  [ТС] 3
Для заданного числа x распечатать числовую последовательность:
sin(x), sin(sin(x)), sin(sin(sin(x))), …
Вычисления прекратить, когда очередной элемент последовательности станет по модулю меньше, чем 10-2.

Добавлено через 23 минуты
Цитата Сообщение от msk19 Посмотреть сообщение
10-2.
https://www.cyberforum.ru/cgi-bin/latex.cgi?{10}^{-2}
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
28.11.2015, 18:47 4
Интересно а значение х известно или хотя бы интервал? А то при значениях которые я вводил ряд к 0.01 не сходится и программа зацикливапется.
1
38 / 1 / 3
Регистрация: 16.11.2015
Сообщений: 103
28.11.2015, 18:52  [ТС] 5
неа,больше ничего не задано
зацикливается на значении 0.044242678085071
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
28.11.2015, 19:00 6
При разных значениях по разному, например при х=1 на 0.033 при х=5 вообще вылетает после примерно 11000 итераций.
1
38 / 1 / 3
Регистрация: 16.11.2015
Сообщений: 103
28.11.2015, 19:03  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
программа зацикливапется
а почему так?
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
28.11.2015, 19:24 8
Да потому что синус от разных чисел разные числа. Доходит до такого значения что sin(y)=y и все.

Добавлено через 1 минуту
например
sin0.033 =0.032994011
sin0.044 0.043985804
sin0.055 0.054972275
0
38 / 1 / 3
Регистрация: 16.11.2015
Сообщений: 103
28.11.2015, 19:35  [ТС] 9
Цитата Сообщение от Puporev Посмотреть сообщение
например
sin0.033 =0.032994011
но ведь 0.033 не равняется 0.032994011 ,а sin(0.032) ,будет 0.031
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
28.11.2015, 19:47 10
Цитата Сообщение от msk19 Посмотреть сообщение
а sin(0.032)
А откуда Вы это взяли? 0.032994011 при округлении до третьего знака=0,033

Добавлено через 1 минуту
Короче чего тут спорить, условие написанной задачи не корректно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2015, 19:47

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

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

Цикл: Вычислить y= sin x+ sin х^2 + ... + sin x ^ n
Дано натуральное число n и вещественное число х. Вычислить y= sin x+sin х в квадрате+...+sin x в n...

Вычислить 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) Прошу помощи по этим...


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

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

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