Разобраться Опции

[BND]

вОт имеется код на паскале. делает он следующее: переводит из десятичной системы счисления в i-ичную.
но так как я начинающий в паскале, то большинство строчек мне непонятны. прокоментируйте строчки пожалуйста, что какая делает. то есть что в них происходит. спасибо.

function DecToOther(x:longint;R:word):string;
var ost:longint;
    s,st,chislo:string;
    i:integer;
begin
     chislo:='';s:='';st:='';
     repeat
        ost:=x mod R;
        x:=x div R;
        if ost>9 then
          st:=chr(ord('A')-10+ost)
        else str(ost,st);
           s:=s+st;
     until x=0;
     for i:=1 to length(s) do
       chislo:=chislo+s[length(s)-i+1];
     DecToOther:=chislo;
end;

[volvo]

Кстати, не самая понятная реализация... То что лежит вот тут:
Общие вопросы по математике.

гораздо проще, согласись...

[BND]

Кстати, не самая понятная реализация... То что лежит вот тут:
Общие вопросы по математике.

гораздо проще, согласись...

вот вот. как-то запутано все написано...
но всё же мне надо именно это прокоментировать .. help!

Сообщение отредактировано: BND - 11.05.2007 19:42