|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽZｿｽﾌ擾ｿｽｿｽZ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
QA 2009/05/01(ｿｽｿｽ) 12:13:25
http://oku.edu.mie-u.ac.jp/‾okumura/algo/algo_pas.html
ｿｽiｿｽuｿｽRｿｽｿｽｿｽsｿｽｿｽｿｽ[ｿｽ^ｿｽEｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽｿｽｿｽｿｽTｿｽvｿｽﾌソｿｽ[ｿｽX CHAP04.pasｿｽj
ｿｽﾅ鯉ｿｽｿｽJｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髑ｽｿｽ{ｿｽｿｽｿｽｿｽｿｽZｿｽﾌ擾ｿｽｿｽZｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽﾟようｿｽﾆゑｿｽｿｽﾄ以会ｿｽｿｽﾌようｿｽﾉコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾆ被除ｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
(a)9999999999999999999999999999999999ｿｽ@ｿｽ除ｿｽｿｽ
899999999999999999999999999999999ｿｽ@ｿｽｿｽｿｽｿｽｿｽiｿｽ謫ｪｿｽｿｽ8ｿｽj
(b)99999ｿｽ@ｿｽ除ｿｽｿｽ
9999ｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽﾈどはゑｿｽｿｽｿｽｿｽｿｽｿｽ蛯､ｿｽﾔでゑｿｽｿｽｿｽ
(c)9999999999999999999999999999999999ｿｽ@ｿｽ除ｿｽｿｽ
999999999999999999999999999999999ｿｽ@ｿｽｿｽｿｽｿｽｿｽiｿｽ謫ｪｿｽｿｽｿｽXｿｽj
(d)99999ｿｽ@ｿｽ除ｿｽｿｽ
98999ｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽﾈどはダｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾈみに最擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽﾈゑｿｽｿｽ鼾
(e)9999ｿｽ@ｿｽ除ｿｽｿｽ
9998ｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽﾌようｿｽﾉ搾ｿｽｿｽｿｽ1ｿｽﾅゑｿｽnｿｽjｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽいｿｽ試ｿｽsｿｽｿｽｿｽしｿｽﾈゑｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽMｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾅゑｿｽｿｽB
-------------------------------------------------------------------------
ｿｽyCHAP04.pasｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽz
const
BASE = 10000; // 10000 ｿｽiｿｽ@
BASE_ONE = BASE-1; // BASE-1 = 9999
BASE2 = BASE*BASE; // BASE*BASE = 100,000,000ｿｽiｿｽPｿｽｿｽｿｽj
MAXLEN = 100000; // BASE ｿｽiｿｽ@ｿｽﾅの最大桁ｿｽｿｽ
type
Digit = 0..BASE_ONE; // ｿｽeｿｽｿｽｿｽﾌ撰ｿｽ(0 ｿｽｿｽｿｽｿｽ 9999)
TSuperLong = record
Len: 0..MAXLEN;
Num:array [0..MAXLEN] of Digit;
end;
ｿｽ@ｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ writeln ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ raise Exception.Create ｿｽﾉ替ゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
-------------------------------------------------------------------------
//ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ多倍ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ変奇ｿｽ
function StrToSuperLong(const S: string; n: Integer): TSuperLong;
var
X :TSuperLong;
dmy :string;
L, i, k:Integer;
begin
L := Length(S); i := 1;
repeat
k := L-i*n+1;
if k < 1 then dmy := Copy(S,1,n-1+k)
else dmy := Copy(S,k,n);
X.Len := i;
X.Num[X.Len] := StrToInt(dmy);
Inc(i);
until k <= 1;
Result := X;
end;
//ｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ数値ｿｽｿｽｿｽｿｽｿｽｿｽﾉ変奇ｿｽ
function TForm1.SuperLongToStr(X: TSuperLong): string;
var
i :Integer;
begin
Result := IntToStr(X.Num[X.Len]);
for i := X.Len-1 downto 1 do
Result := Result+Format('%.4d',[ X.Num[i] ]);
if X.Len = 0 then Result := '0';
end;
//ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽﾟゑｿｽ
procedure TForm1.Button1Click(Sender: TObject);
var
W, Bunshi, Bunbo, R, R2: TSuperLong;
i: Integer;
begin
if (Edit1.Text = '') or (Edit2.Text = '') then Exit;
W.Num[0] := 0; R.Num[0] := 0; R2.Num[0] := 0;
Bunshi := StrToSuperLong(Edit1.Text,4);//ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ多倍ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Bunbo := StrToSuperLong(Edit2.Text,4);
if (Bunbo.Num[1] = 0) and (Bunbo.Len = 1) then
begin
MessageDlg('0 ｿｽﾅは奇ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB', mtInformation, [mbOK], 0);
Exit;
end;
LongDiv(W, Bunshi, Bunbo, R); //W:ｿｽｿｽ R:ｿｽ]
if R.Num[1] = 0 then
Edit3.Text := SuperLongToStr(W) //ｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ数値ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
else
begin
Edit3.Text := SuperLongToStr(W)+'.';
ShortMul(R2,R,10); //ｿｽ]ｿｽｿｽ10ｿｽ{
for i := 1 to 30 do //ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾈ会ｿｽ30ｿｽｿｽ
begin
LongDiv(W, R2, Bunbo,R);
Edit3.Text := Edit3.Text+SuperLongToStr(W);
if R.Num[1] = 0 then break;
ShortMul(R2,R,10);
end;
end;
end;
KHE00221 2009/05/01(ｿｽｿｽ) 19:42:12
99999/99998 ｿｽｿｽｿｽｿｽｿｽ 1.0000 ｿｽﾆなるがｿｽA
ｿｽｿｽｿｽﾌとゑｿｽ R.Num[1] = 0 R.Num[2] = 1 ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾈのゑｿｽ
R.Num ｿｽSｿｽｿｽ 0 ｿｽﾌ趣ｿｽｿｽｿｽ Break ｿｽｿｽｿｽｿｽﾆようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ？
QA 2009/05/01(ｿｽｿｽ) 21:45:19
> 99999/99998 ｿｽｿｽｿｽｿｽｿｽ 1.0000 ｿｽﾆなるがｿｽA
> ｿｽｿｽｿｽﾌとゑｿｽ R.Num[1] = 0 R.Num[2] = 1 ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜではデｿｽoｿｽbｿｽKｿｽﾅ確ｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽ
> R.Num ｿｽSｿｽｿｽ 0 ｿｽﾌ趣ｿｽｿｽｿｽ Break ｿｽｿｽｿｽｿｽﾆようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ？
ｿｽﾆ思ｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽoｿｽJｿｽﾈ趣ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽMｿｽdｿｽﾈアｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
QAｿｽｿｽｿｽｿｽH 2009/05/02(ｿｽy) 09:25:08
(a)ｿｽｿｽｿｽｿｽ1
9999999999999999999999999999999999ｿｽ@ｿｽ除ｿｽｿｽ
9999999999999999999999999999999998ｿｽ@ｿｽｿｽｿｽｿｽ
(b)
9999999999999999999999999999999999ｿｽ@ｿｽ除ｿｽｿｽ
9899999999999999999999999999999998ｿｽ@ｿｽｿｽｿｽｿｽｿｽiｿｽ謫ｪｿｽｿｽｿｽｿｽ2ｿｽﾔ目ゑｿｽ8ｿｽj
9800099999999999999999999999999999ｿｽ@ｿｽｿｽｿｽｿｽ
9800099990000999999999999999999999ｿｽ@ｿｽｿｽｿｽｿｽ
-------------------------------------------------------------------------
(a)ｿｽｿｽｿｽnｿｽjｿｽﾈので厄ｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA(b)ｿｽﾌ暦ｿｽﾅは托ｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽmｿｽﾌ擾ｿｽｿｽZｿｽiLongDivｿｽjｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽﾗてゑｿｽ R.Num ｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉなゑｿｽAｿｽｿｽｿｽﾊゑｿｽ 1 ｿｽﾉなゑｿｽﾜゑｿｽｿｽBLongDiv ｿｽﾌバｿｽOｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾋゑｿｽｿｽH
http://f31.aaa.livedoor.jp/‾oilerex/pzip/
