Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2009, 08:56   #1
Юрий2009
Пользователь
 
Регистрация: 17.01.2009
Сообщений: 32
Сообщение Задача на Delphi 7

Помогите пожалуйста составить программу!
Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2,3 и 5. Найти:
а) первые N элементов этой последовательности;
б) сумму первых N элементов;
в) N -й элемент по заданному номеру N ;
г) первый элемент, больший данного числа M, а также номер этого элемента в последовательности;
д) сумму всех элементов с номера N по номер M.
Спасибо большое!!!!
Юрий2009 вне форума Ответить с цитированием
Старый 07.05.2009, 09:43   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

показывайте наработки
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 07.05.2009, 10:43   #3
Дикий
Пользователь
 
Аватар для Дикий
 
Регистрация: 10.05.2008
Сообщений: 89
По умолчанию

хотя бы вами сделанную блок схему
и вариант решения в текстовом варианте.
тогда с кодом уж думаю помогут
...у зверя свобода её лишь ищи...

Дикий 21.08.2005
Дикий вне форума Ответить с цитированием
Старый 07.05.2009, 12:33   #4
MalCer
Форумчанин
 
Аватар для MalCer
 
Регистрация: 15.07.2008
Сообщений: 615
По умолчанию

Где то была подобная тема, где именно я не помню, но код помню:

Код:
k:=1;
i:=1;
repeat
if k mod 2=0 then 
i :=i*3
else
if k mod 3=0 then
i :=i*5
else
i :=i*2
writeln(i);
inc(k);
until k>=n
xor eax, eax
xchg [eax], eax
MalCer вне форума Ответить с цитированием
Старый 07.05.2009, 14:02   #5
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Цитата:
Где то была подобная тема
вот эта тема!!!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Delphi stscolt Помощь студентам 1 28.04.2009 21:11
Задача по Delphi 7 StudentMarat Помощь студентам 4 16.04.2009 16:37
Задача на Delphi 7 Broadway Помощь студентам 6 04.04.2009 19:40
Задача в DELPHI. Absent Помощь студентам 7 25.02.2008 14:04
Задача в Delphi Oksana11 Помощь студентам 3 22.12.2007 00:12