Песни о Паскале

Деревенец Олег Виленович

В программе «P_47_1» функция ConvertFromNumber – «преобразовать из числа» – делает именно то, о чем сказано выше. Обратите внимание на строковую константу.

const CDigits : string = '0123456789ABCDEF';

Она служит для изящного преобразования чисел 0–15 в шестнадцатеричные цифры «0»–«F». Константы, для которых явно указан тип, называют типизированными, – это пример такой константы.

{ P_47_1 – Преобразование в произвольную

систему счисления }

{ Функция преобразования десятичного числа в другие системы счисления }

function ConvertFromNumber(aBase, aNumber : integer): string;

const CDigits : string = '0123456789ABCDEF';

var n : integer; c : char; S : string;

begin

S:=''; { Накопитель цифр }

repeat

n:= aNumber mod aBase; { остаток от деления на основание }

aNumber:= aNumber div aBase; { частное от деления на основание }

c:= CDigits[1+n]; { выбираем цифру из строки }

S:= c + S; { вставляем цифру в результат }

until aNumber=0;

ConvertFromNumber:= S; { готово! }

end;

var B, N : integer; { B – основание системы, N – число }

begin {=== Главная программа ===}

repeat

Write('Основание системы= '); Readln(B);

if B in [2..16] then begin

Write('Преобразуемое число= '); Readln(N);

Writeln(ConvertFromNumber(B, N));

end

until not (B in [2..16]);

end.

Эта простая программа подарит вам счастье наблюдать знакомые десятичные числа в экзотических системах счисления, например, в троичной или пятеричной.

Обратное преобразование

Теперь займемся обратной задачей: пусть дана строка символов, изображающая некое число в известной системе счисления; требуется преобразовать эту строку в число и напечатать в десятичной системе.

Сборка числа из десятичных цифр нами освоена. Она выполнялась умножением накопленной суммы на десять с прибавлением очередной цифры, начиная со старшей. Надо ли объяснять, что сборка в других системах выполняется точно так же? Только умножать будем не на десять, а на основание системы счисления. В следующей ниже программе сборка выполняется функцией ConvertToNumber – «преобразовать в число».

{ P_47_2 – Преобразование из других систем счисления }

function ConvertToNumber(aBase: integer; aNumber: string): integer;

var i,n, Sum : integer;

c : char;

begin

Sum:=0; { Накопитель результата }

for i:=1 to Length(aNumber) do begin

c:= Upcase(aNumber[i]);

if c in ['0'..'9']

then n:= Ord(c)-Ord('0') {0..9}

else n:= 10+Ord(c)-Ord('A'); {10..15}

Sum:= aBase*Sum + n; {

Накопление суммы }

end;

ConvertToNumber:= Sum; { готово! }

end;

var B : integer; { Основание системы }

N : string; { Изображение числа в виде строки }

begin {=== Главная программа ===}

repeat

Write('Основание системы= '); Readln(B);

if B in [2..16] then begin

Write('Преобразуемое число= '); Readln(N);

Writeln(ConvertToNumber(B, N));

end

until not (B in [2..16]);

end.

Как обычно, здесь выделены операторы, стоящие внимания. Функция UpCase преобразует строчные латинские буквы в заглавные. Ведь шестнадцатеричные цифры от «A» до «F» могут быть введены пользователем в любом регистре, а последующие операторы преобразования цифры в число предполагают заглавные буквы – вот потому и понадобилась функция UpCase.

Теперь о превращении символов в числа. Цифры от «0» до «9» преобразуются вычитанием из кода цифры кода символа «0». Для цифр от «A» до «F» после вычитания кода буквы «A» к разности прибавляем число 10. Все сказанное относится к следующему условному оператору.

if c in ['0'..'9']

then n:= Ord(c)- Ord('0') {0..9}

else n:= 10 + Ord(c)- Ord('A'); {10..15}

Вот, пожалуй, и вся премудрость. Испытание этой программы убедит вас в том, что волшебства случаются не только в сказках!

Итоги

• Способ изображения чисел посредством знаков называется системой счисления.

• Одно и то же число может быть изображено в разных системах счисления.

• Все современные системы счисления – позиционные. Это значит, что вес цифры определяется позицией в числе.

• Преобразование числа в любую систему счисления (строку цифр) начинается с младших разрядов, а обратная сборка – со старших.

А слабо?

А) Напишите функцию для преобразования числа из одной системы счисления в другую. Функция должна принимать три параметра:

• строку в исходной системе счисления;

• основание исходной системы;

• основание конечной системы счисления.

Воспользуйтесь вызовами готовых функций ConvertToNumber и ConvertFromNumber.

Б) У программиста Ника была привычка запоминать сумму цифр в номерах автомобилей, попадавшихся ему на глаза. Однажды он стал свидетелем аварии, виновник которой скрылся. Ник сообщил полицейским только сумму цифр в номере нарушителя (сам номер Ник не помнил). Помогите полиции, и напишите программу, выводящую все трехзначные номера (от 001 до 999), сумма цифр которых равна N (значение N вводит пользователь).