Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-44600
www
2003-06-21 07:59
2003.07.14
Индексы в Paradox


3-44552
chum
2003-06-19 12:45
2003.07.14
Какой инсталятор использовать.


1-44766
alois
2003-07-01 21:04
2003.07.14
Выделение двух равных подстрок в тексте


14-44864
nester
2003-06-26 19:07
2003.07.14
Как можно заменить встроенные ресурсы?


8-44767
JC
2003-03-22 01:38
2003.07.14
Engine