в делфи написать программу счисления

[ангелочик]

написать программу , осуществляющую перевод чисел из десятичной системы счисления в систему счисления с основанием (n).

[Onni]

Это не мой текст программы и если вдруг автор увидит своё творение, то заранее прошу прощения.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    // Исходное число в десятичной системе счисления.
    // Десятичная точка обозначается знаком запятая: ','
    edDecimalNum: TEdit;
    // Число в заданной системе счисления,
    // получившееся в результате прербразования.
    edXNum: TEdit;
    // Число задающее основание системы счисления.
    edBase: TEdit;
    // Точность преобразования - количество знаков после запятой в результирующем
    // представлении числа.
    edPrecision: TEdit;
    // Кнопка по нажатию на которую происходит преобразование.
    BtnTranslate: TButton;
    //Ниже - надписи для перечисленных выше элементов.
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    // Обработчик события onClick для BtnTranslate.
    procedure BtnTranslateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function IntToDigit(aVal : Byte) : String;
begin
  case aVal of
    0..9 : Result := IntToStr(aVal);
    10   : Result := 'A';
    11   : Result := 'B';
    12   : Result := 'C';
    13   : Result := 'D';
    14   : Result := 'E';
    15   : Result := 'F';
  end;
end;
 
function DecimalToXStr (aBase : Byte; Precision : Byte; aVal : Extended) : String;
var
  Val : Extended;
  IntVal : Int64;
  FracVal : Extended;
  StrInt : String;
  StrFrac : String;
  i : Integer;
begin
  // Получаем целую и дробную части числа.
  IntVal := Trunc(aVal);
  FracVal := Frac(aVal);
 
  //Переводим целую часть.
  StrInt := '';
  repeat
    StrInt := IntToDigit(IntVal mod aBase) + StrInt;
    IntVal := IntVal div aBase;
  until IntVal = 0;
 
  // Если дробная часть = 0, то перевод закончен.
  if FracVal = 0 then begin
    Result := StrInt;
    exit;
  end;
 
  //Переводим дробную часть. Точность - до Precision цифр после запятой.
  StrFrac := '';
  for i := 1 to Precision do begin
    Val := FracVal * aBase;
    StrFrac := StrFrac + IntToDigit(Trunc(Val));
    FracVal := Frac(Val);
    //Если дробная часть = 0, то перевод закончен.
    if FracVal = 0 then Break;
  end;
 
  Result := StrInt + ',' + StrFrac;
 
end;
 
procedure TForm1.BtnTranslateClick(Sender: TObject);
begin
  edXNum.Text := DecimalToXStr(
    StrToInt(edBase.Text),
    StrToInt(edPrecision.Text),
    StrToFloat(edDecimalNum.Text)
  );
end;
 
end.