Довідник : одиниці вимірювання, система числення, час у різних країнах

exit;

end;

end;

if v = 0 then begin

ResultStr := '0';

exit;

end else begin

i:=1;

repeat

SetLength(ResultStr,i);

ResultStr[i] := RadixChar[(v mod NewRadix)+1];

v := v div NewRadix;

Inc(i) // формування стрічки-числа з вихідною основою

until v = 0;

SetLength(ResultStr,i-1);

p := Length(ResultStr);

RadixChar:=Copy(ResultStr,0,p);

for i := 1 to p do ResultStr[i]:= RadixChar[p-i+1];

// обернення стрічки

end;

end;

end.

3) unit UkrRecog;

{by Andrew Tkachenko, [email protected], Ukraine}

// Перевід цілого числа в словесну форму