Перевод из десятичной системы в двоичную

@Levik_777 · Регистрация: 25.11.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте!
помогите пожалуйста написать программу, переводящую целые числа из десятичной системы счисления в двоичную. не могу догадаться как записыватьединицы и нули. знаю, что всё время надо делить на 2.
надо ли делать массив в программе?
заранее благодарю.

@Напильнег · 28.07.2013, 17:55

Сообщение от Новичок

Но пост 6 самое классное решение-рекурсивное.

Но оно не решает поставленную задачу - поэтому не считается.

ЗЫ: Внимательно читаем условие.

@Puporev · 28.07.2013, 18:01

Ваш вариант условия

Сообщение от Напильнег

смысл задания - надо вывести двоичное представление числа,

Но в первом посте написано

Сообщение от Levik_777

написать программу, переводящую целые числа из десятичной системы счисления в двоичную.

Мне кажется что это разные вещи, вывести на экран двоичное представление числа и сохранить его в переменной целого типа.

@Напильнег · 28.07.2013, 18:10

Не то...

Внутре число в двоичном виде и так находится (переводится readln-ом в момент ввода), надо как раз вывести на экран. Но приведенные программы не решают задачу вывода на экран двоичного представления целого числа - в том то и дело.

ЗЫ: Поясню уж для убогих, а то вы тут долго тыркаться-пыркаться не в те углы будете - существует контрпример (и не один), для которого приведенные решения выводят неверный результат.

@Напильнег · 30.07.2013, 00:10

И тишина... (С)

Ладно, дивитесь:

Кликните здесь для просмотра всего текста

Где в условии написано, что целое число обязательно положительное?

Новичок · 30.07.2013, 00:13

А,это верно.Правда как же

Сообщение от Напильнег

Эх, Пупорев, Пупорев... Ноль и отрицательные числа не переводит...

?

@Dmitrystud · 12.05.2015, 19:34

nepalcemdelan, объясните,пожалуйста,как данная строка работает:

Pascal
1
 s:=chr(ord('0')+x mod 2)+s;

зачем Вы пишете ord('0')?

@APALoff · 13.05.2015, 02:04

Сообщение от Dmitrystud

зачем Вы пишете ord('0')?

function Ord(a: char): byte;
Преобразует символ в код в кодировке Windows

1. Не требуется знать/запоминать код символа.
2. В отличии от прямого использования кода символа '0', данная реализация независима от шрифтов (если такие встретятся), в которых код нуля имеет другое значение (при условии, что для реализации алгоритма очередность символов "более-менее" соблюдается).

@Dmitrystud · 21.05.2015, 16:08

APALoff, а можете поподробнее описать,почему без этого ord('0') программа не будет работать? почему нельзя остаток от деления перевести в строковый тип просто?зачем мы прибавляем этот ord

@APALoff · 21.05.2015, 16:16

Сообщение от Dmitrystud

почему без этого ord('0') программа не будет работать?

А нигде и не написано, что без этого не будет работать - почитайте мой пост еще раз, там указано что делает данная функция.
Да, вместо Ord('0') можно сразу написать ASCII код символа '0', но сделано так как сделано по причинам описанным мною в посте выше.

Сообщение от Dmitrystud

почему нельзя остаток от деления перевести в строковый тип просто?

Именно это и делается.

Сообщение от Dmitrystud

зачем мы прибавляем этот ord

Мы ходим по кругу одних и тех же вопросов - пока Вы себе не уясните как работают функции Ord и Chr разговаривать не о чем.

@Dmitrystud · 21.05.2015, 17:08

APALoff, я понимаю,как работают функции ord и char: первая переводит символ в его числовой код, вторая - наоборот.

Сообщение от APALoff

А нигде и не написано, что без этого не будет работать

Но вот я из строки s:=chr(ord('0')+x mod 2)+s убираю ord('0'). имеем s:=chr(x mod 2)+s. в итоге код не запускается.

@Puporev · 21.05.2015, 17:17

chr(x mod 2) это символы с кодами 0 и 1, интересно что Вы этим хотите получить? Если хотите получить цифры 0 и 1, нужно к этим кодам прибавить ord('0')=48

@Dmitrystud · 21.05.2015, 17:23

Puporev,всё,дошло,как работает.

@APALoff · 21.05.2015, 17:36

