26.09.2010, 22:38 | #1 (permalink) |
Новичок
Регистрация: 26.09.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Системы счисления.
|
26.09.2010, 22:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот полезные ссылки, по которым содержится похожая информация Усилитель для системы 2.1 Системы счисления Помогите написать программу на Паскаль на системы счисления Восстановление системы Арифметические операции в двоичной системе счисления Система счисления в Делфи |
27.09.2010, 10:12 | #4 (permalink) |
Member
Регистрация: 07.06.2010
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Хм это уже было... Задача перевода цифр из десятичной в двоичную
|
27.09.2010, 10:17 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR Dec_Num:LongInt; n, i:INTEGER; BEGIN Write('Enter the decimal number: '); ReadLn(Dec_Num); n:=TRUNC(Ln(1.0*Dec_Num)/Ln(2.0)); Write('Binary number: '); For i:=n downto 0 do begin Write((Dec_Num div ROUND(Exp(i*Ln(2.0))))); Dec_Num:=Dec_Num mod ROUND(Exp(i*Ln(2.0))); end; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.09.2010, 10:34 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И еще чуть более "продвинутый" вариант. Здесь программа зациклена и прерывается, если введен 0:
Код:
VAR Dec_Num, Ex_code:LongInt; n, i:INTEGER; BEGIN REPEAT Write('Enter the decimal number, "0" to exit: '); ReadLn(Dec_Num); Ex_code:=Dec_Num; If Ex_code>0 then begin n:=TRUNC(Ln(1.0*Dec_Num)/Ln(2.0)); Write('Binary number: '); For i:=n downto 0 do begin Write((Dec_Num div ROUND(Exp(i*Ln(2.0))))); Dec_Num:=Dec_Num mod ROUND(Exp(i*Ln(2.0))); end; WriteLn; WriteLn; end; UNTIL Ex_code=0; END. |
15.02.2011, 23:33 | #7 (permalink) |
Member
Регистрация: 11.11.2010
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Извиняюсь, что немного не по теме, новую не хотел создавать, не подскажите в какой системе счисления 3 x 3 = 10? Чёто я никак не могу сообразить, не в восьмеричной случайно?)
|
16.02.2011, 06:55 | #9 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
3*3 в десятичной равно 9. Для числа 3 переполнения разряда нет, то есть это допустимое значение разряда. Нужно подобрать такую систему счисления, чтобы было переполнение разряда ровно на 1, то есть, так как полученное значение равно 10 и присутствует перевод 1 в старший разряд, то результат произведения совпадает с основанием системы счисления. Отсюда система счисления имеет основанием число 9. Допустимые значения разряда - 0, 1, 2, 3, 4, 5, 6, 7, 8, переполнение разряда возникает при попытке использовать число 9 и большее.
Ответ - в девятиричной системе счисления.
__________________
Убить всех человеков! |
16.02.2011, 10:01 | #10 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Да, вот на таких мелочах я вечно заваливаюсь...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|