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

end ;

end ;

// збереженняння параметрів до файлу

end .

2)unit Bases;

interface

// переведення числа з однією основою до іншої

procedure RadixStr(NumStr : String;

Radix : LongInt;

NewRadix : LongInt;

var

ResultStr : String);

implementation

uses SysUtils;

procedure RadixStr(NumStr : String; // введене число

Radix : LongInt; // основа введеного числа

NewRadix : LongInt; // основа шуканого числа

var

ResultStr : String);// шукане число

var

RadixChar : String;

v : Int64; //111111111111111111111111111111111111111111111111111111111111111

i : LongInt;

p : Int64;

begin

if ((Abs(Radix) < 2) or (Abs(Radix) > 36)) then Exit;

if ((Abs(NewRadix) < 2) or (Abs(NewRadix) > 36)) then Exit;

RadixChar:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

ResultStr:= Copy( NumStr, 0, Length(NumStr));