Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Ошибка 3

75K
26 декабря 2011 года
Міша02
6 / / 26.12.2011
не пойму в чом проблема ?

function IntToHex(N : integer):string;

{функция IntToHex() преобразует n в строку,
содержащую шестнадцатеричное представление n}
const
Hex : array[0..15] of char =
'0123456789ABCDEF';
var i, j, k : integer;
Result, s : string;
begin
Result := '';{исходное значение}
k := n;
repeat {цикл определения значения числа в 16-ой системе счисления}
j := k div 16; {целая часть от деления}
i := k mod 16; {остаток}
Result := Result + Hex;
k := j;
until j = 0; {останов, осли нечего больше делить}
S := Result;
for i := 1 to Length(Result) do
S[Length(S)-i+1] := Result;
IntToHex := S; {возврат результата в основную программу}
end;

var n : integer;

BEGIN {основная программа}

clrscr;
Write('Введите целое десятичное число: ') ;
Readln(n);
Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h'); {вывод результата}
readln;

END.
14
26 декабря 2011 года
Phodopus
3.3K / / 19.06.2008
на какой фазе и в каком месте ошибка? где полное описание?
75K
26 декабря 2011 года
Міша02
6 / / 26.12.2011
спасибо розобрася ошибка была здесь clrscr;
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог