Сложение (вычитание) двоичных чисел в дополнительном коде

@33bobra33 · Регистрация: 22.09.2015

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

Сложение (вычитание) двоичных чисел в дополнительном коде.Можно не писать нахождение дополнительного кода

@abit · 25.03.2016, 01:31

Pascal

type
   TInt=word;
 
function convert(const a:Tint):TInt;
begin
  if a<0
    then convert:=((not a) or (high(Tint) div 2)) + 1
  else convert:=a;
end;
 
function reconvert(const a:Tint):Integer;
begin
  if a>(high(Tint) div 2) then
   begin
     reconvert:=-(high(Tint)-a)-1;
   end
   else reconvert:=a;
end;
 
var
 a,b:TInt;
begin
  a:=convert(10);
  b:=convert(-20);
 
  writeln(reconvert(a),' ', reconvert(b));
  writeln(reconvert(a+b),' ', reconvert(a-b));
  readln;
end.

@33bobra33 0 / 0 / 0 Регистрация: 22.09.2015 Сообщений: 25
		1
	Сложение (вычитание) двоичных чисел в дополнительном коде 25.03.2016, 01:00. Показов 3300. Ответов 1 Метки нет (Все метки) Сложение (вычитание) двоичных чисел в дополнительном коде.Можно не писать нахождение дополнительного кода 0

	25.03.2016, 01:31

Сложение (вычитание) двоичных чисел в дополнительном коде

Решение