|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2017, 19:11 | #1 |
Пользователь
Регистрация: 21.02.2017
Сообщений: 29
|
Найти m-й член последовательности {an} - Free Pascal
Найти m-й член последовательности {an}, если известно, что a1=k (натуральное число), ai+1=2ai - 1, где i=1, 2, 3, ... , и определить, встречается ли в записи результата, хотя бы один раз, цифра 7.
Как сделать что бы m-й член последовательности был задан в массиве, например не меньше 1 и не больше 10000 Код:
|
07.06.2017, 20:30 | #2 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Для относительно не больших m и цикла не нужно, просто: Код:
PS семерку можно и без цикла искать, преобразуй в строку и функция pos
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 07.06.2017 в 20:43. |
|
08.06.2017, 13:41 | #3 |
Пользователь
Регистрация: 21.02.2017
Сообщений: 29
|
мне нужно сделать так, что бы можно было установить границы ai , а если число выходит за эти границы - вывести это в программе
|
08.06.2017, 14:00 | #4 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
p.s.а ещё, судя по документации, в FP есть тип QWord, он вмещает числа намного больше! |
|
08.06.2017, 22:34 | #5 |
Пользователь
Регистрация: 21.02.2017
Сообщений: 29
|
нужно именно через массив
|
08.06.2017, 23:24 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
09.06.2017, 20:03 | #7 |
Пользователь
Регистрация: 21.02.2017
Сообщений: 29
|
я тоже не против, вот только что то не получается ))
|
09.06.2017, 21:30 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
11.06.2017, 23:36 | #9 |
Пользователь
Регистрация: 21.02.2017
Сообщений: 29
|
|
12.06.2017, 03:25 | #10 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти первые n членов, их сумму,найти первый член заданной последовательности больше заданного числа L и указать его номер. | ВолДим | Помощь студентам | 1 | 26.01.2016 18:51 |
Дан первый член и разность арифметической прогрессии, найти член прогрессии с номером n | nomin | Помощь студентам | 2 | 06.12.2014 16:43 |
Найти m-й член последовательности / Pascal ABC | Veronika_13 | Помощь студентам | 1 | 07.07.2014 19:28 |
Вычислить N-й член последовательности(Turbo Pascal) | siato | Помощь студентам | 1 | 27.11.2013 21:33 |
Найти первый отрицательный член последовательности cos(ctg(n)), n=1, 2, 3, …. (Delphi) | shablakov | Помощь студентам | 1 | 24.06.2013 17:13 |