呵呵,发一个比较有趣的问题,大家可以尝试尝试阿...

[tatty_bad]

大家都知道QQ的等级吧，是按照太阳、月亮、星星，来计算等级的。
换算规则是：
1个星星 ＝ 10分
5个星星 换 1个月亮
5个月亮 换 1个太阳

定义太阳的图片为1.gif
定义月亮的图片为2.gif
定义星星的图片为3.gif

那么请大家写一个函数：

要求在不同的分数的时侯，根据分数来显示太阳、月亮、星星的图片。

比如说：135分＝2个月亮＋3个星星
342分＝1个太阳＋1个月亮＋4个星星
714分＝2个太阳＋4个月亮＋1个星星

有兴趣的可以尝试一下。。。昨天晚上我想了好一会儿，写了不少代码，最后发现原来我走了不少弯路。

呵呵，看看哪位写的代码最少。。。

[usaspy]

int score = 761
int i = 10;
int j = 50;
int x = 250;

int tmp1 = 0;
int tmp2 = 0;
int tmp3 = 0;

if(score/x >= 1){
tmp3 = score/x;
}

if((score-tmp3*x)/j >= 1){
tmp2= (score-tmp3*x)/j;
}

if((score-tmp3*x-tmp2*j)/i) >=1){
tmp1=(score-tmp3*x-tmp2*j)/i)
}


for(int a=1;a<=tmp3;a++){
out.println("3.gif");
}
for(int a=1;a<=tmp2;a++){
out.println("2.gif");
}
for(int a=1;a<=tmp1;a++){
out.println("1.gif");
}

[tatty_bad]

这是我写的。。。大家讨论讨论，我觉得这样就可以做到，判断，都不可以不要的

Function GetPic(UserNum)
Dim TaiYNum,YueLNum,XingXNum,TNum,YNum,XNum,TaiYY,YueLY,XingXY
TaiYNum = 250
YueLNum = 50
XingXNum = 10

TNum = 0
YNum = 0
XNum = 0

TNum = UserNum \ TaiYNum
TaiYY = UserNum Mod TaiYNum
YNum = TaiYY \ YueLNum
YueLY = TaiYY Mod YueLNum
XNum = YueLY \ XingXNum
XingXY = YueLY Mod XingXNum

GetIt = String("<img src=1.gif>",TNum) & String("<img src=1.gif>",YNum) & String("<img src=1.gif>",DNum)

End Function

[sjjf]

to tatty_bad(我总是出现在该出现的地方) :
如果只有三个等级情况下，你的做法是最优的。这个问题实质类似，不同的进制数的转换。略不同的是，每一个位的权都可能不一样。你的做法是手工展开，如果等级不是三个，而是四个，改动范围几乎是全部的。从定义变量到构造显示串。
如果等级增加一倍，那么代码量就不止一倍了。
如果把等级和对应的分数改成从文件中配置呢? 而且可以从中配置任意多的等级呢？任意改变等级的定义呢？

[amandajj]

这个问题有趣啊，我已经开始写了哟。
对于这类问题，好像思路很重噢。

[lisoon]

总分除于250，得出有没有太阳，总分-太阳个数*250/50得出星数量..依此类推，不难。都有五倍的关系，我想应该可以用递规，这样才是最短的。

[tatty_bad]

呵呵，尝试之后才知道乐趣所在。。。
3楼的思路与我刚开始相同。。。。

[it_farmer]

有幸趣
<%
Public function gif(num)
dim i,j,k,first,sec,third
first=int(num/250)
sec=int((num mod 250)/50)
third=int(num/10) mod 5
for i=1 to first
Response.Write("<img src='1.gif'>")
next
for j=1 to sec
Response.Write("<img src='2.gif'>")
next
for k=1 to third
Response.Write("<img src='3.gif'>")
next
end function
%>
<%=gif(135)%>
我也写了这么多。

[wxf0104]

有点意思，试试先。

[tatty_bad]

for i=1 to first
Response.Write("<img src='1.gif'>")
next
for j=1 to sec
Response.Write("<img src='2.gif'>")
next
for k=1 to third
Response.Write("<img src='3.gif'>")
next
这一段改成String不是更好？呵呵

[超级大笨狼]

<SCRIPT LANGUAGE="vbScript">
'简单的递归而已
function f(x)
if x>250 then
re = re & int(x/250) & "¸öÌ«Ñô + "
f=f(x mod 250)
else
if x>50 then
re = re & int(x/50) & "¸öÔÂÁÁ + "
f=f(x mod 50)
else
re = re & int(x/10) & "¸öÐÇÐÇ"
end if
end if
end function


'test
dim re
dim a
a=1350
f(a)
alert re
</SCRIPT>

[超级大笨狼]

靠，乱码。

<SCRIPT LANGUAGE="vbScript">

function f(x)
if x>250 then
re = re & int(x/250) & "个太阳 + "
f=f(x mod 250)
else
if x>50 then
re = re & int(x/50) & "个月亮 + "
f=f(x mod 50)
else
re = re & int(x/10) & "个星星"
end if
end if
end function
'test
dim re
dim a
a=1350
f(a)
alert re
</SCRIPT>

[tatty_bad]

狼，需要这样么？？？
我觉得复杂。。。

[xutao888]

<script>
var Source;
var i;
Source = 276;
for(i=1;i<=Math.floor(Source/250);i++)
document.write("Sun");
Source = Source%250;
for(i=1;i<=Math.floor(Source/50);i++)
document.write("Moon");
Source = Source%50
for(i=1;i<=Math.floor(Source/10);i++)
document.write("Star");
</script>

[xtuwz]

愛動手的總是最棒的,我回頭也寫寫看

[biao1]

好贴 标记了

[xdspower]

如果不用递归，代码也不多，其实这就是一个特殊的数值问题。
进位关系是
5,5,10
对于数值问题，效率高的是查表，而且因为地位的和显示没有关系，所以最地位的可以很简单的处理掉，变成一个10进制转换5进制的问题，而且最高位还是10进制的，所以变成只有几个除法而已
假定N是等级,太阳个数为Sun，月亮个数为Moon，星星个数为n
n=N/10
Sun=n/25
Moon=(n%25)/5
n=n%5
其它的用来显示的就不说了。/为整除，%为取余

[xdspower]

因为一般还需要保留原来的等级数，所以我这个不显式增加任何变量
命名N：等级，Sun：太阳，Moon：月亮，Star：星星
Star=int( N / 10 );
Sun=int( Star / 25 );
Moon=( Star % 25 )/5;
Star=Star % 5;

[爱我的人请呼吸]

楼上正解 学习学习再学习

[sjjf]

to xdspower() :
alert(26/7);

[tatty_bad]

to sjjf(水晶剑锋)
其实我这个问题也就需要三级，所以我在考虑的时候，就对于三级的情况下进行考虑了，没有往无限级方向去想。。。

你的更适合在不指定级数的情况下使用。。

还有就是狼的。。。