Перевод десятичного числа в двоичное ( необычный способ )

@IvanVro · Регистрация: 01.10.2021

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

Здравствуйте!

Нам на днях задали написать программу для перевода чисел из одной системы счисления в другую. Я начал с написания программы , которая переводила бы числа из десятичной системы в двоичную, написать её я решил сам. Получилось у меня , наверное , криво, но зато сам сделал. Программа банально делит на два и фиксирует остаток ,а позже остаток записывается наоборот. Однако, это работает до 512. С 512 программа начинает писать странные числа ( по типу 1829212.1 ). Я сижу и не могу понять, откуда они берутся.

Подскажите ,пожалуйста , почему программа не работает именно с 512 и как это можно исправить?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 var
    t,tw,s2,i,p,s,j,oppa:integer;
    h,k,x:real;  
   begin
     read(s2);
     oppa:=0;
     s:=10;
     j:=1;
     tw:=s2 mod 2; 
      t:=s2 div 2;
      repeat 
       tw:=t mod 2;
       t:=t div 2;
       j:=j*10;
       if tw=1 then
         begin
         oppa:=(s*j)+oppa;
         end
         else
           oppa:=oppa;
     until t<1;
    writeln(' ');
    writeln(' ');
    if (s2 mod 2 = 0) then
    writeln('Нормальный вид - ',oppa/10)
    else 
      writeln('Нормальный вид - ',(oppa/10)+1);
   end.

@bormant · 02.10.2021, 13:04

Вы пытались написать что-то такое:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n, m, b: Longint;
begin
  Write('Число: ');
  ReadLn(n);
  m:=1; {b:=0;}
  while n>0 do begin
    b:=b+n mod 2*m;
    m:=m*10;
    n:=n div 2;
  end;
  WriteLn('Двоичное: ',b);
end.

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

не могу понять, откуда они берутся

Не хватает разрядности, чтобы записать результирующее десятичное число -- да-да, в b строится довольно большое десятичное число. Например, для LongInt допустимый диапазон -- -2 147 483 648 .. 2 147 483 647, т.е. максимальное число из 0 и 1: 1 111 111 111, а это 1023(10), то, что больше, не вместится.
Если у вас 16-бийтное целое, его диапазон -32 768 .. 32 767, а максимальное число из 0 и 1: 11 111, а это 31(10).

@IvanVro · 02.10.2021, 13:58 **[ТС]**

Спасибо, исправил.

@bormant · 02.10.2021, 18:37

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

исправил

Любопытно увидеть, что именно и каким образом.
Хинт: использование строки для хранения бинарного представления позволит избежать описанного выше ограничения.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@IvanVro 0 / 0 / 0 Регистрация: 01.10.2021 Сообщений: 2
	02.10.2021, 13:58 [ТС]
	Спасибо, исправил. 0

Перевод десятичного числа в двоичное ( необычный способ )

Решение