Написать программу перевода числа из двоичного кода в прямой, обратный и дополнительный

@RossWales · Регистрация: 12.05.2015

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

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program laba5;
{***************************************************************}
function dec2bin(v: integer): string;
var
  l: string;
begin
  l := '';
  while v > 0 do
  begin
    l := chr(ord('0') + v mod 2) + l;
    v := v div 2;
  end;
  dec2bin := l;
end;
{***************************************************************}
var
  m, h, t, s, x, p: string;
  z: char;
  d, k, n, i: integer;
  v, err: integer;
 
begin
  Write('Введите число в десятичной системме счисления: ');
  Readln(x);
  s := '0';
  p := '0';
  if x[1] = '-' then
  begin
    s := '1';
    Delete(x, 1, 1);
  end;
  {------------------------------}
  Val(x, v, err);
  t := '';
  x := dec2bin(v) + t;
  {------------------------------}
  i := length(x);
  n := 7 - i;
  if n >= 0 then 
  begin
    k := 1;
    for k := 1 to n do 
      x := p + x;
  end;
  x := s + x;
  Writeln('Прямой код: ', x);
  z := x[1];
  if z = '1' then 
  begin
    h := copy(x, 2, 8);
    m := '';
    for k := 1 to 7 do 
    begin
      if h[k] = '1' then
        m := m + '0';
      if h[k] = '0' then
        m := m + '1';
    end;
    x := z + m;
  end
  else writeln('Обратный код: ',x);
  
  
end.

ФедосеевПавел · 14.05.2015, 16:18

В дополнительный код:
1. Если число положительное - ничего не делать
2. Если число отрицательное: сделать инверсию всех бит и прибавить 1
Например -9
-9₁₀=-1001₂=-0000 1001₂=(1111 0110 + 1)_{2 доп}=11110111_{2 доп}

@RossWales · 14.05.2015, 20:01 **[ТС]**

В дополнительный код:
1. Если число положительное - ничего не делать
2. Если число отрицательное: сделать инверсию всех бит и прибавить 1
Например -9
-910=-10012=-0000 10012=(1111 0110 + 1)2 доп=111101112 доп

Я понимаю, что нужно делать , но не могу реализовать это действие в Паскале , а именно прибавка 1 , ведь в двоичном коде не может быть двойки ... а по этому нужно сделать смещение остатка

ФедосеевПавел · 14.05.2015, 21:02

Хорошо. Покажи, что из этого (инверсия и +1) можешь реализовать и реализуй.

@RossWales · 14.05.2015, 21:46 **[ТС]**

Хорошо. Покажи, что из этого (инверсия и +1) можешь реализовать и реализуй.

Так наша инверсия , это и есть обратный код , нужно к обратному коду прибавить 1 . Я правильно понял ?

ФедосеевПавел · 14.05.2015, 22:15

Наверное нет... Там какие-то лишние символы в начале.
Тогда +1 так:
Просматриваешь строку с символами "0" и "1" от младших разрядов к старшим. Если символ равен "1" - заменяешь на "0" и к следующему символу. Если символ равен "0" - заменяешь на "1" и выход из цикла.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
var
  t, s, x, p, m: string;
  k, n, i: integer;
  v, err:  integer;
 
begin
  Write('Введите число в десятичной системме счисления: ');
  Readln(x);
  s := '0';
  p := '0';
  if x[1] = '-' then
  begin
    s := '1';
    Delete(x, 1, 1);
  end;
  {------------------------------}
  Val(x, v, err);
  t := '';
  x := dec2bin(v) + t;
  {------------------------------}
  i := length(x);
  n := 8 - i;
  if n >= 0 then
  begin
    k := 1;
    for k := 1 to n do
      x := p + x;
  end;
  Writeln('Прямой код: ', x);
  if s = '1' then
  begin
    m := x;
    {инверсия}
    for k := 1 to length(x) do
      if m[k] = '1' then
        m[k] := '0'
      else
        m[k] := '1';
    {+1}
    for k := length(x) downto 1 do
      if m[k] = '1' then
        m[k] := '0'
      else
      begin
        m[k] := '1';
        break;
      end;
    writeln('Дополнительный код: ', m);
    {----------------------------------}
    m := x;
    m[1] := '1';
    writeln('Обратный код: ', m);
  end;
end.

