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

[diflesh2008]

плз помогите написать программу на паскале abc для перевода чисел из десятичной в двоичную....

[Novi4ok_11]

http://programmersforum.ru/showthread.php?t=12841

[k0tone]

Как вам вот такой, я б сказал, креативненький вариантик?)))))

program test;
uses crt;
var b:array [1..255] of integer;
    a,i,n:integer;
begin
clrscr;
write('Vvedite a=');
readln(a);
i:=0;
while a>=1 do
  begin
    if a mod 2 = 0 then
      begin
        a:=a div 2;
        i:=i+1;
        b[i]:=0;
      end
    else
      begin
        a:=a div 2;
        i:=i+1;
        b[i]:=1;
      end;
  end;
n:=i;
for i:=n downto 1 do
write(b[i]:3);
readln;
end.

[AlkaloiD]

хы, интересно что креативного в этом?!
по "креативненький вариантик":
- не жирно ли использовать int для "0" и "1"? bool не устраивает?

b : array [1..255] of integer;

про форматирование молчу.. и кто так учил называть переменные? смысла нет ни какого, плохой тон.
- транслит, тоже плохой стиль.

write('Vvedite a=');

- хм, как минимум можно сократить 2 строчки кода, не изменяя форматирование?

begin
    a := a div 2;
    i := i + 1;
    b[i] := 0;
end
else
begin
    a := a div 2;
    i := i + 1;
    b[i] := 1;
end;

итог, не самый лучший пример. И изобритения колеса не вижу.

[andrewpalkin]

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

...
- хм, как минимум можно сократить 2 строчки кода, не изменяя форматирование?

begin
    a := a div 2;
    i := i + 1;
    b[i] := 0;
end
else
begin
    a := a div 2;
    i := i + 1;
    b[i] := 1;
end;

итог, не самый лучший пример. И изобритения колеса не вижу.

Но если речь зашла о коде , то его можно сделать и так , заменить все это :

while a>=1 do
  begin
    if a mod 2 = 0 then
      begin
        a:=a div 2;
        i:=i+1;
        b[i]:=0;
      end
    else
      begin
        a:=a div 2;
        i:=i+1;
        b[i]:=1;
      end;
  end;

На вот это :

while a>=1 do
  begin
        i:=i+1;
        b[i]:=a mod 2;
        a:=a div 2;   
  end;

P.S. Но вообще здесь просто помогают в написание кода , а не в написание идеального кода , так что я думаю не совсем прилично , делать такие комментарии

[ACE Valery]

AlkaloiD, и в дополнение: если уж критикуете, делайте это не в таком тоне.
Особенно насчет названия переменных. Есть как минимум одна тема, в котороы вы называли переменные так же бессмысленно.

[k0tone]

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

хы, интересно что креативного в этом?!
по "креативненький вариантик":
- не жирно ли использовать int для "0" и "1"? bool не устраивает?

про форматирование молчу.. и кто так учил называть переменные? смысла нет ни какого, плохой тон.
- транслит, тоже плохой стиль.

- хм, как минимум можно сократить 2 строчки кода, не изменяя форматирование?

begin
    a := a div 2;
    i := i + 1;
    b[i] := 0;
end
else
begin
    a := a div 2;
    i := i + 1;
    b[i] := 1;
end;

итог, не самый лучший пример. И изобритения колеса не вижу.

С наступающим Новым Годом! Насчёт моего оформления могу сказать, что всё это было сделано для простоты восприятия поданной информации. Как заметил уважаемый andrewpalkin, всё можно сделать проще. Если вы такой "внимательный", то видели, что уже дважды был поднят вопрос по поводу перевода из десятичной системы в двоичную. И если вы переходили по ссылке выше, то ударение ставилось на деление именно на двойку и как вообще это организовать. В своём примере я специально использовал 0 и 1 чтоб человек увидел саму идею, и понял что всё намного проще чем кажется. С уважением, k0tone!

[dosha]

Друзья програмисты вот такой вопрос а сможете ли вы из двоичной например в HEX иль в троичную?(вопрос для разминки)

[k0tone]

Друзья програмисты вот такой вопрос а сможете ли вы из двоичной например в HEX иль в троичную?(вопрос для разминки)

В HEX когда-то уже делал. Поищу скину, или новый код напишу.

[p51x]

а сможете ли вы из двоичной например в HEX

Смогу, даже в уме. Пиписьками померялись?