visual foxpro 几个简单的程序设计题

来源：百度知道 编辑：UC知道 时间：2024/05/15 09:28:28
急交的作业，大侠们看着会的帮写几个啊！~~分不多了，全给了~由于没分了，大侠们如果嫌少，作一两题也行，小弟实在不会也没有时间了。在此先谢过了阿！
1 输入任意一个数 n ，显示从 1 到 n 之间的所有素数。
2给出任意一个数 n ，求出前 n 个符合如下序列的数 前两个数之和等于第三个数
0、1、1、2、3、5、8、13、21…….
3 写一个加密和解密程序
密码对照表
明文表：a b c d e f g h i j k l m n o p q r s t u v w x y z
密文表：9 f 6 e k i 8 r 3 q t u x z s h a 7 w p m g v 2 4 c
4 国人口12亿，设年增长率为0.01，问多少年后达到20亿？
5 输入一个任意数（整数位不超过 5 位，小数位不超过 2 位），
用大写人民币表示该数（30089.09, ¥叁万零千零百捌拾玖元零角玖分整）
您的答案我试了，怎么没有2呢？？

input "最大数：" to n

for i=3 to n
nadd=0
for j=i to 1 step -1
if int(i/j)=i/j
nadd=nadd+1
endif
endfor
if nadd=2
?i
endif
endfor

我直接从三开始循环的
2不是素数吧！

input "输入个数字:" to n
dimension a(n)
a(1)=0
a(2)=1
a(3)=1
for i=4 to n
a(i)=a(i-1)+a(i-2)
endfor
?a(n)

你可以打出这个数列中任意一项的值
修改数组下标就可以了

3.密码问题么，你只要将每个字符取出，asc（）和chr（）用这两个函数转化下，没啥难度的
4.
nadd=0
zadd=12
l=.t.
do while l
zadd=zadd*(1+0.01)
nadd=nadd+1
IF zadd>=20
l=.f.
ENDIF
enddo
?"年数：",nadd
?"人数：",zadd
5.
麻烦，不写了