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

ArniLand

Дата 24.12.2009, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 17.8.2008

Репутация: нет
Всего: нет

Прошу помочь написать программу на паскале которую нужно разбить на подпрограммы. Цель такова - дан ряд символов, символ представляет из себя целое число в шестнадцатеричной системе счисления перевести его в целое число в десятичной системе счисления, иначе видать сообщение об ошибке про некорректное ведение(использовать флаг). Можно не использовать вывод на экран, а можно чтобы было посмотреть перевод через watch в дебагерре Заранее спасибо.

Snowy

Дата 24.12.2009, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Ну и в чём помочь?
Перевести из 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, если не получилось.

volvo877

Дата 24.12.2009, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116

Snowy, наоборот... Для Паскаля знак на "=" поменяй, если ошибки не было, C = 0...

Snowy

Дата 24.12.2009, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

А, ну да. Поправил.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »