📄 24点算法.mht
字号:
<TABLE cellSpacing=3D1 cellPadding=3D4 width=3D"100%" =
border=3D0>
<TBODY>
<TR class=3Dheader>
<TD width=3D152>=D7=F7=D5=DF:</TD>
<TD>
<TABLE class=3Dsmalltxt=20
style=3D"TABLE-LAYOUT: fixed; WORD-WRAP: break-word"=20
cellSpacing=3D0 cellPadding=3D0 width=3D"100%" =
border=3D0>
<TBODY>
<TR style=3D"COLOR: #ffffff">
<TD class=3Dbold>=B1=EA=CC=E2: =
24=B5=E3=CB=E3=B7=A8</TD>
<TD noWrap align=3Dright width=3D150><A=20
style=3D"FONT-WEIGHT: normal; COLOR: #ffffff"=20
=
href=3D"http://25.20.176.12/bbs/redirect.php?fid=3D144&tid=3D35564&am=
p;goto=3Dnextoldset">=C9=CF=D2=BB=D6=F7=CC=E2</A>=20
| <A style=3D"FONT-WEIGHT: normal; COLOR: =
#ffffff"=20
=
href=3D"http://25.20.176.12/bbs/redirect.php?fid=3D144&tid=3D35564&am=
p;goto=3Dnextnewset">=CF=C2=D2=BB=D6=F7=CC=E2</A></TD></TR></TBODY></TABL=
E></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><A=20
name=3Dpid361616>
<TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%" =
align=3Dcenter border=3D0>
<TBODY>
<TR>
<TD bgColor=3Ddarkblue>
<TABLE style=3D"TABLE-LAYOUT: fixed; WORD-WRAP: break-word"=20
cellSpacing=3D1 cellPadding=3D4 width=3D"100%" border=3D0>
<TBODY>
<TR bgColor=3D#e8f2ff>
<TD vAlign=3Dtop width=3D160>
<FIELDSET><LEGEND><A=20
=
href=3D"http://25.20.176.12/bbs/viewthread.php?tid=3D35564#endpid361616">=
<IMG=20
alt=3D=D7=AA=B5=BD=B5=DA1=CC=F9=C4=A9=CE=B2=20
=
src=3D"http://25.20.176.12/bbs/images/default/threadnext.gif"=20
border=3D0></A> <FONT title=3DPID=3D361616 =
color=3Dred>=C2=A5=D6=F7</FONT>=20
</LEGEND>
<TABLE style=3D"TABLE-LAYOUT: fixed" cellSpacing=3D0 =
cellPadding=3D0=20
width=3D"100%" border=3D0>
<TBODY>
<TR>
<TD>
<CENTER>
<H3>fishyuq</H3></CENTER><BR></TD></TR>
<TR bgColor=3D#e8f2cf>
<TD align=3Dmiddle><IMG=20
=
src=3D"http://25.20.176.12/bbs/customavatars/2644.gif"=20
border=3D0></TD></TR>
<TR>
<TD align=3Dmiddle><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"><IMG=20
=
src=3D"http://25.20.176.12/bbs/images/default/star.gif"></TD></TR></TBODY=
></TABLE></FIELDSET>=20
<TABLE cellSpacing=3D0 cellPadding=3D3 width=3D"100%" =
border=3D0>
<TBODY>
<TR>
<TD class=3Drow><IMG height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =CD=B7=CF=CE: <FONT =
color=3Dred>=BB=EE=B5=C4=CF=F1=B8=F6=D2=AF=C3=C7</FONT></TD></TR>
<TR>
<TD class=3Drow><IMG height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =D0=D4=B1=F0: <FONT =
color=3Dred>=C4=D0<IMG title=3D=D0=D4=B1=F0=A3=BA=C4=D0=20
=
src=3D"http://25.20.176.12/bbs/images/default/male.gif">=20
</FONT><!--(=B7=A2=CC=F9:<font =
color=3D"red">407</font>=C6=AA)--></TD></TR>
<TR>
<TD class=3Drow title=3D"=BB=FD=B7=D6:548 =
=B7=D6<br>=B7=A2=CC=F9:407 =C6=AA"><IMG=20
height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =BB=FD=B7=D6: <FONT =
color=3Dred>548</FONT>=B7=D6<!--(=B7=A2=CC=F9:<font =
color=3D"red">407</font>=C6=AA)--></TD></TR>
<TR>
<TD class=3Drow =
title=3D"=BE=AB=BB=AA=D6=B8=CA=FD:1 =B7=D6<br>=B7=A2=CC=F9:407 =
=C6=AA"><IMG=20
height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =B7=A2=CC=F9: <FONT =
color=3Dred>407</FONT>=C6=AA</TD></TR>
<TR>
<TD class=3Drow=20
=
title=3D"=B2=C6=B8=BB:168+400<br>=CF=D6=BD=F0:168<br>=B4=E6=BF=EE:400<br>=
=B4=F3=B8=BB=D6=AE=BC=D2"><IMG=20
height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =B2=C6=B8=BB: <FONT =
color=3Dred>568</FONT> =BD=F0=B1=D2</TD></TR>
<TR>
<TD class=3Drow=20
title=3D"=B1=E0=BA=C5: =
<b>2644</b></br>=C0=B4=D7=D4:<br>=D7=A2=B2=E1: 2004-4-11"><IMG=20
height=3D11=20
=
src=3D"http://25.20.176.12/bbs/images/default/ball.gif"=20
width=3D10> =B1=E0=BA=C5: =A1=ED2644<IMG =
title=3D"=D7=B4=CC=AC =C0=EB=CF=DF"=20
=
src=3D"http://25.20.176.12/bbs/images/default/offline_user.gif"=20
align=3DabsMiddle> =
</TD></TR></TBODY></TABLE></TD>
<TD height=3D"100%">
<TABLE style=3D"TABLE-LAYOUT: fixed; WORD-WRAP: =
break-word"=20
height=3D"100%" cellSpacing=3D0 cellPadding=3D0 =
width=3D"100%"=20
border=3D0>
<TBODY>
<TR>
<TD vAlign=3Dtop><SPAN class=3Dbold><SPAN=20
=
class=3Dsmalltxt>24=B5=E3=CB=E3=B7=A8<BR><BR></SPAN></SPAN><BR>=CB=E3=B7=A8=
=CA=C7=B4=D3=CD=F8=C9=CF=CF=C2=B5=C4<BR><BR>function=20
SearchExpression(mNumbers: array of=20
Integer;<BR> mDest: Integer):=20
string;<BR>const<BR> cPrecision =3D=20
1E-6;<BR>var<BR> vNumbers: array of=20
Extended;<BR> vExpressions: array of=20
string;<BR> vLength:=20
Integer;<BR> function=20
fSearchExpression(mLevel: Integer):=20
Boolean;<BR> var<BR> I, =
J:=20
Integer;<BR> A, B: =
Extended;<BR> =20
vExpA, vExpB:=20
string;<BR> begin<BR> =
Result :=3D=20
True;<BR> if (mLevel <=3D 1) and =
(Abs(vNumbers[0] - mDest) <=3D cPrecision) =
then=20
Exit;<BR> for I :=3D 0 to mLevel - =
1 do=20
begin<BR> for J :=3D I =
+ 1 to=20
mLevel - 1 do begin<BR> =20
A :=3D vNumbers[I];<BR> =20
B :=3D=20
vNumbers[J];<BR> =20
vNumbers[J] :=3D =
vNumbers[mLevel -=20
1];<BR> =
vExpA :=3D=20
vExpressions[I];<BR> =20
vExpB :=3D =
vExpressions[J];<BR> =20
vExpressions[J] =
:=3D=20
vExpressions[mLevel - 1];<BR> =
vExpressions[I] :=3D '(' + =
vExpA + '+' +=20
vExpB + ')';<BR> =20
vNumbers[I] :=3D A + =
B;<BR> =20
if=20
fSearchExpression(mLevel - 1) then =
Exit;<BR> =20
vExpressions[I] =
:=3D '(' +=20
vExpA + '-' + vExpB + ')';<BR> =
=20
vNumbers[I] :=3D A - =
B;<BR> =20
if=20
fSearchExpression(mLevel - 1) then =
Exit;<BR> =20
vExpressions[I] =
:=3D '(' +=20
vExpB + '-' + vExpA + ')';<BR> =
=20
vNumbers[I] :=3D B - =
A;<BR> =20
if=20
fSearchExpression(mLevel - 1) then =
Exit;<BR> =20
vExpressions[I] =
:=3D '(' +=20
vExpA + '*' + vExpB + ')';<BR> =
=20
vNumbers[I] :=3D A * =
B;<BR> =20
if=20
fSearchExpression(mLevel - 1) then =
Exit;<BR> =20
if B <> 0 =
then=20
begin<BR> =
vExpressions[I] :=3D '(' + vExpA + '/' + vExpB + =
')';<BR> =20
vNumbers[I] :=3D A / B;<BR> =20
if fSearchExpression(mLevel =
- 1)=20
then Exit;<BR> =20
end;<BR> =20
if A <> 0 then =
begin<BR> =20
vExpressions[I] =
:=3D '('=20
+ vExpB + '/' + vExpA + ')';<BR> =
=20
vNumbers[I] :=3D B / =
A;<BR> =20
if=20
fSearchExpression(mLevel - 1) then =
Exit;<BR> =20
end;<BR> =20
vNumbers[I] :=3D=20
A;<BR> =
vNumbers[J]=20
:=3D B;<BR> =20
vExpressions[I] :=3D =
vExpA;<BR> =20
vExpressions[J] =
:=3D=20
vExpB;<BR> =
end;<BR> =20
end;<BR> Result :=3D=20
=
False;<BR> end;<BR>var<BR> I:=20
Integer;<BR>begin<BR> vLength :=3D=20
=
Length(mNumbers);<BR> SetLength(vNumbers,=20
vLength);<BR> SetLength(vExpressions, =
vLength);<BR> for I :=3D 0 to vLength =
- 1 do=20
begin<BR> vNumbers[I] :=3D=20
mNumbers[I];<BR> vExpressions[I] =
:=3D=20
=
IntToStr(mNumbers[I]);<BR> end;<BR> if=20
fSearchExpression(vLength) then<BR> =
Result=20
:=3D vExpressions[0]<BR> else Result =
:=3D=20
'';<BR> vNumbers :=3D=20
nil;<BR> vExpressions :=3D =
nil;<BR>end;<A=20
name=3Dendpid361616></A>=20
<TABLE cellSpacing=3D0 cellPadding=3D0 =
width=3D"100%"=20
align=3Dcenter border=3D0>
<TBODY>
<TR>
<TD bgColor=3D#cccccc>
<TABLE cellSpacing=3D1 cellPadding=3D4 =
width=3D"100%"=20
border=3D0>
<TBODY>
<TR class=3Dheader>
<TD align=3Dmiddle width=3D"100%"=20
=
colSpan=3D4><B>=B1=BE=CC=F9=B0=FC=BA=AC=B8=BD=BC=FE</B></TD></TR>
<TR bgColor=3D#e8f2cf>
<TD =
width=3D"15%"> =CE=C4=BC=FE=C3=FB:</TD>
<TD width=3D"35%"><SPAN=20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -