1求圆的面积Word文件下载.docx
《1求圆的面积Word文件下载.docx》由会员分享，可在线阅读，更多相关《1求圆的面积Word文件下载.docx（15页珍藏版）》请在冰豆网上搜索。
*3输入一个成绩判断等级
input'
请输入成绩='
ifx<
=100andx>
60
不及格'
70
及格'
80
中'
90
良'
otherwise
优秀'
成绩无效'
*4输入多个成绩判断等级
dimea[6]
fori=1to6
inpu'
请输入成绩：
toa[i]
：
str[a[i],3]
ifa[i]<
=100anda[i]>
casea[i]<
endfor
*5求和1到100的和
s=0
fort=1to100
s=s+t
*61to100乘
s=1
fort=2to100
s=s*t
*71+3+……+99
fori=1to99step2
s=s+i
*81-2+3-……-100
s=s-（-1）^t*t
*91+1/2+2/3+3/5+……前十项和
a=1
b=1
fori=1to9
t=a
a=b
b=t+b
s=s+a/b
endf
s
10.1+2!
+3!
+
t=1
fori=1to10
t=t*i
11.对学生表中所有入学成绩≥650分的学生免去贷款
opendatabase教学管理
use学生
if入学成绩>
=650
姓名,'
免去贷款'
12.输出图形
******************
******************
******************
******************
下面是第五个图形
fort=4to1step-1
?
space[4-t]
fori=1tot
*'
endf
retu
下面是第三个图形
fort=1to4
fori=1to2*t-1
endf
13.判断一个整数是否素数
input'
tox
fori=2tox-1
ifmod[x,i]=0
x,'
不是素数'
exit
是素数'
14.判断十个整数是否素数
dimea（10）
forj=1to10
input'
toa（j）
fori=2toa[j]-1
ifa[j]/i=int（a[j]/i）
exit
endif
endfor
ifi>
a[j]-1
a[j],'
else
15.找出两个数的大数和小数
dimea[2]
fori=1to2
toa[i]
ifa[1]>
=a[2]
a[1]
else
a[2]
endi
16.找出三个数的最大数和最小数
dimea[3]
fori=1to3
=a[3]
a[3]
ifa[2]>
else
17.找出十个数的最大数和最小数
dimea[10]
forj=9to1step-1
fori=1toj
ifa[i]<
=a[i+1]
t=a[i]
a[i]=a[i+1]
a[i+1]=t
最大值'
a[1]
最小值'
a[10]
18.找出2×
3矩阵中的最大数和最小数
dimea[2,3]
forj=1to3
toa[i,j]
fori=1to1
forj=1to2
ifa[i,j]>
=a[i,j+1]
t=a[i,j]
a[i,j]=a[i,j+1]
a[i,j+1]=t
forj=1to3step2
fori=1to1
=a[i+1,j]
a[i,j]=a[i+1,j]
a[i+1,j]=t
最小值='
a[1,1]
最大值='
a[2,3]
19.对三个整数从大到小排序
space[2]
a[i]
20.对十个整数从大到小排序（用选择法和起泡法两种方法
21.输出Fibonacci（斐波那契）数列的前十项
ifi<
3
a[i]=1
a[i]=a[i-2]+a[i-1]
22.输出杨辉三角的前十行
dimeaa（10,10）
space（20-2*i）
forj=1toi
ifj>
1.and.j<
i
aa[i,j]=aa（i-1,j-1）+aa（i-1,j）
aa（i,j）=1
space[1]+str（aa[i,j],4）
endfor
23.对2×
3矩阵转置
clea
forj=1to3
请输入数值='
dimeb[3,2]
fori=1to2
b[j,i]=a[i,j]
b[j,i]
24.求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）
fora=1to9
forb=1to9
forc=0to9
ifa^3+b^3+c^3=100*a+10*b+c
100*a+10*b+c
retu
25.求100以内的所有完数（即一个数恰好等于除它本身外的所有因子之和）
fora=1to100
fori=1toa-1
ifa/i=int[a/i]
s=s+i
ifa=s
26.已知三角形的三边（从键盘输入），求其面积（S^2=p（p-a）（p-b）（p-c）,p=（a+b+c）/2）
请输入边长='
toa
tob
toc
p=（a+b+c）/2
m=p*（p-a）*（p-b）*（p-c）
sqrt（p）
27.求二元方程的根（分三种情况：
两个不等实根，两个相等实根，两个不等虚根）
i=val['
i'
]
请输入系数='
j=b^2-4*a*c
casej>
x1=（-b+sqrt（j））/（2*a）
x2=（-b-sqrt（j））/（2*a）
x1
x2
casej=0
x=（-b）/（2*a）
x
otherwise
存在两个不等虚根'
endcase
28.输入任意一个五位数，前后对应位置上的数据进行交换重新排列（例：
25984→48952）
请输入一个五位数'
dimea[5]
a[5]=int[b/10000]
i=int[b/1000]
a[4]=mod（i,10）
j=int[b/100]
a[3]=mod[j,10]
a[1]=mod[b,10]
d=（b-a[1]）/10
a[2]=mod（d,10）
space
（2）
fork=1to5
str（a[k],1）
29.找出一个3x3矩阵的"
鞍点"
，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）
dimea（3,3）
form=1to3
forn=1to3
请输入矩阵值='
toa[m,n]
fori=1to3
max=a[i,1]
l=i
k=1
ifmax=<
a[i,j]
max=a[i,j]
k=j
min=a[1,k]
forz=1to3
ifmin>
=a[z,k]
min=a[z,k]
l1=z
ifl1=l
存在鞍点='
a[l,k]
30.求S（n）=a+aa+aaa+...+aaa....aaa（其中有n个a）之值，a是一个数字，n和a由键盘键入（例如：
2+22+222+22222+22222，此时n=5）
请输入a='
请输入n='
ton
m=0
fori=1ton
m=m+a*10^（i-1）
s=s+m
升级会员 