Как сравнить два шестнацатеричных числа? Опции

[samec]

Привет, всем! Условие следующее: есть массив чисел, заданных в шестнадцатеричной системе счисления. Числа читаются из текстового файла. Необходимо упорядочить этот массив по неубыванию, не переводя числа в другую С.С.
Собственно вопрос: как реализовать сравнение двух чисел, заданных в шестнацатеричной С.С.

[volvo]

Покажи, как ты читаешь числа из файла (а самое главное - КУДА? В массив строк или все-таки в массив чисел?)

[samec]

Покажи, как ты читаешь числа из файла (а самое главное - КУДА? В массив строк или все-таки в массив чисел?)

читаю в массив чисел, вот так:

var
 f:text;
 mas:array[1..100,1..100] of integer;
 kol:integer;

procedure write_file;
var
 ch:char;
 i:integer;
begin
 Assign(f,'data.txt');
 Reset(f);
 for i:=1 to 100 do
  for kol:=1 to 100 do
   mas[i,kol]:=-1;
 i:=1;
 kol:=0;
 while not EOF(f) do
  begin
   read(f,ch);
   case ch of
    '0':begin mas[kol+1,i]:=0; inc(i); end;
    '1':begin mas[kol+1,i]:=1; inc(i); end;
    '2':begin mas[kol+1,i]:=2; inc(i); end;
    '3':begin mas[kol+1,i]:=3; inc(i); end;
    '4':begin mas[kol+1,i]:=4; inc(i); end;
    '5':begin mas[kol+1,i]:=5; inc(i); end;
    '6':begin mas[kol+1,i]:=6; inc(i); end;
    '7':begin mas[kol+1,i]:=7; inc(i); end;
    '8':begin mas[kol+1,i]:=8; inc(i); end;
    '9':begin mas[kol+1,i]:=9; inc(i); end;
    'A':begin mas[kol+1,i]:=10; inc(i); end;
    'B':begin mas[kol+1,i]:=11; inc(i); end;
    'C':begin mas[kol+1,i]:=12; inc(i); end;
    'D':begin mas[kol+1,i]:=13; inc(i); end;
    'E':begin mas[kol+1,i]:=14; inc(i); end;
    'F':begin mas[kol+1,i]:=15; inc(i); end;
    #13: begin inc(kol); i:=1; end;
   end;
  end;
 Close(f);
end;

Добавлено через 5 мин.

выводит правильный результат?

если S1 дополнить фиктивными нулями, то результат будет правильным... но как то это уж слишком просто

Сообщение отредактировано: samec - 20.06.2007 9:08