逻辑很强...佩服
好bt的題目..看看
本帖最后由 annybaby 于 2011-6-16 18:35 编辑
我也来凑个热闹
其实大家都比较容易想到最简单的那种就是:
假设2分的有i枚,那么1分的应该有10i枚,5分的则应该有K=(1000-10i-2*i)/5,只要两个数同时是非负整数就可以了,同时我觉得1分和2分都没有的应该不符合,所以循环不必到200,只要到round(1000/12)就可以了
$str=''
For $i=1 To Round(1000/12)
$z=(1000-12*$i)/5
If IsInt((1000-12*$i)/5) Then
$str=$str&10*$i&', '&$i&', '&$z&@CR
EndIf
Next
MsgBox(0,0,'1分,2分和5分的张数'&@CRLF&$str)
以上纯属乱弹,高手请无视~~
看了下楼主的,数组用得很灵巧,MS~~{:face (396):}
"换也5分硬币有可能有多少枚"
没看懂。。。
回复 14# love5173
这个5分和7分没有什么关系吧??主要就是1000-12*i(i为2分的枚数)为整数时,它是否还可以被7整除,我的代码不需要改什么东西,只要将5改成7就可以
$str=''
For $i=1 To Round(1000/12)
$z=(1000-12*$i)/7
If IsInt($z) Then
$str=$str&10*$i&', '&$i&', '&$z&@CR
EndIf
Next
MsgBox(0,0,'1分,2分和7分的张数'&@CRLF&$str)
学习学习，谢谢！
本帖最后由 shenrenba 于 2011-6-17 09:06 编辑
删除 看了后才发现 很垃圾
---------------------------------------
#include <array.au3>
Local $out
$start = TimerInit()
For $i = 0 To 1000 Step 50
If (1000 - $i - 2 * $i / 10) / 5 >= 0 Then $out &= "|" & $i & " " & $i / 10 & " " & (1000 - $i - 2 * $i / 10) / 5
Next
$put = StringSplit(StringTrimLeft($out, 1), "|")
_ArrayDisplay($put, TimerDiff($start))
重点是把2分的换成10的倍数就OK了
;~ $a = 2分枚数 $b= 5分枚数
$ver=""
For $a=0 to 85 Step 5 ;
For $b=0 to 200 Step 2
If ($a * 10 ) +( $a * 2 )+ ( $b * 5 ) = 1000 Then
if $ver="" then
$ver=$a &"个2分 "& $b & "个5分"
Else
$ver= $ver& @CRLF& $a &"个2分 "& $b & "个5分"
EndIf
EndIf
Next
Next
MsgBox(0,0,$ver)
小学的题目这么难？？
回复 24# dhwc
的确,记得之前有一次我拿我妹的小学六年级的奥数习题本来看,竟然有几乎一半不会做!!{:face (319):}
PS:那时我已经上高中了~
回复 1# 3mile
哈哈，看看是什么题目？难住了三笑的女儿？
回复 26# daiyu116
3mile到底是怎么变成'三笑'的?不是'三英里'?
回复 27# annybaby
哈哈，还真没仔细想过这个问题。想了一下，大概有以下几条吧：
1、头像很容易让人联想到笑
2、3按中文发音是san，第一个字母是s，读着读着就成了san smile了哈哈
3、好像有一种字体就是把S写成3的样子。。。
至于读成什么，只要3mile不介意就好，嘿嘿
看题目，大脑第一反应是公倍数，在本质上列算了一下。看看3m的怎么解的
这题目不是为难学生的，是为难家长的{:face (356):}