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

[samec]

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

[samec]

вот, наваял... читаю строки из файла в массив строк, дополняю их фиктивными нулями, сортирую, убираю фиктивные нули и делаю вывод... вроде работает...

program sistem;
uses crt;
var
 f:text;
 mas:array[1..100] of string;
 kol:integer;

procedure write_file;
var
 ch:char;
 i:integer;
begin
 Assign(f,'data.txt');
 Reset(f);
 i:=1;
 kol:=1;
 while not EOF(f) do
  begin
   read(f,ch);
   if (ch=#13) then
    inc(kol)
   else
    if (ch<>' ')and(ch<>#10) then
     mas[kol]:=mas[kol]+ch;
  end;
 Close(f);
end;

procedure dopoln;
var
 i,max:integer;
begin
 max:=length(mas[1]);
 for i:=2 to kol do
  if (max<length(mas[i])) then
   max:=length(mas[i]);
 for i:=1 to kol do
  while (length(mas[i])<max) do
   mas[i]:='0'+mas[i];
end;

procedure sort;
var
 st:string;
 i,k:integer;
begin
 for k:=1 to kol-1 do
  for i:=1 to kol-k do
   if(mas[i]>mas[i+1]) then
    begin
     st:=mas[i];
     mas[i]:=mas[i+1];
     mas[i+1]:=st;
    end;
end;

procedure del;
var
 i:integer;
begin
 for i:=1 to kol do
  while (mas[i,1]='0') do
   delete(mas[i],1,1);
end;

procedure print;
var
 i:integer;
begin
 for i:=1 to kol do
  writeln(mas[i]);
end;

begin
 clrscr;
 write_file;
 dopoln;
 sort;
 del;
 print;
 readkey;
end.

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