Привет всем!

Если кому не сложно, не могли бы вы кинуть готовый код на паскале для перевода из из hex в dec и обратно...

Буду очень признателен за помощь.

-----
-=истина где-то рядом=-

| Сообщение посчитали полезным:

Поиск пробовал?

-----
Всем привет, я вернулся

| Сообщение посчитали полезным:

Поиск рулит

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.

-----
Люблю повеселиться, особенно пожрать

| Сообщение посчитали полезным:

> CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);

Где так учат писать? Такой изврат вместо (str[i] - 'A' + 10);

| Сообщение посчитали полезным:

DrGolova пишет:
Где так учат писать?
на thedailywtf.com

| Сообщение посчитали полезным:

трэндэць. Я се простенький atoi сбацал в любую разрядность через степень и формулу, которую DrGolova дал. Такой изврат вижу впервые.

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным: