Перевести число из десятичной системы в прямой, обратный и дополнительный код Delphi 7 - Delphi - Ответ 5923378

type
  TForm107 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form107: TForm107;
  x,a:integer;
implementation
 
{$R *.dfm}
 function TForm107.Perevod(x: Integer): string;
const t:array[0..1] of char = ('0','1');
var res:string;
d:0..1;
begin
res:='';
while (x<>0) do
begin
d:=x mod 2 ;
res:=t[d]+res;
x:=x div 2 ;
end;
Perevod:=res;
end;
procedure TForm107.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
 Label1.Caption:=(Perevod(a));
end;

function TForm107.Perevod(x: Integer): string;

function Perevod(x: Integer): string;
const t:array[0..1] of char = ('0','1');
var res:string;
d:0..1;
begin
res:='';
while (x<>0) do
begin
d:=x mod 2 ;
res:=t[d]+res;
x:=x div 2 ;
end;
Perevod:=res;
 
end;
procedure TForm107.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
 Label1.Caption:=(Perevod(a));
end;
end.