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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2011, 20:07   #1
sp.caster
Пользователь
 
Регистрация: 29.01.2009
Сообщений: 60
По умолчанию определить минимальное основание системы счисления

Определить минимальное основание системы счисления, в которой запись числа n выглядит как 1 и несколько (возможно 0) нулей. Есть у кого какие идеи, ток пожалуйста не в двух умных словах, а подробнее
sp.caster вне форума Ответить с цитированием
Старый 07.04.2011, 22:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Определить минимальное основание системы счисления, в которой запись числа n выглядит как 1 и несколько (возможно 0) нулей
определил-двоичная
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 07.04.2011, 22:34   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Mad_Cat
определил-двоичная
угу. согласен с Mad_Cat.

и вообще. находите самую большую цифру (букву, имеющую цифровое значение) в записи числа. Эта величина + 1 и даст минимальное основание системы счисления, которое может представлять данная запись...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 09.04.2011, 12:42   #4
sp.caster
Пользователь
 
Регистрация: 29.01.2009
Сообщений: 60
По умолчанию

хм, спасибо, а как это закодить не подскажите?
sp.caster вне форума Ответить с цитированием
Старый 09.04.2011, 13:49   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

для
Цитата:
n выглядит как 1 и несколько (возможно 0) нулей.
Код:
im:=1;
for i:=1 to length(n) do
if n[i]>n[im] then im:=i;
Writeln(ord(n[im])-ord('0')+1);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 09.04.2011 в 13:52.
Mad_Cat вне форума Ответить с цитированием
Старый 16.04.2011, 17:19   #6
sp.caster
Пользователь
 
Регистрация: 29.01.2009
Сообщений: 60
По умолчанию

большое спасибо=)

Последний раз редактировалось sp.caster; 17.04.2011 в 09:02.
sp.caster вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Системы счисления. C++ Alovar Помощь студентам 2 25.12.2010 23:26
Системы счисления.10->5-7. Corpinccom Помощь студентам 0 22.09.2010 12:54
Системы Счисления amki6 Помощь студентам 0 11.03.2010 18:32
Определить максимальное/минимальное значение функции y=f(x) astrozombie Помощь студентам 2 16.02.2009 13:52
Определить в тексте слово, содержащее минимальное число согласных stasig Помощь студентам 3 15.02.2009 13:11