作业帮 > 数学 > 作业

cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/06/11 19:04:07
clear
t1={^2008-03-02}
tx={^2008-05-20}
n=VAL(tx-t1)
t2=t1+6
for i=1 to 20
"第"+str(i)+'周:'
t1,'-',t2
t1=t2+1
t2=t1+6
endfor
x=int(n/7)+1
if x>20
'该日期不落在本学期'
else
y=subs('日一二三四五六',2*dow(tx)-1,2)
tx+'是第'+str(x)+'周星期'+y
endif
cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for
clear
t1={^2008-03-02}
tx={^2008-05-20}
n=tx-t1
t2=t1+6
for i=1 to 20
"第"+(str(i)+'周:'
t1,'-',t2
t1=t2+1
t2=t1+6
endfor
x=int(n/7)+1
if x>20
'该日期不落在本学期'
else
y=subs('日一二三四五六',2*dow(tx)-1,2)
dtoc(tx)+'是第'+str(x)+'周星期'+y
endif