Подпрограмма из шестнадцатеричной системы в десятичную

 
0
 
Delphi, Kylix and Pascal
ava
ArniLand | 24.12.2009, 12:01
Прошу помочь написать программу на паскале которую нужно разбить на подпрограммы. Цель такова - дан ряд символов, символ представляет из себя целое число в шестнадцатеричной системе счисления перевести его в целое число в десятичной системе счисления, иначе видать сообщение об ошибке про некорректное ведение(использовать флаг). Можно не использовать вывод на экран, а можно чтобы было посмотреть перевод через watch в дебагерре Заранее спасибо.
Ответы (3)
ava
Snowy | 24.12.2009, 14:06 #
Ну и в чём помочь?
Перевести из Hex в десятичную?
На дельфи так:
function HexToInt(h: string): Integer;
var c: integer;
begin
Val('$' + h, result, c);
if c > 0 then Result := -1;
end;
На паскале так:
function HexToInt(h: string): integer;
var
i, c: integer;
begin
val('$'+h, i, c);
if c > 0 then HexToInt := -1
else HexToInt := i;
end;
Скармливаем строку, получаем число. Или -1, если не получилось.
ava
volvo877 | 24.12.2009, 16:17 #
Snowy, наоборот... Для Паскаля знак на "=" поменяй, если ошибки не было, C = 0...
ava
Snowy | 24.12.2009, 17:02 #
А, ну да. Поправил.
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить