Бинарный кодер.

@Одержим Джа · Регистрация: 11.09.2009

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

А проблема вот в чём. Учиться на факультете программирования я начал совсем недавно и мне вот дали такую задачку: Написать программу, которая при вводе какого либо числа, преобразовывала его в бинарный код. Помогите кто чем сможет)

@demidrolll · 12.09.2009, 00:32

5 минут в Google + 10 минут подкорректировать, и вот результат:

Pascal

uses
  crt;
var
  a: integer;
 
function dec2bin(dec: longint): string;
var
  bin : string;
  i,j: longint;
begin
  if dec = 0 then
    bin := '0'
  else
  begin
    bin := '';
    i := 0;
    while (1 shl (i + 1)) <=dec do
      i := i + 1;
    for j := 0 to i do
    begin
      if (dec shr (i - j)) = 1 then
        bin := bin + '1'
      else
        bin := bin + '0';
      dec := dec and ((1 shl (I - J)) - 1);
    end;
  end;
dec2bin := bin;
end;
 
begin
  clrscr;
  write('Wwedite chislo: ');
  readln(a);
  write('Bin = ',Dec2bin(a));
  readkey;
end.

@Одержим Джа · 12.09.2009, 04:40 **[ТС]**

Спасибо огромное! Вы мне очень помогли =)

@odip · 12.09.2009, 20:17

Как-то длинно сильно - в C это одной функцией делается - itoa().

@Puporev · 12.09.2009, 20:40

[QUOTE]Как-то длинно сильно - в C это одной функцией делается - itoa()./QUOTE]
Так это же Паскаль! Только тут и научишься ручками переводить из системы в систему, а то типа С и Делфи только тупят народ. В Делфи тоже одной строкой типа DecToBin как-то

@Одержим Джа 0 / 0 / 0 Регистрация: 11.09.2009 Сообщений: 8
		1
	Бинарный кодер. 11.09.2009, 20:10. Показов 1236. Ответов 4 Метки нет (Все метки) А проблема вот в чём. Учиться на факультете программирования я начал совсем недавно и мне вот дали такую задачку: Написать программу, которая при вводе какого либо числа, преобразовывала его в бинарный код. Помогите кто чем сможет) 0

@Одержим Джа 0 / 0 / 0 Регистрация: 11.09.2009 Сообщений: 8
	12.09.2009, 04:40 [ТС]	3
	Спасибо огромное! Вы мне очень помогли =) 0

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	12.09.2009, 20:17	4
	Как-то длинно сильно - в C это одной функцией делается - itoa(). 0

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.09.2009, 20:40	5
	[QUOTE]Как-то длинно сильно - в C это одной функцией делается - itoa()./QUOTE] Так это же Паскаль! Только тут и научишься ручками переводить из системы в систему, а то типа С и Делфи только тупят народ. В Делфи тоже одной строкой типа DecToBin как-то 0