Developing.ru

Код: Выделить всё

unit bbn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TBigBinNumber = array [0..24] of byte;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    btnMul: TButton;
    Edit3: TEdit;
    btnDiv2: TButton;
    procedure btnMulClick(Sender: TObject);
    procedure btnDiv2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  b	   : TBigBinNumber;

implementation

{$R *.dfm}

Function _binLoad(p1:Byte):TBigBinNumber;
begin
Result[0] := p1;
FillChar(Result[1], 24, 0);
end;

function _binAdd(p1,p2:TBigBinNumber):TBigBinNumber;
var x, w: word;
begin
W := 0;
for x:=24 downto 0 do
	begin
	W := P1[X]+P2[X] + w shr 8;
	Result[X] := byte(W);
	end;
end;

function _binMul(p1,p2:TBigBinNumber):TBigBinNumber;
var x, y, w : Word;
tmp  	: TBigBinNumber;
begin
Result := _binLoad(0);
For x:=24 downto 0 do
	begin
	w := 0;
	For y:=24 downto 0 do
		begin
		w := p1[x]*p2[y] + w shr 8;
		tmp[y] := byte(w);
		end;
	Result := _binAdd(Result, tmp);
	end;
end;

Function _binDiv2(p1:TBigBinNumber):TBigBinNumber;
var x 		 : Integer;
	oldcf, cf: Byte;
begin
oldcf := 0;
cf := 0;
For x:=0 to 24 do
	begin
	cf := p1[x] and 1;
	Result[x] := (p1[x] shr 1) or (oldcf shl 7);
	oldcf := cf;
	end;
end;

Function _binGetAsReal(p1:TBigBinNumber):Real;
var divizor : Real;
	x, y	: Integer;
begin
Result := 0;
Divizor := 128;
For X:=0 to 24 do
	for Y:=7 downto 0 do
		begin
		Result := Result + ((p1[X] shr Y) and 1) * divizor;
		divizor := divizor / 2;
		end;
end;

procedure TForm1.btnMulClick(Sender: TObject);
var p1,p2	: Integer;
begin
p1 := StrToInt(Edit1.Text);
p2 := StrToInt(Edit2.Text);
b := _binMul(_binLoad(p1), _binLoad(p2));
Edit3.Text := FloatToStrF(_binGetAsReal(b), ffFixed, 10, 13);
end;

procedure TForm1.btnDiv2Click(Sender: TObject);
begin
b := _binDiv2(b);
Edit3.Text := FloatToStrF(_binGetAsReal(b), ffFixed, 10, 13);
end;

end.