Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
minstrel777
1 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 43
1

Найти u-первый отрицательный член. Поиск юзал.... ничего не нашел...

04.06.2010, 22:59. Просмотров 419. Ответов 8
Метки нет (Все метки)

Помогите с решением следующей задачи:

Найти u-первый отрицательный член последовательности cos(ctr n), n=1,2,3,.... .


Или ткните пальцем, может я плохо искал по форуму..... Буду очень вам благодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2010, 22:59
Ответы с готовыми решениями:

Найти первый член последовательности
На Форуме искал, не нашел. Пусть x0=1; xk=2-(x(k-1))(x(k-1))(x(k-1));...

Найти первый член последовательности
Дано действительное число а>0 Последовательность x0, x1,... образована по...

Найти первый отрицательный элемент массива
Найти первый отрицательный элемент в массиве целых чисел. Массив записать в...

Найти первый член y[n], для которого выполнено условие
Здравствуйте) Помогите решить задачу на паскале: Пусть, y=0 y=(y+1)/(y+2) ...

Найти первый член последовательности, удовлетворяющий заданному условию
Помогите решить пожалуйста (...буду очень благодарен Даны действительные...

8
Puporev
Модератор
55057 / 42325 / 29229
Регистрация: 18.05.2008
Сообщений: 100,020
04.06.2010, 23:03 2
Цитата Сообщение от minstrel777 Посмотреть сообщение
u-первый
Это как?

Добавлено через 36 секунд
Цитата Сообщение от minstrel777 Посмотреть сообщение
ctr n
а это что?
0
minstrel777
1 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 43
04.06.2010, 23:10  [ТС] 3
Извиняюсь, криво написал вопрос задачи, сейчас исправлю!

Вот изображение вопроса задачи....
0
Миниатюры
Найти u-первый отрицательный член. Поиск юзал.... ничего не нашел...  
minstrel777
1 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 43
05.06.2010, 14:17  [ТС] 4
Вопрос все еще открытый. Помогите разобраться.
0
lera8
634 / 217 / 63
Регистрация: 03.11.2009
Сообщений: 488
05.06.2010, 14:34 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
n:integer;
u:real;
begin
 n:=0;  u:=0;
  while u >= 0 do
    begin
     n:=n+1;
     u:=cos(cos(n)/sin(n));
    end;
  writeln('Первый отиц: ',u:4:2);
end.
1
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
05.06.2010, 14:36 6
Pascal
1
2
3
4
  N:=1;
  while Cos(Cos(N)/Sin(N))>=0 do
    Inc(N);
  writeln(Cos(Cos(N)/Sin(N)):5:2,' with N=',N);
1
minstrel777
1 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 43
05.06.2010, 17:17  [ТС] 7
Всем большое спасибо за помощь!
0
miroslav@@crazy
0 / 0 / 0
Регистрация: 02.06.2010
Сообщений: 1
05.06.2010, 17:19 8
вообще не вдупляюсь в эту задачу
0
minstrel777
1 / 1 / 0
Регистрация: 28.01.2010
Сообщений: 43
05.06.2010, 18:15  [ТС] 9
Вот так сделал, добавил выбор количества чисел. Все прекрасно работает и всем еще раз спасибо =))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n:integer;
u:real;
begin
 write('Vvedite kolichestvo n ');Readln(n);
  u:=0;
  while u >= 0 do
    begin
     n:=n+1;
     u:=cos(cos(n)/sin(n));
    end;
  writeln('Perviy otric: ',u:4:2);
  writeln ('');
  writeln ('Dlya vihoda nazhmite lubuyu knopku.');
readln;
end.
0
05.06.2010, 18:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2010, 18:15

Найти первый член последовательности, для которого будет выполнено неравенство
Даны позитивные числа а, х , е. у последвательности y1,y2......,образованой по...

Найти первый член последовательности для которого будет выполнено |a n -a n-1 |<ε
Пожалуйста помогите решить задачу на языке Pascal:Пользователь вводит...

В матрице заменить первый отрицательный элемент максимальным элементом
Структура данных 1)Дана целочисленная матрица A(N,M). Вычислить сумму и...


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

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

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