主题：是高手的进帮我解决一下问题
zlei12345
[专家分：0] 发布于 2005-05-06 19:44:00
１．从７张牌中任意抽出３张，有几种排列方法．
２．输入年月日．问：从公元１年１月１日至今过了多少天这一天是星期几？
[em10][em10]
回复列表 （共19个回复）
沙发
zlei12345 [专家分：0] 发布于 2005-05-06 19:47:00
来几位高手帮我解决一下问题小弟谢过
板凳
def [专家分：3380] 发布于 2005-05-06 21:29:00
1.?(7^2+1)*3+1*3(不一定对了[em1])
2.'注意最后一句“?S”不要漏电
Y=2005:M=5:D=6
FOR I=1 TO Y
S=S+365
IF (I MOD 4 AND NOT (I MOD 100)) OR I MOD 400 THEN S=S+1
NEXT I
FOR A=1 TO M
S=S+28
Select Case A
Case 1,3,5,7,8,10,12
S=S+4
Case 4,6,9,11
S=S+3
Case 2
If (A MOD 4 AND NOT (A MOD 100)) OR A MOD 400 THEN S=S+1
End Select
Next A
S=S+D
?S[em1]
3 楼
def [专家分：3380] 发布于 2005-05-06 21:32:00
您“前辈”可能没弄明白“?”书什么语句？就是PRINT的缩写，加变量/数字不许要空格
4 楼
FancyMouse [专家分：13680] 发布于 2005-05-06 21:54:00
1、如果不考虑顺序的话C(7,3)=(7*6*5)/(1*2*3)=35种。基本的排列组合题目。
5 楼
qbqb [专家分：400] 发布于 2005-05-07 03:45:00
楼上的，你的是组合，排列应该是PRINT 7*6*5
6 楼
陈贺ＱＢ [专家分：140] 发布于 2005-05-19 21:58:00
有 ２１０ 种
7 楼
spray [专家分：180] 发布于 2005-05-27 07:14:00
不好意思，我也是菜鸟，咱们一起研究商量，共同提高。请看这样行不？
n=365.2563659:s=0
if (y mod 4)=0 or (y mod 400)=0 then s=1
if (y mod 400)=0 then s=0
a=CLNG(y*n)+m*30+t+d
t=m\2-2
if m=1 then t=0
if m==9 or m=11 then t=(m+1)/2-2
其中n=365.2563659，根据中国社会科学院语言研究所词典编辑室《现代汉语词典》[公转]：地球绕太阳公转一周的时间是365天6小时9分10秒。
8 楼
spray [专家分：180] 发布于 2005-05-27 20:36:00
7楼重新回复如下：
n = 365.25639 : s = 0
if ( y mod 4 ) = 0 or ( y mod 400 ) = 0 then s = 1
if ( y mod 100 ) =0 then s = 0
a = CLNG（( y - 1 ) * n ）+ ( m - 1 ) * 30 + t + d t = m \ 2 - 2
if m = 1 then t = 0
if m = 3 then t = -1 + s
if m = 9 or m = 11 then t = ( m + 1) / 2 - 2
print "a =";a
说明：
n = ...（略）
a = ...：计算到本年的前一年年终,加上本年本月的上个月天数(先按30天计),加上比30天多出的天数（大月的月数)及一、二月份比60天少的天数（一般为-1）,加上本月本日的日期数。
9 楼
moz [专家分：37620] 发布于 2005-05-28 08:39:00
DECLARE FUNCTION week% (d$) 'd$为date$格式
DEFLNG A-Z
FUNCTION week% (d$)
y = VAL(MID$(d$, 7, 4))
m = VAL(d$)
d = VAL(MID$(d$, 4, 2))
r = ((y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0))
y = y - 1
a$＝" 0 31 59 90120151181212243273304334"
day&=(y*365+y\4-y\100+y\400+VAL(MID$(a$,m*3,3))+r*(m>2)+d)
week% = day& MOD 7
END FUNCTION
' day&就是公元以来的总天数
10 楼
spray [专家分：180] 发布于 2005-05-28 12:10:00
7,8楼的有误，不好意思，再次更正。
n=365.2563657 '365天6小时9分10秒
我来回复
您所在位置：