vfp编程题：求水仙花数,即一个三位数,去各位上的数字的立方和等于其本身.如153=1^3+5^3+3^3

三月柳泉2022-10-04 11:39:541条回答

vfp编程题：求水仙花数,即一个三位数,去各位上的数字的立方和等于其本身.如153=1^3+5^3+3^3
求水仙花数,即一个三位数,去各位上的数字的立方和等于其本身.如153=1^3+5^3+3^3

已提交，审核后显示！提交回复

vfp编程,编写程序：⑴ 在1～100中分别统计3的倍数、7的倍数各有多少个.⑵ 屏幕输出菲波拉契数列.该数列的组成为： vfp编程, 编写程序： ⑴ 在1～100中分别统计3的倍数、7的倍数各有多少个. ⑵ 屏幕输出菲波拉契数列.该数列的组成为：已知第1、2个数为0和1,从第三个数开始,每个数都是其前两个数的和,即该数列形式如下： 0、1、1、2、3、5、8、13、21、…… 生成前 30 个数. ⑶ 任意输入两个自然数m、n,求它们的最大公约数和最小公倍数. 911maker1年前1: 柚子蜜共回答了16个问题 | 采纳率75%

1、
clear
a=0
b=0
for i=1 to 100
if i%3=0
a=a+1
endif
if i%7=0
b=b+1
endif
endfor
"3的倍数有",a,"个"
"7的倍数有",b,"个"
2、
clear
a=1
b=1
a,b
for i=1 to 28
c=a+b
a=b
b=c
endfor
3、
clear
input "请输入第1个数：" to a
input "请输入第2个数：" to b
c=min(a,b)
do while c>0
if a%c=0 and b%c=0
s=c
exit
endif
c=c-1
enddo
"它们的最大公约数是：",s
c=max(a,b)
do while .t.
if c%a=0 and c%b=0
s=c
exit
endif
c=c+1
enddo
"它们的最小公倍数是：",s

1年前查看全部

VFP编程：斐波拉契数列,第一项为0,第二项为1,求前30项的和! 爱我的真爱1年前1: 简712 共回答了22个问题 | 采纳率90.9%

clear
a=1
b=1
s=0
for i=1 to 18
c=a+b
s=s+c
a=b
b=c
endfor
"斐波拉契数列前30项的和:",s

1年前查看全部

求一VFP编程题,江湖救急,明天要交的作业,实在不太会做 求一VFP编程题,江湖救急,明天要交的作业,实在不太会做 A,B二个正整数,若均为偶数则1,若均为奇数则置-1,否则交换两数,A和B的奇偶性分四种,A奇B奇：A奇B偶,A偶B奇,A偶B偶,判断A,若A是奇再判断B是否奇,是则置1,否则交换,若A是偶再判断B是否偶,是则消零,否则交换 gogoyorby1年前1: adjfiehjkl 共回答了13个问题 | 采纳率100%

CLEAR
input "请输入A值：" to a
input "请输入B值：" to b
IF MOD(a,2)=0 AND MOD(b,2)=0 then
c=1
?c
ELSE
IF MOD(a,2)=1 AND MOD(b,2)=1 then
c=-1
?c
ELSE
tmp=b
b=a
a=tmp
?a
?b
ENDIF
ENDIF

1年前查看全部

用vfp编程,请写出答案,从键盘输入一个数x,根据不同的情况输出y的值：若x大于0,则y值是x的平方；若x等于0,则y值 用vfp编程,请写出答案, 从键盘输入一个数x,根据不同的情况输出y的值：若x大于0,则y值是x的平方；若x等于0,则y值为100；若x小于0,则y值是x乘以10. 阿尔卑斯之鹰1年前1: 肌腱共回答了22个问题 | 采纳率86.4%

x=Val(Inputbox("请输入一个数：","测试"))
If x>0
Y=x*x
Endif
If x=0
Y=100
Endif
If x

1年前查看全部