Описать функцию, возвращающую строковое представление целого числа N в 16-ричной системе счисления

@Дмитрий19921 · Регистрация: 09.06.2011

Описать функцию DecToHex(N) строкого типа, возвращающую строковое представление целого неотрицательного числа N в 16-ричной системе счисления. Результатирующая строка состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей ( за исключением представления числа 0) . Используя эту функцию, получить 16-ричные представления пяти данных чисел.

@Mr.Y · 14.06.2011, 11:59

Pascal

Uses
 crt;
 
Const
 hex: array [10..15] of char = ('A','B','C','D','E','F');
 
Function DecToHex(n:integer):string;
Var
 tmp:string;
Begin
 tmp:='';
 While n > 0 do
  Begin
   If n mod 16 < 10 then tmp:=inttostr(n mod 16)+tmp
                    else tmp:=hex[n mod 16]+tmp;
   n:=n div 16;
  End;
 DecToHex:=tmp;
End;
 
Var
 a:array [1..5] of integer;
 i:integer;
Begin
 clrscr;
 For i:=1 to 5 do
  readln(a[i]);
 writeln;
 For i:=1 to 5 do
  writeln(DecToHex(a[i]));
 readln;
End.

@Дмитрий19921 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 19
		1
	Описать функцию, возвращающую строковое представление целого числа N в 16-ричной системе счисления 14.06.2011, 11:46. Показов 2074. Ответов 1 Метки нет (Все метки) Описать функцию DecToHex(N) строкого типа, возвращающую строковое представление целого неотрицательного числа N в 16-ричной системе счисления. Результатирующая строка состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей ( за исключением представления числа 0) . Используя эту функцию, получить 16-ричные представления пяти данных чисел. 0

Опции темы

Описать функцию, возвращающую строковое представление целого числа N в 16-ричной системе счисления

Решение