Я так понял, что нужно привести прямой код (двоичное представление абсолютного значения числа), дополнительный код отрицательного числа и ещё одно представление отрицательных чисел (в программе его название "обратный код").
-----------------
Это фрагмент. Надеюсь правильно понял задание.

@RossWales · 14.05.2015, 23:09 **[ТС]**

Задание звучит так: Написать программу перевода числа из двоичного кода в прямой , обратный и дополнительный. Входными данными должны быть числа в 10-чной системе счисления.

ФедосеевПавел · 14.05.2015, 23:24

Ну, надеюсь, правильно. Я ведь слегка подкорректировал процесс вычисления кодов. Логика работы - без изменений.

@RossWales · 15.05.2015, 01:01 **[ТС]**

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
function dec2bin(v: integer): string;
var
  l: string;
begin
  l := '';
  while v > 0 do
  
  begin
    l := chr(ord('0') + v mod 2) + l;
    v := v div 2;
  end;
  dec2bin := l;
end;
 
var
  t, s, x, p, m: string;
  k, n, i: integer;
  v, err:  integer;
 
begin
  Write('Введите число в десятичной системме счисления: ');
  Readln(x);
  s := '0';
  p := '0';
  if x[1] = '-' then
  begin
    s := '1';
    Delete(x, 1, 1);
  end;
  {------------------------------}
  Val(x, v, err);
  t := '';
  x := dec2bin(v) + t;
  {------------------------------}
  i := length(x);
  n := 8 - i;
  if n >= 0 then
  begin
    k := 1;
    for k := 1 to n do
      x := p + x;
  end;
  Writeln('Прямой код: ', x);
  if s = '1' then
  begin
    m := x;
    {инверсия}
    for k := 1 to length(x) do
      if m[k] = '1' then
        m[k] := '0'
      else
        m[k] := '1';
    {+1}
    for k := length(x) downto 1 do
      if m[k] = '1' then
        m[k] := '0'
      else
      begin
        m[k] := '1';
        break;
      end;
    writeln('Дополнительный код: ', m);
    {----------------------------------}
    m := x;
    m[1] := '1';
    writeln('Обратный код: ', m);
  end;
end.

Вот результат наших трудов. Спасибо за помощь

@Dinatokera · 14.12.2018, 03:57

А как можно эту программу переделать, что бы была не 2 а 10 система????
(Написать программу первода 10-й системы, отрицательного числа в обратные и доп. коды, и обратно)

Добавлено через 9 минут
Прошу прощения, розабралась

спасибо вам)))

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

ФедосеевПавел Модератор 8644 / 4479 / 1669 Регистрация: 01.02.2015 Сообщений: 13,884 Записей в блоге: 11
	14.05.2015, 16:18
	В дополнительный код: 1. Если число положительное - ничего не делать 2. Если число отрицательное: сделать инверсию всех бит и прибавить 1 Например -9 -9₁₀=-1001₂=-0000 1001₂=(1111 0110 + 1)_{2 доп}=11110111_{2 доп} 0

ФедосеевПавел Модератор 8644 / 4479 / 1669 Регистрация: 01.02.2015 Сообщений: 13,884 Записей в блоге: 11
	14.05.2015, 21:02
	Хорошо. Покажи, что из этого (инверсия и +1) можешь реализовать и реализуй. 0

@RossWales 4 / 4 / 4 Регистрация: 12.05.2015 Сообщений: 40
	14.05.2015, 23:09 [ТС]
	Задание звучит так: Написать программу перевода числа из двоичного кода в прямой , обратный и дополнительный. Входными данными должны быть числа в 10-чной системе счисления. 0

ФедосеевПавел Модератор 8644 / 4479 / 1669 Регистрация: 01.02.2015 Сообщений: 13,884 Записей в блоге: 11
	14.05.2015, 23:24
	Сообщение было отмечено RossWales как решение Решение Ну, надеюсь, правильно. Я ведь слегка подкорректировал процесс вычисления кодов. Логика работы - без изменений. 1

@Dinatokera 0 / 0 / 1 Регистрация: 17.02.2016 Сообщений: 27
	14.12.2018, 03:57
	А как можно эту программу переделать, что бы была не 2 а 10 система???? (Написать программу первода 10-й системы, отрицательного числа в обратные и доп. коды, и обратно) Добавлено через 9 минут Прошу прощения, розабралась спасибо вам))) 0

Написать программу перевода числа из двоичного кода в прямой, обратный и дополнительный

Решение