Перевод 16-ричных цифр отрицательных в дополнительном коде

Есть задание на разработку функции для перевода строки 16-ричных цифр отрицательных в дополнительном коде в строку 10-ричных цифр.
В принципе алгоритм я понимаю:

- перевести строку из 16-ричных в двоичный код;
- инвертировать (замена 0 на 1 и наоборот);
- привести в дополнительный код -это вычисть 1-цу;
- перевести из 2-ой в 10-ричную строку

Но увы не могу реализовать на Си под Linux(((

0

Сообщение от BRICHKA Но увы не могу реализовать на Си под Linux(((

а под Windows ?

0

Есть программа на Паскале, которая удовлетвоярет заявленным требованиям, но перевод её на Си тем более по Linux завёл меня в тупик....

uses crt;
const _16_2: array [0..15,1..2] of string[4] =
(('0','0000'), ('1','0001'), ('2','0010'), ('3','0011'),
('4','0100'), ('5','0101'), ('6','0110'), ('7','0111'),
('8','1000'), ('9','1001'), ('a','1010'), ('b','1011'),
('c','1100'), ('d','1101'), ('e','1110'), ('f','1111'));
type
str8=string[8]; {16}
str10=string[11]; {10}
str32=string[32]; { 2}

procedure p16to2(s: str8; k8: integer; var dv: str32);
var i:byte;
begin
dv:='';
for i:=1 to k8 do
if Ord('9')>= Ord(s[i])
then dv:= dv + _16_2[Ord(s[i])-Ord('0'),2]
else dv:= dv + _16_2[Ord(s[i])-Ord('a')+10,2];
end;

procedure p2to16(dv: str32; k8: integer; var s: str8);
var i,k,n:byte;
begin
s:='';
for i:=k8*4 downto 1 do
begin
if i mod 4 = 0 then begin k:=1; n:=0 end;
if dv[i] = '1' then n:=n+k;
k:=k*2;
if i mod 4 = 1 then s:=_16_2[n,1] + s;
end;
i:=1;
while (s[i]='0') and (i<k8) do i:=i+1;
i:=i-1;

if i>0 then Delete(s,1,i);
end;

procedure invertir(var dv1: str32; k32: integer);
var i:byte;
begin
for i:=1 to k32 do dv1[i]:=char(Ord('0') + Ord('1') - Ord(dv1[i]));
end;

procedure minus1(var dv1: str32; k32: integer);
var i:byte;
begin
i:=k32;
while (i>0) and (dv1[i]='0') do
begin
dv1[i]:='1'; i:=i-1;
end;
if i > 0 then dv1[i]:='0';
end;

procedure p16to10(s: str8; var dv: str10);
var i,k:byte; m,p,c: longint;
begin
k:=length(s);
p:=1; c:=0;
for i:=k downto 1 do
begin
if Ord('9')>= Ord(s[i])
then c:= c + p*(Ord(s[i])-Ord('0'))
else c:= c + p*(Ord(s[i])-Ord('a')+10);
p:=p*16;
end;
if c=0 then dv:='0';
while c>0 do
begin
m:=c mod 10; c:=c div 10;
dv:= _16_2[m,1] + dv;
end;
end;

{=========================Основная программа=================}

var s1,s2: str8;
s10: str10;
dv1,dv2: str32;
log: boolean;
ch: char;
i,k:byte;
k8: integer;

begin
clrscr;
writeln('vvedite 2-8 cifr 0..9a..f:');
write('16 dop = ');
s1:='';
repeat
read(ch);
if ch in ['0'..'9','a'..'f'] then s1:=s1+ch;
until Ord(ch)=13; {ignor wrong chars}
if s1='' then s1:='0';
k:=length(s1);
if Odd(k) then k8:=k+1 else k8:=k;
if k<k8 then
for i:=1 to k8-k do s1:='0'+s1;
writeln('vy vveli:');
writeln('16 dop = ',s1,' ',k8 div 2,' bytes');
s10:='';
if s1[1]>'7' then
begin
p16to2(s1,k8, dv1);
writeln(' 2 dop = ', dv1);
minus1(dv1, k8*4);
writeln(' 2 min = ', dv1);
invertir(dv1, k8*4);
writeln(' 2 pr = -', dv1);
p2to16(dv1, k8, s1);
writeln('16 pr = -', s1);
p16to10(s1, s10); if s10='' then s10:='2147483648';
s10:='-'+s10;
writeln('10 pr = ',s10);
end
else
begin
writeln('16 pr = +', s1);
p16to10(s1, s10);
s10:='+'+s10;
writeln('10 pr = ',s10);
end;
write('Press any key...');
repeat until keypressed;
end.

0

В первый раз слышу про "строки 16-ричных отрицательных цифр". Нет, я давно знаю о ЭВМ Сетунь с ее цифрой -1. Сейчас быстро нашел в Интернете про системы счисления с отрицательными основаниями(в http://www.wikiznanie.ru/ru-wz... _счисления), но не смог с ходу найти про строки отрицательных цифр.
А Вы уверены, что эта программа на паскале выдает, что-то осмысленное. У меня получилось
--------
vvedite 2-8 cifr 0..9a..f:
16 dop = f
vy vveli:
16 dop = 0f 1 bytes
16 pr = +0f
10 pr = +15
Press any key...
vvedite 2-8 cifr 0..9a..f:
16 dop = ff
vy vveli:
16 dop = ff 1 bytes
2 dop = 11111111
2 min = 11111110
2 pr = -00000001
16 pr = -1
10 pr = -1
Press any key...
vvedite 2-8 cifr 0..9a..f:
16 dop = ff
vy vveli:
16 dop = 0fff 2 bytes
16 pr = +0fff
10 pr = +4095
Press any key...
vvedite 2-8 cifr 0..9a..f:
16 dop = ffff
vy vveli:
16 dop = ffff 2 bytes
2 dop = 1111111111111111
2 min = 1111111111111110
2 pr = -0000000000000001
16 pr = -1
10 pr = -1
Press any key...
------------------------------
То есть, с точки зрения этой программы и строка ff и строка ffff равны -1. Вряд ли это имеет смысл. А если имеет, то какой?

Ничччего не понимаю. Предлагаете эмулировать работу битовых операторов?! Или вот так сойдет?

1