VF程序设计编程题答案Word文档下载推荐.docx
- 文档编号:20479898
- 上传时间:2023-01-23
- 格式:DOCX
- 页数:17
- 大小:20.46KB
VF程序设计编程题答案Word文档下载推荐.docx
《VF程序设计编程题答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VF程序设计编程题答案Word文档下载推荐.docx(17页珍藏版)》请在冰豆网上搜索。
’中’
=60
’及格’
Orth
’不及格’
Endcase
4.输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)
Inpu‘请输入处理几个人的成绩:
’ton
Fori=1ton
endfor
5.求S=1+2+3......+100
S=0
Fori=1to100
S=s+i
Endfor
6.求S=1×
2×
3......×
100
p=1
p=p*i
p
7.求S=1+3+5......+99
Fori=1to99step2
8.求S=1-2+3-4......-100
S=s+(-1)^(i+1)*i
9.求S=1+1/2+2/3+3/5......前10项之和
A=1
B=1
Fori=1to10
S=s+a/b
T=a
A=b
B=t+b
10.求S=1!
+2!
+3!
......+10!
P=1
P=p*i
S=s+p
11.对学生表中所有入学成绩≥650分的学生免去贷款
Use学生
Scanfor入学成绩>
=650.and.贷款否=.t.
Repl贷款否with.f.
Endscan
Use
12.
******************
******************
******************
******************
输出图形
Fori=1to4
Forj=1toi
’*’
Endfor
Forj=1to4-i
’’&
&
有一个空格
Forj=1to2*i-1
13.判断一个整数是否素数
Fori=2tox-1
Ifmod(x,i)<
>
Loop
Exit
Ifi>
x-1
x,’是素数’
x,’不是素数’
14.判断十个整数是否素数
Forj=1to10
15.找出两个数的大数和小数
Inpu‘y’toy
x,’大’,y,’小’
y,’大’,x,’小’
16.找出三个数的最大数和最小数
Inpu‘z’toz
Ifx<
t=x
x=y
y=t
Ifx<
z
x=z
z=t
endif
endif
ify<
t=y
y=z
x,’是最大数’,z,’是最小数’
17.找出十个数的最大数和最小数
Dimea(10)
Inputoa(i)
Max=a
(1)
Min=a
(1)
Fori=2to10
Ifmax<
a(i)
Max=a(i)
Ifmin>
Min=a(i)
max,min
18.找出2×
3矩阵中的最大数和最小数
clea
dimea(2,3)
fori=1to2
forj=1to3
input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j)
endfor
max=a(1,1)
min=a(1,1)
ifmax<
a(I,j)
max=a(I,j)
else
ifmin>
a(I,j)
min=a(I,j)
’max=’,max,’min=’,min
19.对三个整数从大到小排序
Clear
Input‘a=’toa
Input‘b=’tob
Input‘c=’toc
Ifa<
b
B=t
Ifa<
c
t=a
A=c
c=t
Ifb<
T=b
c=t
a,b,c
20.对十个整数从大到小排序(用选择法和起泡法两种方法)
选择法:
Inputtoa(i)
Fori=1to9
Max=a(i)
Num=i
Forj=i+1to10
Ifmax<
a(j)
max=a(j)
Num=j
Ifi<
num
t=A(i)
a(i)=a(num)
a(num)=t
a(i),'
'
起泡法:
Forj=1to10-i
Ifa(j)<
a(j+1)
t=A(j)
a(j)=a(j+1)
a(j+1)=t
21.输出Fibonacci(斐波那契)数列的前十项
a
(1)=1
a
(2)=1
Fori=3to10
a(i)=a(i-1)+a(i-2)
A(i)
22.输出杨辉三角的前十行
Dimea(10,10)
A(I,1)=1
A(I,i)=1
Forj=2toi-1
A(I,j)=a(i-1,j)+a(i-1,j-1)
A(I,j)
23.对2×
3矩阵转置
Dimea(2,3),b(3,2)
inputtoa(I,j)
fori=1to3
forj=1to2
b(I,j)=a(j,i)
b(I,j)
24.求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)
forx=100to999
a=int(x/100)
b=mod(int(x/10),10)
c=mod(x,10)
ifx==a*a*a+b*b*b+c*c*c
x
25.求100以内的所有完数(即一个数恰好等于除它本身外的所有因子之和)
fori=3to100
s=0
forj=1toi-1
ifmod(i,j)==0
s=s+j
ifi==s
i
26.已知三角形的三边(从键盘输入),求其面积(S^2=p(p-a)(p-b)(p-c),p=(a+b+c)/2)
input'
a='
toa
b='
tob
c='
toc
ifa+b>
canda+c>
bandb+c>
a
p=(a+b+c)/2
s=sqrt(p*(p-a)*(p-b)*(p-c))
'
三边不能组成三角形'
27.求二元方程的根(分三种情况:
两个不等实根,两个相等实根,无实根)
inpu'
toa&
a<
tob&
b<
i=b*b-4*a*c
ifi<
0
"
方程无实根!
ifi==0
r=(-b)/(2*a)
方程有两个相等实数根:
r
else
x1=(-b+sqrt(i))/(2*a)
x2=(-b-sqrt(i))/(2*a)
方程有两个不相等实数根:
x1,x2
28.输入任意一个五位整数,前后对应位置上的数据进行交换重新排列(即逆序排列)(例:
25984→48952)
dimea(5)
inputob
a
(1)=int(b/10000)
a
(2)=mod(int(b/1000),10)
a(3)=mod(int(b/100),10)
a(4)=mod(int(b/10),10)
a(5)=mod(b,10)
fori=1toint(5/2)
t=a(i)
a(i)=a(6-i)
a(6-i)=t
c=a
(1)*10000+a
(2)*1000+a(3)*100+a(4)*10+a(5)
b,c
29.找出一个3x3矩阵的“鞍点”,即该位置上的元素在该行上最大,在该列上最小(也有可能没有鞍点)
dimea(3,3)
flag=.t.
forj=1to3
input'
a('
+str(I,2)+'
'
+str(j,2)+'
)='
toa(i,j)
endfor
fori=1to3
max=a(i,1)
col=1
forj=2to3
ifmax<
a(i,j)
max=a(i,j)
col=j
min=a(1,col)
row=1
fork=2to3
a(k,col)
min=a(k,col)
row=k
ifmax==min
a(row,col),'
是鞍点,在'
row,'
行'
col,'
列'
flag=.f.
ifflag==.t.
无鞍点'
30.求S(n)=a+aa+aaa+...+aaa....aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:
2+22+222+22222+22222,此时n=5)
n='
ton
s=0
t=a
fori=1ton
s=s+t
t=a+t*10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 程序设计 编程 答案