Преобразование символов в числа.

Рассмотрим строку цифр длиной N:

c₁, c₂, …, c_N-1, c_N

Соответствие между строкой и числом, которое она представляет, задается формулой:

где B – основание системы исчисления, а c – численное значение i-го символа в строке.

Для числа 0101 получаем следующие десятичные значения в выбранных системах исчисления:

0101₂ = 0x2³ + 1x2² + 0x2¹+1x2⁰ = 0 + 4 + 0 + 1 = 5₁₀

0101₈ = 0x8³ + 1x8² + 0x8¹+1x8⁰ = 0 + 64 + 0 + 1 = 65₁₀

0101₁₀ = 0x10³ + 1x10² + 0x10¹+1x10⁰ = 0 +100 + 0 + 1 = 101₁₀

0101₁₆ = 0x16³ + 1x16² + 0x16¹+1x16⁰ x= 0 + 256 + 0 + 1 = 257₁₀

Цифры систем счисления больше 10 обычно представляются буквами, например цифры шестнадцатиричной системы исчисления следующие:

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F

Лучшая стратегия поиска десятичного значения выражения в системе исчисления с основанием B:

c₁ x B^N-1 + c₂ x B^N-2 + … + c_N x B⁰

умножать его, используя правило Хорнера (Horner’s rule)

(…(c₁ x B + c₂) x B + c₃) … x B + c_N

Процедура StringToInt преобразовывает строки символов в системе счисления представленной Base в целочисленные значения в Result, используя правило Хорнера.

DP 1

PROCEDURE StringToInt (VAR F: TEXT; VAR Base, Result: INTEGER);

{F=<,x#y, R>, где x – строка цифр, Base – целое число,

2 <= Base <= 16, задающее их систему исчисления -->

F, Result := <x#, y, R>, N(x), где N – целое значение,

имеющее символьное представление x}

VAR<

Ch: CHAR;

Digit: INTEGER;

BEGIN {StringToInt}

Result := 0;

READ(F, Ch);

WRITE(Ch);

WHILE(Ch <> ‘#’) AND (Ch <> ‘ ’)

DO

BEGIN

{Digit := число, соотвествующее Ch в Base}

Result := Result * Base + Digit;

READ(F, Ch);

WRITE(Ch)

END

END. {StringToInt}

Код для нахождения целого, соответствующего Ch простой, но длинный, поэтому он оформлен в виде процедуры.

DP 1.1.

PROCEDURE CharToDigit (VAR Ch: CHAR; VAR Result: INTEGER);

{(‘0’ <= Ch <= ‘9’ OR ‘A’ <= Ch <= ‘F’ -->

Result := число соответствующее Ch ) |

(NOT (‘0’ <= Ch <= ‘9’ OR ‘A’ <= Ch <= ‘F’) -->

Result := 0)}

BEGIN { CharToDigit}

IF Ch = ‘0’ THEN Result := 0 ELSE

IF Ch = ‘1’ THEN Result := 1 ELSE

IF Ch = ‘2’ THEN Result := 2 ELSE

IF Ch = ‘3’ THEN Result := 3 ELSE

IF Ch = ‘4’ THEN Result := 4 ELSE

IF Ch = ‘5’ THEN Result := 5 ELSE

IF Ch = ‘6’ THEN Result := 6 ELSE

IF Ch = ‘7’ THEN Result := 7 ELSE

IF Ch = ‘8’ THEN Result := 8 ELSE

IF Ch = ‘9’ THEN Result := 9 ELSE

IF Ch = ‘A’ THEN Result := 10 ELSE

IF Ch = ‘B’ THEN Result := 11 ELSE

IF Ch = ‘C’ THEN Result := 12 ELSE

IF Ch = ‘D’ THEN Result := 13 ELSE

IF Ch = ‘E’ THEN Result := 14 ELSE

IF Ch = ‘F’ THEN Result := 15

ELSE

BEGIN

Result := 0

END

END. { CharToDigit}

Для тестирования этого проекта он помещается в программу, которая сначала считывает основание системы счисления в десятичном формате, в котором должна быть интерпретирована следующая строка.

PROGRAM Convert (INPUT, OUTPUT);

VAR

Base, Number: INTEGER;

{Включить PROCEDURE StringToInt

(VAR F: TEXT; VAR Base, Result: INTEGER);

F=<,x#y, R>, где x – строка цифр, Base – целое число,

2 <= Base <= 16, задающее их систему исчисления -->

F, Result := <x#, y, R>, N(x), где N – целое значение,

имеющее символьное представление x}

BEGIN {Convert}

READ(Base);

StringToInt(INPUT, Base, Number);

WRITELN;

WRITELN(‘Десятичное значение:’, Number)

END. {Convert}

Выполнение:

INPUT: 8 0101#

OUTPUT: 8 0101#

Десятичное значение: 65

INPUT: 16 1F#

OUTPUT: 16 1F#

Десятичное значение: 31