[Uuuu]

1.Составить программу для перевода числа из десятичной системы счисления в двенадцатиричную.

[Страдалецъ]

Код позаимствован с другого форума. Перевод в любую систему счисления от 2 до 36;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     Label1: TLabel;     procedure button1Click(Sender: TObject);   end; const     zn : string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var   Form1: TForm1;   implementation   {$R *.dfm}   function Convert(chis:integer;osn:byte):string; begin result:=''; repeat     result:=zn[(chis mod osn)+1] + result;         chis:=chis div osn; until chis=0; end;   procedure TForm1.button1Click(Sender: TObject); var s:string; //число     intc,frcc:integer; //целая и дробная части     osn:byte;//основание от 2 до 36 begin s:=Edit1.text; //число osn:=StrToint(Edit2.Text); if pos(',',s)<>0 then    begin     intc:=Strtoint(copy(s,1,pos(',',s)-1)); //целая часть     frcc:=Strtoint(copy(s,pos(',',s)+1,length(s)-pos(',',s)));// дробная часть     Label1.Caption:=Convert(intc,osn)+','+Convert(frcc,osn);    end else if  pos(',',s)=0 then Label1.Caption:=Convert(StrToInt(s),osn); end; end.