clea+gaultier+official

---

戚砌13769837133问： 求100以内的素数的Vf程序设计怎么做 - ？
西工区中诺回答： 这是求素数和的程序,要先建数据库SH.DBF 就一个字段 ＂素数＂ 程序如下: clea set talk off sele 1 use sh zap n=0 j=3 do while j<=100 for i=2 to j-1 if j%i=0 n=n+1 endif endfor if n=0 appe blan repl 素数 with j endif j=j+1 n=0 enddo sum 素数 to a ?a 你只要在最后加上一条LIST 就可以看见全部素数了或者用BROW也行

戚砌13769837133问： 编写程序MATLAB,产生20个两位随机整数,输出其中小于平均值的偶数 - ？
西工区中诺回答： 根据目的判断,需要调取到的函数有randi、mod、mean、find,分别用于产生随机整数、判断是否为偶数、计算平均数、寻找满足条件元素的下标. 代码如下: clc;clear; n=randi([10,99],[1,20])%产生随机数,在10到99之间的均匀随机数 a=mean(...

戚砌13769837133问： 编写程序,随机输入三个数,最后输出最小的那个数//VF - ？
西工区中诺回答： set talk off clea a=0 b=0 c=0 input '请输入第一个数:' to a input '请输入第二个数:' to b input '请输入第三个数:' to c x=min(a,b,c)??'最小的数是:',x

戚砌13769837133问： VFP中九九乘法表程序 - ？
西工区中诺回答： 第一种: clea i=1 FOR i=1 TO 9 j=1 FOR j=1 TO i ??STR(i,1)+'*'+STR(j,1)+'='+STR(i*j,2)+' ' ENDFOR ?'' ENDFOR 第二种: clea i=1 FOR i=1 TO 9 j=1 FOR j=i TO 9 ??STR(i,1)+'*'+STR(j,1)+'='+STR(i*j,2)+' ' ENDFOR ?space(i*7) ENDFOR 第三种...

戚砌13769837133问： VF任意十个数相加 - ？
西工区中诺回答： 给你个程序吧:由键盘输入10个数计算总和 clea dime num(10) store 0 to num s=0 for i=1 to 10 @2,4 say '当前输入第'+allt(str(i))+'个数' @4,4 say 'input num:' get num(i) read s=s+num(i) endfor @10,4 say '总和为: '+allt(str(s)) 简单吧?呵呵

戚砌13769837133问： vfp程序设计 正序输出1~100,每10个数换一行 - ？
西工区中诺回答： clea set talk off for i=1 to 100 ??i if i mod 10=0 ? endif endfor

戚砌13769837133问： VF建立一个程序文件1~100的和.分别用for...endfor语句和do while...end do 语句 - ？
西工区中诺回答： 1、 clea x=0 s=0 do while x x=x+1 s=s+x endd? s2、 clea s=0 for i=1 to 100 s=s+i next? s

戚砌13769837133问： 已知一个数列的前三个数为0.0.1.以后每个数为前三个数的和.编程求此数列的第33个数要VF的 - ？
西工区中诺回答： ////////c语言 main() { int n[40],i; n[1]=0; n[2]=0; n[3]=1; for(i=4;i<=40;i++){ n[i]=n[i-3]+n[i-2]+n[i-1];} printf(＂%d＂,n[36]); }

戚砌13769837133问： 从键盘输入10个数,统计其中的正数和负数的个数,最后输出结果 - ？
西工区中诺回答： clea dime x(10) m=0 n=0 store 0 to x j=10 for i=1 to j@4,4 say '输入10个数字:' get x(i)read@4,30 say i@i+6,4 say x(i) endforfor i=1 to 10if x(i)>0m=m+1elsen=n+1endif endfor @18,4 say '正数:' @18,20 say m@20,4 say '负数:' @20,20 say n retu

戚砌13769837133问： vf编程如何编一个程序,显示出100至200的所有奇数并每行显示6个 - ？
西工区中诺回答： clea A=0 FOR I=100 to 200 if mod(i,2)#0 A=A+1 IF A=6 ??I A=0 ? ELSE ??I ENDI endi endf retu

---