Текущий архив: 2003.07.14;
Скачать: CL | DM;
Вниз
числа Найти похожие ветки
← →
shark © (2003-07-01 17:08) [0]Как перевести число из щестнадцатеричной системы в десятичную , и обратно ???
← →
Digitman © (2003-07-01 17:12) [1]зависит от способа представления hex-числа
это м.б и строка и BCD
← →
Palladin © (2003-07-01 17:24) [2]http://www.baseprogram.narod.ru/stage2.htm
← →
Mihey © (2003-07-01 22:29) [3]HEX -> Integer:
Решение 1
var i : integer
s : string;
begin
s := "$" + ThatHexString;
i := StrToInt(a);
end;
Решение 2
CONST HEX : ARRAY["A".."F"] OF INTEGER = (10,11,12,13,14,15);
VAR str : String;
Int,
i : integer;
BEGIN
READLN(str);
Int := 0;
FOR i := 1 TO Length(str) DO
IF str[i] < "A" THEN Int := Int * 16 + ORD(str[i]) - 48
ELSE Int := Int * 16 + HEX[str[i]];
WRITELN(Int);
READLN;
END.
Integer -> HEX
Решение 1
HexString := Format("%0x",[DecValue]);
Решение 2
HexString := IntToHex( [DecValue] , [MinDigits] );
Страницы: 1 вся ветка
Текущий архив: 2003.07.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.027 c