кто поможет с паскалем:confused:

[njkzi]

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

[Serge_Bliznykov]

для начала сходите в поиск по форуму.

как вариант:

type
  Long =
    record
      LowWord, HighWord : Word;
    end;
const
  Digits : array[0..$F] of Char = '0123456789ABCDEF';

  function HexW(W : Word) : string;
    {-Return hex string for word}
  begin
    HexW[0] := #4;
    HexW[1] := Digits[hi(W) shr 4];
    HexW[2] := Digits[hi(W) and $F];
    HexW[3] := Digits[lo(W) shr 4];
    HexW[4] := Digits[lo(W) and $F];
  end;

  function HexL(L : LongInt) : string;
    {-Return hex string for LongInt}
  begin
    with Long(L) do
      HexL := HexW(HighWord)+HexW(LowWord);
  end;

[njkzi]

Извените но разве так должно это выглядеть в турбо паскале???

[Stilet]

Ну а че нет?
Это часть программы, а точнее функци перевода.
Примени их в программе и радуйся.

[Grag]

Когда то, очень давно, я писал программу-программатор м/с ПЗУ и для отображения дампов памяти применял вот такие две функции:

Function HexBChar(b:byte):string;
Const
	HD:array[0..15] of char=('0','1','2','3','4','5','6','7',
				 '8','9','A','B','C','D','E','F');
Begin
	HexBChar:=HD[b shr 4]+HD[b and $0F]
End;
Function HexWChar(n:word):string;
Begin
	HexWChar:=HexBCHar(Hi(n))+HexBChar(Lo(n))
End;

Можно перевести как байтовую величину, так и "слово"...
Думаю, что ничего сложного нет....

[njkzi]

блин извините... но я полный нуб... напишите плизз полный код программы....