Текстовый файл шестнадцатиричных чисел

[Алексей_2012]

Здравствуйте! есть файл, в котором записана последовательность чисел (20КБ сырого текста), нужно перевести его в двоичную сс, и подсчитать количество единичек, пробовал написать программу, чтобы разбить текст на подстроки размером в 255 символов, потом перевести эту строку в двоичное число и подсчитать количество единичек в нем, какие еще способы есть?

[min@y™]

дай файл.

[Алексей_2012]

еще была мысль разбить на 50 символов, записать в динамический массив, перевести в десятичные числа, сложить десятичные числа, потом разбить как полином, а числа в полиноме уже переводить, но чувствую что мыслю неправильно, потому что допустим

1550=1000+500+50,

1550=11000001110

1000=1111101000
500=111110100
50=110010


В итоге получится не так) в общем запара полная, что предложите?

З.Ы.: Ребята!! Файл!!! Файл!! Здоровенный файл!...Фаааааааайл!)

[VIK_aka_TOR]

все намного проще, считываешь 1 символ из "шестнадцатиричного" файла и записываешь 4 символа в "двоичный" по следующей схеме:

Bin Hex
0000 0
0001 1
0010 2
0011 3
0100 4
0101 5
0110 6
0111 7
1000 8
1001 9
1010 A
1011 B
1100 C
1101 D
1110 E
1111 F

и считай тут единички сразу.
можно и большее количество считывать, но думаю мысль ясна.

[min@y™]

файл получил, в нём ровно 20000 16-ричных цифр.
теперь подробно напиши, во что его переработать.

[Алексей_2012]

файл перерабатывать ненужно (по крайней мере пока :D), просто подсчитать количество единичек, алгоритм такой, счетный цикл в стринглисте от 0 до 19999 с копированием в массив, потом перевод каждого элемента массива в двоичное число, двоичное число в строку, цикл от 1 до длины строки с подсчетом еденичек, заморочено, а в экселе нет автоперевода, (на делфи думаю проще программу такого рода написать чем на Си)

[min@y™]

короче, надо каждую 16-ричную цифру из файла взять и узнать кол-во единиц в ней (от 0 до 4), приплюсовать это кол-во общей сумме? в ҡонце цикла выдать сумму?
так штоль?

[Алексей_2012]

да, количество единичек выдать в кц:D, а вот придумал еще одно

itog:word;
...
цикл до 19999
копи символ, перевод в char
case символ of
0: inc(itog,0)
..
f: inc(itog,4)
end;
кц;
вывод итог;
end;

[min@y™]

case symbol of
  '1', '2', '4', '8':           cnt:= 1;
  '3', '5', '6', '9', 'a', 'c': cnt:= 2;
  '7', 'b', 'd', 'e':           cnt:= 3;
  'f':                          cnt:= 4;
else                            cnt:= 0;
end;

можно другим способом, но и так сойдёт.

[VIK_aka_TOR]

зачем массивы? читаешь посимвольно до конца файла (на случай если изменят кол-во чисел в файле), символ кидаешь в функцию которая на выходе дает количество двоичных единичек в шестнадцатиричном прочитанном числе. суммируешь и все.

function quantityOneInHex(const AHex: Char): byte;
begin
  case AHex of
    '0': result := 0;
    '1','2','8': result := 1;
    '3','5','6','9','a','c': result := 2;
    '7','b','d','e': result := 3;
    'f':  result := 4
  end;
end;

begin

while пока не конец файла do
begin
  прочитываем символ из файла
  sum := sum + quantityOneInHex(sumbol);
end;
writeln(sum);
end.