align="justify">// і підрядок Із записом дробової частіні.Pos1 = 0 then begin
// Значить число Складається Тільки з цілої Частини.: = aStrXcimal;: =''; else begin
// Число має цілу и дробового Частину.: = LeftStr (aStrXcimal, Pos1 - 1);: = Copy (aStrXcimal, Pos1 + 1, Length (aStrXcimal) - Pos1);;
// Візначаємо Значення цілої Частини числа.: = 0; i: = 1 to Length (StrInt) do begin
// Порядок розряду = позіції розряду при відліку від нуля в Напрямки праворуч наліво.: = Length (StrInt) - i;: = IntPart + DigitToInt (StrInt [i], aBase) * Power (aBase , j);;
// Візначаємо Значення дробової Частини числа.
// Напочатку обчіслюємо Значення аналогічно тому, як це Зроблено для цілої частин: FracPart: = 0; i: = 1 to Length (StrFrac) do begin: = Length (StrFrac) - i;: = FracPart + DigitToInt (StrFrac [i], aBase) * Power (aBase, j);;
// Тепер враховуємо експоненційну частина :: = FracPart/Power (aBase, Length (StrFrac));
// Отрімуємочісло, якевідповідаєзапісу aStrXcimal
// У Системі числення з основою aBase.: = IntPart + FracPart;;
// Перетворює запису числа в Системі числення з основою aSrcBase в записах
// цього ж числа в Системі числення з онованіем aTrgBase.
// Перетворення проводитися з точністю до aTrgPrecision цифр после комі
// у результуюча поданні чісла.function XcimalStrToYcimalStr (: Byte;: String;: Byte;: Byte
): String;
// Чісловідповіднезапісу aSrc NumStr всістемічісленнязосновою aSrcBase.: Extended;
// Цілачастіна, віділеназчісла SrcNum.: Int64;
// Дробова частина, віділена з числа SrcNum.: Extended;
// Подання цілої Частини числа SrcNum в Системі числення з основою aTrgBase.: String;
// Подання дробової Частини числа SrcNum в Системі числення з основою aTrgBase.: String;
// Лічильник.: Integer;
// Для проміжніх обчислень.: Extended;
// Початковечісло.: = XcimalStrToNumber (aSrcNumStr, aSrcBase);
// Отримуємоцілуідробовучастинучисла.: = Trunc (SrcNum);: = Frac (SrcNum);
// перекладного цілу Частину.: ='';: = IntToDigit (IntPart mod aTrgBase) + StrInt;: = IntPart div aTrgBase; IntPart = 0;
// Если Дробова частина = 0, то переклад закінчено.FracPart = 0 then begin: = StrInt;;;
// перекладного дробового Частину. Точність - до aTr Precision цифр после комі.: =''; I: = 1 to aTrgPrecision do begin: = FracPart * aTrgBase;: = StrFrac + IntToDigit (Trunc (TempNum));: = Frac (TempNum);
// Е...
