Param45. Описать функцию DecToHex($$N$$) строкового типа, возвращающую строковое представление целого неотрицательного числа $$N$$ в 16-ричной системе счисления. Результирующая строка состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей (за исключением представления числа $$0$$). Используя эту функцию, получить 16-ричные представления пяти данных чисел.Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
program Param45; type St=String; var N,i:integer; function DecToHex(N:Integer):string; var NumS: String; begin NumS:='0123456789ABCDEF'; result:=''; while N>0 do begin insert(NumS[(N mod 16)+1],result,1); N:=N div 16; end; if result='' then result:='0'; end; begin for i:=1 to 5 do begin Write('N: '); readln(N); writeln(DecToHex(N)); end; end. |
Другие задачи из раздела Param можно посмотреть здесь.
Комментарии: