Детёныши ВП

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Детёныши ВП » Система счисления » Перевод числа из 10-ичной системы в 16-ричную

Перевод числа из 10-ичной системы в 16-ричную

Страница: 1

Сообщений 1 страница 3 из 3

1

  • Автор: Санчоус
  • Админ
  • Санчоус
  • Зарегистрирован: 2011-04-14
  • Приглашений: 0
  • Сообщений: 74
  • Уважение: +4
  • Позитив: 0
  • Пол: Мужской
  • Провел на форуме:
    1 день 2 часа
  • Последний визит:
    2012-07-04 13:27:13
Код:
{ Составить программу перевода десятичного числа в шестнадцатеричное }
var a : longint;

function DEC_HEX(x:longint):string;
const digits:array [0..15] of char = ('0','1','2','3','4','5','6','7',
                                      '8','9','A','B','C','D','E','F');
var res:string; d:0..15;
begin
   res:='';                              
   while (x<>0) do begin         
      d:=x mod 16;                  
      x:=x div 16;                      
      res:=digits[d]+res;
   end;
   DEC_HEX:=res;
end;

begin { основная программа }
  readln( a );
  writeln( DEC_HEX(a) );
end.

+1

2

  • Автор: Санчоус
  • Админ
  • Санчоус
  • Зарегистрирован: 2011-04-14
  • Приглашений: 0
  • Сообщений: 74
  • Уважение: +4
  • Позитив: 0
  • Пол: Мужской
  • Провел на форуме:
    1 день 2 часа
  • Последний визит:
    2012-07-04 13:27:13

Задача обратная

Код:
{ Составить программу перевода шестнадцатеричного числа в десятичное }
var a : string;
function HEX_DEC(x:string):longint;
const digits:array [0..15] of char =
      ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var res,ves:longint; i,j:byte;
begin
   res:=0; ves:=1;
   for i:=length(x) downto 1 do begin
      j:=0; a[i]:=UpCase(a[i]);
      while (digits[j]<>x[i]) do inc(j);
      res:=res+ves*j;
      ves:=ves*16;
   end;
   HEX_DEC:=res;
end;

begin { основная программа }
  readln( a );
  writeln( HEX_DEC(a) );
end.

+1

3

  • Автор: ЯНУш
  • Админ
  • ЯНУш
  • Откуда: Витебск
  • Зарегистрирован: 2011-04-13
  • Приглашений: 0
  • Сообщений: 104
  • Уважение: +5
  • Позитив: +5
  • Пол: Мужской
  • Возраст: 27 [1997-06-02]
  • Провел на форуме:
    1 день 16 часов
  • Последний визит:
    2012-06-16 21:54:13

напиши как это всё работает :) если сможешь конечно ;)

+1

Страница: 1

Вы здесь » Детёныши ВП » Система счисления » Перевод числа из 10-ичной системы в 16-ричную