Системы счисления.

[MrCyber]

Системы счисления.

Помогите написать простую задачку по переводу из десятичной в двоичную системы счисления. Просьба - не использовать массивы. Заранее спасибо!

 

[AlexZir]

Язык программирования какой?

 

[LAMPARD]

Паскаль скорее .у меня дома решенное где то есть , как найду выложу

 

[KiD2]

Хм это уже было... http://www.tehnari.ru/f43/t25826/

 

[Vladimir_S]

Хм это уже было... http://www.tehnari.ru/f43/t25826/

Надо же... и впрямь. Впрочем, сейчас нарисовал попроще, без функции. Если действительно Паскаль, и если речь идёт о преобразовании только целых положительных чисел, то можно так:

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.

 

[Vladimir_S]

И еще чуть более "продвинутый" вариант. Здесь программа зациклена и прерывается, если введен 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.

 

[FPS]

Извиняюсь, что немного не по теме, новую не хотел создавать, не подскажите в какой системе счисления 3 x 3 = 10? Чёто я никак не могу сообразить, не в восьмеричной случайно?)

 

[MrSTEP]

Извиняюсь, что немного не по теме, новую не хотел создавать, не подскажите в какой системе счисления 3 x 3 = 10? Чёто я никак не могу сообразить, не в восьмеричной случайно?)

Именно в ней.

 

[AlexZir]

3*3 в десятичной равно 9. Для числа 3 переполнения разряда нет, то есть это допустимое значение разряда. Нужно подобрать такую систему счисления, чтобы было переполнение разряда ровно на 1, то есть, так как полученное значение равно 10 и присутствует перевод 1 в старший разряд, то результат произведения совпадает с основанием системы счисления. Отсюда система счисления имеет основанием число 9. Допустимые значения разряда - 0, 1, 2, 3, 4, 5, 6, 7, 8, переполнение разряда возникает при попытке использовать число 9 и большее.

Ответ - в девятиричной системе счисления.

 

[MrSTEP]

Да, вот на таких мелочах я вечно заваливаюсь...

 

[FPS]

AlexZir, большое спасибо за разъяснение =)