Написал программу перевода из 10 в 16 на паскале, открыл Делпхи , скопировал код для консольного режима а программа не ззапускается, в чем дело. Помогите. Как сделать прогу мою на Делпхи в консольном режиме и что надо подправить.
Цитата:
USES CRT;
function IntToHex(N : integer):string;
const
Hex : array[0..15] of char =
'0123456789ABCDEF';
var i, j, k : integer;
Result, s : string;
begin
Result := '';
k := n;
repeat
j := k div 16;
i := k mod 16;
Result := Result + Hex[i];
k := j;
until j = 0;
S := Result;
for i := 1 to Length(Result) do
S[Length(S)-i+1] := Result[i];
IntToHex := S;
end;
var n : integer;
BEGIN
clrscr;
Write('Введите целое десятичное число: ') ;
Readln(n);
Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h');
readln;
END.
|