📄 db0002.htm
字号:
<HTML><HEAD><TITLE>亦多EastDoor</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR><link rel="stylesheet" href="../eastdoornew.css"></HEAD>
<BODY bgColor=#ffffff text=#000066 vLink=#e0e0e0>
<TABLE align=center border=0 borderColorLight=#90 cellPadding=0 cellSpacing=0
width=753>
<TBODY>
<TR align=middle>
<TD width=200 valign="top"><img src="../image/logo.gif" width="200" height="70"></TD>
<TD align=left height=56 vAlign=top width=603 colspan="2">
<div align="right">
<a href="http://202.113.29.120/">
<img src="../image/titlesoft.gif" height="72" border="0" alt="亦多下载中心"></a>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center"></div>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR>
<TD align=middle height=292 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1
width="100%" bgcolor="#6699CC">
<TBODY>
<TR align=left bgcolor="#FFFFFF">
<TD colSpan=4 vAlign=top height=2>
<div align="left">
<table width="100%" border=" 0" cellspacing="1">
<tr bgcolor="#C1D6EA">
<td>
<div align="center">-=<font color="#FFFF33">-</font> 数据库
<font color="#FFFF33">-</font>=-</div>
</td>
</tr>
</table>
</div>
</TD>
</TR>
<TR vAlign=middle bgcolor="#6699CC">
<TD colSpan=4 height="325">
<TABLE border=0 cellSpacing=0 height=100% width="100%" align="center">
<TBODY>
<TR vAlign=top>
<TD width="67%" rowspan="2" bgcolor="#FFFFFF">
<center>
<font size="-1" class="12v" color="#99000">用FoxPro解一道数学竞赛题<em>[1999-04-13]</em><br>
</font>
</center>
<br>
<font size="-1" class="12v"> 我在辅导数学竞赛时,有这样一个题目:1×2×3×...×1990的积的最右边第一个不是0的数是多少。资料上的解答是:从1乘到10的第一个不是0的尾数是8,那么从11乘到20及从21乘到30,从31乘到40等等的第一个不是0的尾数都是8,所以从1乘到1990的第一个不是0的尾数等于8的199次方的尾数,即是。.我对此解答产生了怀疑,于是我用FoxPro语言编了一个程序,得到了正确的答案。<br>
<br>
该程序可算出任两数间连续自然数的积的第一个不是0的尾数。主要思想是:当积末尾出现0时,用一循环程序削去0,当累计积位数超过5位时,只保留末5位数,削去高位,最后求出累计积第一个不是0的尾数。程序如下:<br>
<br>
set talk off<br>
<br>
input “请输入小数:"to b<br>
<br>
input “请输入大数:" to a<br>
<br>
s=1<br>
<br>
b1=b <br>
do while <br>
s=s＊b<br>
<br>
b=b＋1<br>
<br>
do while .t.<br>
<br>
if int(s/10)=s/10<br>
<br>
s=s/10<br>
<br>
else<br>
<br>
exit<br>
<br>
endif<br>
<br>
enddo<br>
<br>
n=len(allt(str(s)))<br>
<br>
if n>4<br>
<br>
s=int(val(righ(str(s),5))) <br>
<br>
endif<br>
<br>
?s<br>
<br>
enddo<br>
<br>
m=righ(str(s),1)<br>
<br>
m1=allt(str(b1))<br>
<br>
m2=allt(str(b1＋1))<br>
<br>
m3=allt(str(a))<br>
<br>
?“＆m1×＆m2×...×＆m3的第一个不是0的尾数是:＆m"</font><br>
<p align="center"> </p>
</TD>
</TR>
<TR vAlign=top> </TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR bgColor=#000000>
<TD align=middle colSpan=4 height=2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
<table cellspacing="1" cellpadding="2" width="100%" border="0">
<tr>
<td align=center><font class=footer>编程中心<br><img src="image/hr_black.gif" height=1 width=50%><br>版权所有：天津市数据通信局 中国亦多网络Eastdoor.com</font><br>有任何疑问请与<a href="mailto:webmaster@mail.eastdoor.com">网络管理员</a>联系</td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -