|
ｿｽ@ｿｽｿｽｿｽsｿｽ^ｿｽSｿｽｿｽｿｽXｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 16:03:09
3ｿｽｿｽaｿｽｿｽbｿｽｿｽ100ｿｽ満ゑｿｽｿｽｿｽｿｽsｿｽ^ｿｽSｿｽｿｽｿｽXｿｽｿｽ
ｿｽia,b,c,ｿｽj,(a*a+b*b=c*c)
ｿｽｿｽｿｽｿｽﾗて出ｿｽﾍゑｿｽｿｽAｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾄ休ｿｽﾝ？ 2005/08/05(ｿｽｿｽ) 16:28:06
ｿｽﾅ近、ｿｽﾄ休ｿｽﾝの宿ｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽ竄ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽけゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽhｿｽｿｽ成ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ義ｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 16:41:57
ｿｽﾜゑｿｽｿｽAｿｽｿｽbｿｽｿｽｿｽwｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽDelphiｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽｿｽB
ｿｽﾅ鯉ｿｽﾉ趣ｿｽｿｽｿｽｿｽﾅコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ搾ｿｽ 2005/08/05(ｿｽｿｽ) 19:59:32
ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽAｿｽZｿｽｿｽｿｽuｿｽｿｽｿｽ利用ｿｽｿｽｿｽﾄ記ｿｽqｿｽｿｽｿｽｿｽﾈゑｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ…
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 20:19:21
ｿｽｿｽｿｽﾍ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽｿｽﾆゑｿｽｿｽﾄは鯉ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂゑｿｽｿｽﾅ近難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ、
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽﾈ包ｿｽｿｽﾉ考ｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾅ費ｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄは？
ｿｽhｿｽｿｽHｿｽﾉつゑｿｽｿｽﾄ具ｿｽｿｽｿｽｿｽ請ゑｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽﾌは否定しｿｽﾜゑｿｽｿｽが、ｿｽ^ｿｽｿｽｿｽﾈ姿ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ趣ｿｽﾌ「ｿｽﾛ題教ｿｽｿｽｿｽﾄ」ｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽﾉはまとゑｿｽﾈ難ｿｽｿｽｿｽｿｽﾍ返ゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 21:52:51
ｿｽｿｽｿｽｿｽyｿｽｿｽｿｽﾌ意鯉ｿｽｿｽﾉ賛ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ{ｿｽ¥ｿｽﾉは逆ｿｽ轤ｦｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽzｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽ¥ｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾂ読撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾌでゑｿｽｿｽﾌ辺に暦ｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
unit Unit1;
interface
uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
function getPythagoras(MaxValue:integer; var count:integer):string;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
c:Cardinal;
MaxValue,count:integer;
begin
MaxValue:=100;
c:=GetTickCount;
str:= getPythagoras(MaxValue,count);
c:=GetTickCount - c;
str:= 'ｿｽZｿｽｿｽﾍ茨ｿｽ = ' + inttostr(MaxValue) + #13#10 +
'ｿｽｿｽｿｽｿｽ = ' + inttostr(count) + 'ｿｽｿｽ' + #13#10 +
'ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ = ' + inttostr(c) + 'ｿｽ‾ｿｽｿｽｿｽb' + #13#10 +
str;
Memo1.Text:=Str;
end;
function TForm1.getPythagoras(MaxValue: integer; var count:integer): string;
// MaxValue:a,bｿｽﾌ最托ｿｽl
// count:ｿｽｿｽｿｽｿｽ
var
a,b,c,d,m,n: integer;
cList : array of integer;
function noMuch(index:integer):boolean;
var i:integer;
begin
for i:= 0 to Length(cList)-1 do
if cList[i]=index then
begin
Result:=False;
exit;
end;
SetLength(cList,Length(cList)+1);
cList[Length(cList)-1]:=index;
Result:=True;
end;
begin
n:=0;
repeat
inc(n);
m:=n;
repeat
inc(m);
a:=(m*m-n*n);
b:=(2*m*n) ;
c:=(m*m+n*n);
d:=0;
repeat
inc(d);
if (a*d <= MaxValue) and (b*d <= MaxValue) and
(noMuch(c*d)=True) then
if a<b then
Result:=Result +
inttostr(a*d) +#9+
inttostr(b*d) +#9+
inttostr(c*d) + #13#10
else
Result:=Result +
inttostr(b*d) +#9+
inttostr(a*d) +#9+
inttostr(c*d) + #13#10
until (a*d > MaxValue) or (b*d > MaxValue);
until (a > MaxValue) or (b > MaxValue);
m:=n;
a:=(m*m-n*n);
b:=(2*m*n) ;
until (a > MaxValue) or (b > MaxValue);
count:=Length(cList);
end;
end.
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽH 2005/08/05(ｿｽｿｽ) 22:23:26
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾍわかｿｽ驍ｯｿｽﾇ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 22:51:30
ｿｽｿｽｿｽ[ｿｽｿｽc
ｿｽGｿｽNｿｽZｿｽｿｽｿｽﾅ鯉ｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ難ｿｽｿｽｿｽｿｽﾉ間違えｿｽﾍ厄ｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc
ｿｽｿｽ閧ｱｿｽﾚゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈ？
ｿｽﾔ違えｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
m,nｿｽﾍ互ゑｿｽｿｽﾉ素ｿｽﾅ片包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾐ包ｿｽｿｽｿｽｿｽ数ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾊはゑｿｽｿｽﾄまゑｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎでよいｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽﾈゑｿｽ(a,b,c)ｿｽｿｽｿｽｿｽｿｽｿｽﾍ間茨ｿｽｿｽｿｽﾄゑｿｽ(a,b,c)ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽか？
ｿｽEｿｽｿｽｿｽｿｽ 2005/08/05(ｿｽｿｽ) 23:46:22
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽc
ｿｽｿｽｿｽｿｽﾐと頑張ｿｽ閧ｵｿｽﾜゑｿｽ orz
ｿｽEｿｽｿｽｿｽｿｽ 2005/08/06(ｿｽy) 00:11:28
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆスｿｽ}ｿｽ[ｿｽgｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽCｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾄみてはゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
function TForm1.getPythagoras2(MaxValue: integer; var count:integer): string;
// MaxValue:a,bｿｽﾌ最托ｿｽl
// count:ｿｽｿｽｿｽｿｽ
var
a,b,c,d,e,m,n: integer;
aList,bList,cList : array of integer;
function noMuch(a,b,c:integer):boolean;
var i:integer;
begin
for i:= 0 to Length(cList)-1 do
if (cList[i]=c) and (aList[i]=a) and (bList[i]=b) then
begin
Result:=False;
exit;
end;
i:= Length(cList);
SetLength(aList,i+1);
SetLength(bList,i+1);
SetLength(cList,i+1);
aList[i]:=a;
bList[i]:=b;
cList[i]:=c;
Result:=True;
end;
begin
n:=0;
repeat
inc(n);
m:=n;
repeat
inc(m);
a:=(m*m-n*n);
b:=(2*m*n) ;
c:=(m*m+n*n);
if a>b then
begin
e:=a; a:=b; b:=e;
end;
d:=0;
repeat
inc(d);
if (a*d <= MaxValue) and (b*d <= MaxValue) and
(noMuch(a*d,b*d,c*d)=True) then
begin
Result:=Result +
//inttostr(m) +#9+
//inttostr(n) +#9+
//inttostr(d) +#9+
inttostr(a*d) +#9+
inttostr(b*d) +#9+
inttostr(c*d) +#13#10;
end
until (a*d > MaxValue) or (b*d > MaxValue);
until (a > MaxValue) or (b > MaxValue);
m:=n;
a:=(m*m-n*n);
b:=(2*m*n) ;
until (a > MaxValue) or (b > MaxValue);
count:=Length(cList);
end;
ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/06(ｿｽy) 01:05:24
ｿｽﾝなゑｿｽｿｽｿｽAｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾉウｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ托ｿｽﾏ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽFｿｽｿｽｿｽｿｽﾌ指ｿｽEｿｽﾇゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ抵ｿｽoｿｽﾛ托ｿｽﾌひとつでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽnｿｽﾟゑｿｽｿｽﾌ趣ｿｽｿｽﾆの暦ｿｽｿｽCｿｽﾒは趣ｿｽｿｽﾆで趣ｿｽﾉ図ｿｽ`ｿｽ`ｿｽﾊのプｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽｿｽwｿｽKｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽDelphiｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽﾉつゑｿｽｿｽﾄ体系ｿｽｿｽｿｽｿｽｿｽﾄ具ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽけｿｽﾅゑｿｽﾈゑｿｽｿｽﾌに（ｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽforｿｽｿｽｿｽAifｿｽｿｽｿｽｿｽｿｽxｿｽjｿｽAｿｽﾋ然ｿｽｿｽｿｽxｿｽﾈ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽoｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾈり困ｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ況でゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽいｿｽｿｽﾈ本ｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈにゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽZｿｽAｿｽｿｽｿｽﾌ大小ｿｽEｿｽﾍ囲設抵ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ会ｿｽﾌ出ｿｽﾍの仕ｿｽｿｽｿｽﾈどゑｿｽﾚゑｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽwｿｽIｿｽﾈ知ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽﾔ的ｿｽﾉゑｿｽ}ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで趣ｿｽｿｽｿｽﾈ趣ｿｽｿｽ笊ｶｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Fusa 2005/08/06(ｿｽy) 14:45:46
>ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽnｿｽﾟゑｿｽｿｽﾌ趣ｿｽｿｽﾆの暦ｿｽｿｽCｿｽﾒは趣ｿｽｿｽﾆで趣ｿｽﾉ図ｿｽ`ｿｽ`ｿｽﾊのプｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽｿｽwｿｽKｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽDelphiｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽﾉつゑｿｽｿｽﾄ体系ｿｽｿｽｿｽｿｽｿｽﾄ具ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽけｿｽﾅゑｿｽﾈゑｿｽｿｽﾌに（ｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽｿｽforｿｽｿｽｿｽAifｿｽｿｽｿｽｿｽｿｽxｿｽjｿｽAｿｽﾋ然ｿｽｿｽｿｽxｿｽﾈ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽoｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾈり困ｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ況でゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽKｿｽﾘな課托ｿｽｿｽoｿｽｿｽｿｽ黷ｽｿｽｿｽ
ｿｽoｿｽｿｽｿｽl(ｿｽ謳ｶｿｽH)ｿｽﾉ指ｿｽEｿｽｿｽｿｽﾄ修ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽB
ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ具ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾌゑｿｽｿｽｿｽﾌままコｿｽsｿｽyｿｽｿｽｿｽｿｽ
ｿｽ謳ｶｿｽﾉ抵ｿｽoｿｽｿｽｿｽｿｽﾆ、ｿｽNｿｽﾍ不ｿｽｿｽｿｽﾉ撰ｿｽｿｽﾑゑｿｽﾒゑｿｽｿｽﾆとゑｿｽｿｽ
ｿｽｿｽｿｽﾌ先生ｿｽｿｽｿｽgｿｽｿｽ"ｿｽsｿｽKｿｽﾘな難しｿｽｿｽｿｽﾌ課托ｿｽｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ"
ｿｽﾆゑｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽｿｽｿｽsｿｽﾗに気ｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽA
ｿｽﾔ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽだ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄみゑｿｽﾈゑｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾋ。
ｿｽEｿｽHｿｽｿｽｿｽX 2005/08/06(ｿｽy) 17:42:51
ｿｽoｿｽxｿｽｿｽEｿｽE
ｿｽｿｽｿｽｿｽﾈゑｿｽﾅどゑｿｽｿｽH
ｿｽｿｽmathｿｽｿｽuseseｿｽﾟに追会ｿｽｿｽｿｽｿｽ驍ｱｿｽｿｽ
procedure TForm1.Button1Click(Sender: TObject);
var
count :Integer;
Bf:AnsiString;
a,b :Integer;
c :Double;
begin
{
ｿｽ@100ｿｽﾈ会ｿｽｿｽﾈら時ｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、
ｿｽ@ｿｽｿｽｿｽｿｽﾝつぶゑｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽB
ｿｽ@ｿｽﾅ托ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ指ｿｽｿｽｿｽIｿｽﾉ計ｿｽZｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで抵ｿｽｿｽﾓ
}
count := 0;
for a:=3 to 99 do
begin
for b:=a+1 to 100 do
begin
c := sqrt(a*a + b*b);
if abs(c - Trunc(c + 0.5)) < MinDouble then //sqrt(a^2 + b^2) ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽrｿｽｿｽｿｽ`ｿｽFｿｽbｿｽN
begin
if ( Trunc(c + 0.5)*Trunc(c + 0.5) = a*a + b*b) then //ｿｽﾄチｿｽFｿｽbｿｽN
begin
Bf := Format('a:%3d, b:%3d, c;%3d',[a,b,Trunc(c+0.5)]);
Memo1.Lines.add(Bf);
Inc(count);
Bf := '';
end;
end;
end;
end;
Bf := Format('count:%d',[count]);
Memo1.Lines.add(Bf);
end;
ｿｽEｿｽHｿｽｿｽｿｽX 2005/08/07(ｿｽｿｽ) 00:25:17
(u^2-v^2)^2 + (2*u*v)^2 = (u^2+v^2)^2
ｿｽｿｽｿｽｿｽAu,vｿｽ総難ｿｽｿｽｿｽﾅ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(a,b,c)ｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽﾌと思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA(a,b,c)ｿｽﾌ素ｿｽｿｽｿｽ{ｿｽﾍゑｿｽｿｽｿｽﾅは搾ｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは素ｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽﾜゑｿｽｿｽBｿｽj
ｿｽeｿｽvｿｽfｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾜで具ｿｽｿｽﾟゑｿｽﾆなゑｿｽﾆ托ｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽﾈりしｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽUｿｽfｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾔゑｿｽB
ｿｽｿｽｿｽｿｽｿｽﾜでは具ｿｽｿｽﾟゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。
ｿｽｿｽｿｽ黷ｩｿｽｿｽAｿｽｿｽxｿｽrｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽKｿｽvｿｽﾍゑｿｽｿｽﾜゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾙとゑｿｽﾇゑｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽLｿｽﾌケｿｽ[ｿｽXｿｽﾅは最擾ｿｽｿｽﾉ荒ｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽ}ｿｽｿｽｿｽﾉゑｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾝてゑｿｽuｿｽrｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽvｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ厄ｿｽｿｽﾊでゑｿｽｿｽB
ｿｽEｿｽHｿｽｿｽｿｽX 2005/08/07(ｿｽｿｽ) 09:44:34
ｿｽｿｽｿｽ`ｿｽEｿｽE
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ奇ｿｽｿｽｿｽm,nｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ全ｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾈゑｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽXｿｽgｿｽﾅ重ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽﾎ素ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽCｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾂ能ｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾋ。
ｿｽiｿｽﾊｿｽｿｽXｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽj
ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/12(ｿｽｿｽ) 13:23:31
ｿｽｿｽｿｽXｿｽxｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽEｿｽHｿｽｿｽｿｽXｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽA63ｿｽﾊゑｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ出ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽIｿｽﾈゑｿｽｿｽ閧｢ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽﾉｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆに奇ｿｽｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽFusaｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌほゑｿｽｿｽｿｽAｿｽｿｽｿｽkｿｽｿｽｿｽｿｽｿｽﾗての課托ｿｽｿｽｿｽｿｽﾍで会ｿｽｿｽｿｽﾄゑｿｽｿｽ骼厄ｿｽｿｽzｿｽ閧ｵｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽkｿｽｿｽｿｽｿｽｿｽﾍで会ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌと思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽkｿｽﾌゑｿｽｿｽﾆゑｿｽcｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽﾒのようｿｽﾈ具ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ点ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈので別にゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ「ｿｽｿｽｿｽｿｽｿｽﾄ」ｿｽ^ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
