delphi нужно описать как можно больше строчек кода с программы - вопрос №1263710
нужно описать как можно больше строчек кода с программы
программа для перевода чисел в различные системы счислений
буду очень благодарна за помощь
unit Unit1;
type
TForm1 = class(TForm)
edit1: TEdit;
edit2: TEdit;
button1: TButton;
label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
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.