高校问答幸福拍手歌歌词完整版:VF的几道简单题~答对了还有加分~
来源：百度文库 编辑：高校问答 时间：2024/04/29 11:02:00
2、编写程序，求4位数的偶数中，所有各位数字之和是15 的倍数的数的和。
3、一球从100米高处落至平地，并连续多次在反弹的高度是前一高度3/4倍，试求出最小的自然数n使得此球从下落至第n次着地时，在垂直方向所经过的总路程超过678米。
改错
4、求[10，1000]内所以能被7和9中至少一个数整除的整数个数。以下的程序有3处错误，请将错误处找出来写在答案上，并改正。
set
for x=10 to 100
if mod(x,7)=0 and mod (x,9)=0
n=n+x
end if
end for
?x
5、求s=1+4+7+......求使得和s大于50000的最小的数，以下程序有3处错误，请将错误处找出来，并改正
set talk off
clear
s=1
for n=1 to 50000 step 3
s=s+1
if s>50000
loop
end if
eng do
?n
set talk on
return
填空
6、以知24有8个正整数......求[100，300]之间能被起因子数同整除的数中最大的数。
set talk on
max=0
for n=100 to 300
__________
for i=1to n
if__________
s=s+1
end if
end for
if mod (n,s)=0
____________
7、求方程5x+3y=200的所有正整数解的个数
set talk on
n=0
for x=1 to 39
__________
y=int(y')
if y=y'
_________
end if
end for
第一题：
set talk off
clear
for i= 100 to 2000
a=int(i/1000)
b=int((i-a*1000)/100)
c=int((i-a*1000-b*100)/10)
d=mod(i,10)
if a^3+b^3+c^3+d^3=i
? i
endif
next
set talk on
第2题：
set talk off
s1=0
for i= 1000 to 9999 step 2
a=int(i/1000)
b=int((i-a*1000)/100)
c=int((i-a*1000-b*100)/10)
d=mod(i,10)
if mod(a+b+c+d,15)=0
s1=s1+i
endif
next
?"和为:",s1
set talk on
第3题：
set talk off
s2=100
j=1
for i=1 to 100
h=(3/4)^i*100
s2=s2+2*h
j=j+1
if s2>678
exit
endif
endfor
? "第",j,"次"
set talk on
第4题：
set talk off
n=0
for x=10 to 100
if mod(x,7)=0 and mod (x,9)=0 第一个错误 and 因该是 or
n=n+x 第二个错误应该是n=n+1
end if
end for
?x 第三个错误应该是：? n
set talk on
第五题：
set talk off
clear
s=1 第一个错误，应该是s=0
for n=1 to 50000 step 3
s=s+1 第二个错误，应该是s=s+n
if s>50000
loop 第三个错误因该是：exit
end if 第四个错误因该是：endif
eng do 第五个错误 因该是:endfor
?n
set talk on
return
第六题：
6、
set talk on
max=0
for n=100 to 300
s=0
__________
for i=1to n
if mod(n,i)=0
_______
s=s+1
endif
endfor
if mod (n,s)=0
max=n
____________
第7题：
set talk on
n=0
for x=1 to 39
y'=(200-5*x)/3
__________
y=int(y')
if y=y'
n=n+1
_________
end if
end for
第一题
FOR i = 100 TO 2000
cl = len(alltrim(str(i))
t = 0
FOR j = 1 TO cl
t = t + VAL(SUBSTR(ALLTRIM(STR(i)),j,1))^3
ENDFOR
IF t = i
? i
ENDIF
ENDFOR
第二题
sum0 = 0
FOR i = 1000 TO 9998 STEP 2
t = 0
FOR j = 1 TO 4
t = t + VAL(SUBSTR(ALLTRIM(STR(i)),j,1))
ENDFOR
IF t % 15 = 0
sum0 = sum0 + t
ENDIF
ENDFOR
?sum0
第三题
h = 100
t = h
n = 1
DO WHILE .t.
IF t > 678
? n
EXIT
ENDIF
n = n + 1
h = 0.75 * h
t = t + 2 * h
ENDDO
第四题
n = 0 && n需赋初始值
for x=10 to 100
if mod(x,7)=0 or mod (x,9)=0 && 逻辑关系错
n=n+1 && 计数错
end if
end for
?n && 输出错
第五题
set talk off
clear
s=0 && 初始值错
for n=1 to 50000 step 3
s=s+n && 求和错
if s>50000
exit && 应为退出，不是循环
endif && endif中间不能空格
endfor && for循环结束应为endfor
?n
set talk on
return
第六题
看不明白题目：“以知24有8个正整数。。。”
第七题：(此题内容已经补充，但VFP中用y'做变量是不允许的，建议改为其它名字)
set talk on
n=0
for x=1 to 39
y' = 200 - 5 * x
y=int(y')
if y=y'
n = n + 1
endif
endfor
晕哦~~
别人发题目来,你不会就不要在那乱叫.....
无聊的人,浪费空间~~~