Написать программу в паскале, которая переводит из 10 системы в 16 сам побывал не получилось

01.01.2001

Написать программу в паскале, которая переводит из 10 системы в 16 сам побывал не получилось.
Если маил не пропустит текст то можно выложить вордовским документом куда-нибудь на файло обменник

  • Поддержу Бобкова, но чуть быстрее:

    function Int2Hex(n:integer):string;
    const C:array[0..15] of Char='0123456789ABCDEF';
    begin
    result:='';
    repeat
    result:=C[n and $f]+result;
    n:=n shr 4;
    until n=0;
    end;

  • Исходники в студию.

    Брали отсюда? http://bearloga.info/?p=379. У вас несколько строк пропущено.

  • это же легко
  • function Int2Hex(n:integer):string;
    const C:pChar='0123456789ABCDEF';
    begin
    result:='';
    repeat
    result:=C[n mod 16]+result;
    n:=n div 16;
    until n<=0;
    end;

Вас заинтересует