Сообщение от Dmitrystud

в итоге код не запускается.

Потому я и писал:

Сообщение от APALoff

а, вместо Ord('0') можно сразу написать ASCII код символа '0',

@Cyborg Drone · 23.05.2015, 21:52

Сообщение от yanyk1n

Ну проще уже некуда

Проще есть куда.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i, x: integer;
begin
  write('x (decimal) = ');
  readln(x);
  write('x (bynary ) = ');
  for i := 1 to sizeof(x) * 8 do
    begin
      write(chr(byte('0') or ord(x < 0)));
      x := x shl 1
    end;
  readln
end.

@APALoff · 24.05.2015, 22:13

А так? Программа перевода из девятеричной системы счисления в троичную

Добавлено через 29 секунд
Но только для положительных.

Новичок · 25.05.2015, 19:50

APALoff, а смысл юзать рекурсию если и без нее можно?

@APALoff · 25.05.2015, 20:15

Особого смысла конечно нет, но получилось коротко, практически в одну строку.

@Cyborg Drone · 26.05.2015, 10:52

Сообщение от APALoff

получилось коротко

Вот и смысл. При прочих равных условиях программа с рекурсией получается компактнее, нежели программа с циклом.

@APALoff · 26.05.2015, 11:07

Еще один, как мне кажется, достойный вариант. (без рекурсии)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Function ToBin(a : Longint) : String;
Var s : String;
Begin
  s:='';
  While a>0 do
  Begin
    s:=Chr(Ord('0')+Ord(((a shr 1) shl 1)<>a))+s;
    a:=a shr 1;
  end;
  If s='' then s:='0';
  ToBin:=s;
end;

@bormant · 27.05.2015, 14:10

APALoff,
а не проще ли тогда

Pascal
7
    s:=Chr(Ord('0')+a and 1)+s;

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@Levik_777 1 / 1 / 0 Регистрация: 25.11.2009 Сообщений: 15

	Перевод из десятичной системы в двоичную 24.02.2010, 22:47. Показов 147267. Ответов 50 Метки нет (Все метки) Здравствуйте! помогите пожалуйста написать программу, переводящую целые числа из десятичной системы счисления в двоичную. не могу догадаться как записыватьединицы и нули. знаю, что всё время надо делить на 2. надо ли делать массив в программе? заранее благодарю. 1

@Напильнег 481 / 119 / 17 Регистрация: 30.09.2010 Сообщений: 473
	28.07.2013, 18:10
	Не то... Внутре число в двоичном виде и так находится (переводится readln-ом в момент ввода), надо как раз вывести на экран. Но приведенные программы не решают задачу вывода на экран двоичного представления целого числа - в том то и дело. ЗЫ: Поясню уж для убогих, а то вы тут долго тыркаться-пыркаться не в те углы будете - существует контрпример (и не один), для которого приведенные решения выводят неверный результат. 0

@Напильнег 481 / 119 / 17 Регистрация: 30.09.2010 Сообщений: 473
	30.07.2013, 00:10
	И тишина... (С) Ладно, дивитесь: Кликните здесь для просмотра всего текста Где в условии написано, что целое число обязательно положительное? 0

@Dmitrystud 0 / 0 / 0 Регистрация: 09.05.2015 Сообщений: 19
	21.05.2015, 16:08
	APALoff, а можете поподробнее описать,почему без этого ord('0') программа не будет работать? почему нельзя остаток от деления перевести в строковый тип просто?зачем мы прибавляем этот ord 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.05.2015, 17:17
	chr(x mod 2) это символы с кодами 0 и 1, интересно что Вы этим хотите получить? Если хотите получить цифры 0 и 1, нужно к этим кодам прибавить ord('0')=48 0

@Dmitrystud 0 / 0 / 0 Регистрация: 09.05.2015 Сообщений: 19
	21.05.2015, 17:23
	Puporev,всё,дошло,как работает. 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	24.05.2015, 22:13
	А так? Программа перевода из девятеричной системы счисления в троичную Добавлено через 29 секунд Но только для положительных. 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,361
	25.05.2015, 19:50
	APALoff, а смысл юзать рекурсию если и без нее можно? 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	25.05.2015, 20:15
	Особого смысла конечно нет, но получилось коротко, практически в одну строку. 0