Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Системы счисления 
V
    Опции темы
saysmonic
Дата 26.7.2011, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.7.2011

Репутация: нет
Всего: нет



Объясните пожалуйста как можно решить программно данную задачу 

Для каждого числа из заданного набора чисел в десятичной системе счисления определите наименьшее основание системы счисления, в которой данное число будет записываться не более чем 5 цифрами. 
Например, для числа 35 ответ 3, так как для записи числа 35 в двоичной системе счисления необходимо 6 цифр (1000112), а в троичной – 4 цифры (10223). 
Найдите ответы для набора (1000,14348906,161051). 
Ответы введите через запятую, без пробелов. 
Ответ: 4,27,11. 

P.S. ответ желательно на Си или Pascal
PM MAIL   Вверх
PascalC
Дата 28.7.2011, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 19.10.2008

Репутация: нет
Всего: нет



неправильно записано условие 35=100011 по основанию 2, и 1022 по основанию три
решать просто - максимальное число = ((основание системы счисления)^(кол-во цифр))-1
(a^b)-1=n
a^b=n+1
нам надо найти наименьшее a при условии что b<=5
делаем цикл с условием: выход при b<=5
на каждом шаге к a прибавляем 1
и вычисляем b - округляем логорифм от a по основанию n+1
b=trunc(ln(a)/ln(n+1));
PM MAIL   Вверх
Poseidon
Дата 28.7.2011, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133



Каникулы же вроди. Откуда тут лабы начинают появляться..?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
northener
Дата 29.7.2011, 01:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20



Цитата(Poseidon @  28.7.2011,  16:20 Найти цитируемый пост)
Каникулы же вроди. Откуда тут лабы начинают появляться..? 

Это не лаба. Это скорее всего зачет. Или курсовая-контрольная.
А судя по самому вопросу - эта курсовая-контрольная задана учащемуся в кулинарном техникуме.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
saysmonic
Дата 29.7.2011, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.7.2011

Репутация: нет
Всего: нет



Цитата
Цитата

Каникулы же вроди. Откуда тут лабы начинают появляться..? 

Это не лаба. Это скорее всего зачет. Или курсовая-контрольная.
А судя по самому вопросу - эта курсовая-контрольная задана учащемуся в кулинарном техникуме


Ребят не поверите, существуют люди у которых программирование это хобби smile

Добавлено через 2 минуты и 22 секунды
Спасибо за беспокойство, я нашел решение может кому то понадобится 
Код

function Osnovanie(Num : Longint; Length : Byte) : Byte; 
var 
N : Longint; 
Kol : Word; 
Osn : Byte; 
begin 
Osn := 1; 
repeat 
Inc(Osn); 
WriteLn(Num, ' -> (', Osn, ')'); 
N := Num; 
Kol := 0; 
repeat 
Inc(Kol); 
WriteLn(Kol, ') ', N, ' -> ', N div Osn); 
N := N div Osn; 
until N = 0; 
until Kol <= Length; 

Osnovanie := Osn; 
end; 

begin 
Write('Ответ: ', Osnovanie(1000, 5), ',', Osnovanie(14348906, 5), ',', Osnovanie(161051, 5), '.'); 
end.

PM MAIL   Вверх
Poseidon
Дата 29.7.2011, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133



Цитата(saysmonic @  29.7.2011,  08:50 Найти цитируемый пост)
Ребят не поверите, существуют люди у которых программирование это хобби
Хобби, расскажи нам практическую задачу, в которой может понадобится решение данной задачи. Такой "бред" только в универех задают.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
saysmonic
Дата 29.7.2011, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.7.2011

Репутация: нет
Всего: нет



Цитата

Хобби, расскажи нам практическую задачу, в которой может понадобится решение данной задачи. Такой "бред" только в универех задают.


Объясню ситуацию, эта одна из олимпиадных задач, которые были в третьем туре в апреле этого года. вопросы?
PM MAIL   Вверх
Poseidon
Дата 31.7.2011, 23:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133



Ну как я и говорил: 
Цитата(Poseidon @  29.7.2011,  13:21 Найти цитируемый пост)
Такой "бред" только в универех задают.



saysmonic, в следующий раз подобный бред пиши сюда. На крайний случай, если бред окажется достойным, то сюда. Но никак не в тематический раздел. Вопросы?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
saysmonic
Дата 1.8.2011, 07:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.7.2011

Репутация: нет
Всего: нет



Цитата

saysmonic, в следующий раз подобный бред пиши сюда. На крайний случай, если бред окажется достойным, то сюда. Но никак не в тематический раздел. Вопросы?


Poseidon, приму к сведению твои советы, просто первый раз на форуме, нашел первую попавшеюся ветку "Delphi: для начинающих" и кинул сюда ибо ответ на delphi меня тоже вполне устраивает. 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0629 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.