Люди помогите, очень нужно подробное описание этих функций.
Точнее как она работает и значения всех переменных.
function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;
n - это переменная или строка
mod - остаток
radix - та с/с в которую мы переводим
s:=digit[(n mod radix)+1]+s; - что происходит в данном выражении?
В начало строки дописывается очередная цифра.
а для чего прибавляется +1 а потом ко всему выражению +s?
Ты скажи, откуда это взялось, для чего нужно и что ты хочешь сделать.
Из FAQ-а это взялось! Вот отсюда: http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=38226
А что, по названию (FromDec) уже не понятно, что что-то переводится Из десятичной системы счисления? Или флейм неискореним?
Автору:
s:=digit[(n mod radix)+1]+s;По алгоритму перевода из десятичной системы счисления в другую переводимое число надо делить на основание другой С/С и остатки от деления записывать в ОБРАТНОМ порядке. Что и делается в приведенной строке: число делится на основание новой С/С (n mod radix), прибавляется единица (поскольку в Турбо-Паскале нумерация элементов строки начинается с единицы, а не с нуля, то есть, при получении остатка = 0 нам надо взять первый символ строки S, в котором этот ноль записан), и потом остаток в символьной форме (для этого мы берем содержимое digit[...]) добавляется ПЕРЕД полученной на предыдущей итерации строкой, то есть, сначала остаток, потом строка, содержащая предыдущие остатки. И все это забрасывается опять же в строку, для работы на следующей итерации...
Сходи уже к окулисту, а? Я что, где-то написал, с каким ПРЕДСТАВЛЕНИЕМ работает функция? Или ты опять выдрал из контекста только то, что тебе было удобно? Я, вообще-то говорил о том, что число переводится из десятичной системы счисления (заметь, в моем посте НЕТ слова представление, мне в данном случае по барабану, как представлено число в памяти, мне надо перевести его в другую систему счисления, естественно, что при этом придется хранить результат в текстовом виде).
Ты всерьез утверждаешь, что число var i : integer; в десятичной системе считсления?
C s:=digit[(n mod radix)+1]+s; все понятно. спс volvo.
что касается зачем:
Я понимаю что эти функции предназначены для перевода чисел из 1-й с/с в другую, и что они прекрасно работают.
Но препод не станет принимать программу если я буду не в силах ему обьяснить принцип ее работы.
Еще если не сложно мне бы хотелось узнать что происходит в данном условии и выражении:
while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
(функция ToDec)
p.s. заранее большое спасибо.
В этой строчке:
while (n[1]='0') and (length(n) > 1) do delete(n,1,1);- убираются левые нули. То есть число 000123 приводится к виду 123.
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;