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

UpperCase(ResultStr); // перевірка та задання початкових параметрів

for i := 1 to (Length(ResultStr)) do

begin

p := Pos(ResultStr[i] , RadixChar) - 1;

if ((p < 0) or (p >= Abs(Radix))) then begin

Exit; // Перевірка правильності вводу

end ;

v := v * Abs(Radix) + p; // підрахунок числа в десятковому форматі

if (v < 0 ) then begin

ResultStr:= 'Помилкавводузначенняперевищує 64^2 = '+IntToStr(High(Int64))+'(10)';

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];

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