Перевод из 10-ой СС в 2-чную СС

[Кирилл Юрьевич]

Не могу понять, почему программа работает правильно, только если число (ch10) не превышает 1023 ?

Program Sistemy_schislenija;
Uses CRT;
Var ch2,ch10,k,a:integer;
Begin
k:=1;
ch2:=0;
Writeln('Введите число в десятичной СС ');
Readln(ch10);
a:=ch10;
While ch10>=1 do
      begin
      ch2:=ch2+(ch10 mod 2)*k;
      ch10:=ch10 div 2;
      k:=k*10;
      end;
Writeln('Вот как число ',a,' выглядит в двоичном коде : ',ch2);
End.
// ch10 - число в обычном 10-ом виде
// ch2 - число в 2-ичном  виде
// k - счётчик перехода в след. разряд, т.к число в 2-ичном коде пишется с конца
// a - просто изначальное 10-ичное, то же что и ch10

P.S.
Кому не трудно - ответьте в skype'е
Мой логин там - icq3749860

[Ghost of Night]

На Делфи это выглядит так, только не помню, числа по моему выводятся в обратном порядке, но это можно легко исправить.

procedure dec_bin;
label m1;
begin
 ch:=StrToInt64(Form1.Edit2.Text);
 m1:
 otv:=Trunc(ch / 2);
 otv2:=ch mod 2;
 Form1.Memo1.Lines.Add(IntToStr(otv2));

 if otv<2 then Form1.Memo1.Lines.Add(FloatToStr(otv))
 else
  begin
   ch:=Round(otv);
   goto m1;
  end;
end;

[Serge_Bliznykov]

Кирилл Юрьевич
потому что, Вы придумали (или нашли где-то) очень корявую идею:
ch2 (где Вы получаете двоичное число), на самом деле это не ДВОИЧНОЕ число, это десятичное число, только состоящее из 1 и 0 и запись которого совпадает с записью двоичного числа.
попробуйте выкинуть напрочь K (ибо не нужно)
sh2 сделать типа string
и написать что-то примерно такое:

sh2 := '';
While ch10>0 do
    begin
      if (ch10 mod 2)=1 then
         ch2:= '1'+ch2
      else  
         ch2:= '0'+ch2;
      ch10:=ch10 div 2;
   end;

p.s. код писал прямо в браузере и не проверял..

[Кирилл Юрьевич]

"Корявая идея" :D
Спасибо, понял

Program Sistemy_schislenija;
Uses CRT;
Var  ch:integer;st:string;
Begin
writeln('Введите 10-ичное число ');
write('Чичло: ');
readln(ch);
while ch >=1 do
      begin
      If(ch mod 2)=1 then
            begin
            st:='1'+st;
            ch:=ch div 2;
            end
      else
          begin
          st:='0'+st;
          ch:=ch div 2;
          end;
      end;
writeln('А вот и его двоичный код: ',st);
End.

Хорош?

[Serge_Bliznykov]

ну я бы вынес ch:ch div 2 за if
а так - да, вполне себе нормально.

p.s. ну "чичло" исправьте...