哥伦布发现新大陆数据库 编程题
对例7．4
求圆的面积程序。
vrmSet talk off
Clear
Set printer on
Store 3.14 to p
r=0
@ 10,10 say"请输入半径的值"get r
read
s=p*r*r
?"半径="
网上服装店
??r
放飞心灵
??"的圆面积是："
?s
t printer off
t talk on
cancel
对例7．6
输入两个实数，按代数值由小到的次序输出这两个实数。
Set talk off
Clear
A=0.00
B=0.00
@10,20 say”请输入第一个实数”get a
@12,20 say”请输入第二个实数”get b
read
if a>b
t=a
a=b
b=t
endif
@14,20 say”这两个实数排序的结果为：”
@16,20 say a
@17,20 say b
t talk on
cancel
例 7。7
对求一个数的绝对值
设有任意一个数为stereoplayerx，它的绝对值为：
|x|={x x>=0
-x x<0
t talk off
clear
x=0.00
@10,20 say”请输入任意一个数”get x
read
if x<0.00
x= -x
el
x=x
endif
?”x=”
??x
t talk on
cancel
例7．8
对求三个数中最大的一个数。
一种：
Set talk off
Clear
a=0.00
b=0.00
c=0.00
@10,20 say”请输入a的值”get a
@11,20 say”请输入b的值”get b
winona@12,20 say”请输入c的值”get c
read
max=a
if c>b
if c>a
max=c
endif
el
if b>a
max=b
endif
endif
? “max=”
?? max
t talk on
cancel
★ 二种：对
三个数由小到大排序。
Set talk off
Clear
Input"请输入A的值："to a
Input"请输入B的值："to b
Input"请输入C的值："to c
If a>b
t=a
a =b
b=t
endif
if a>c
t=a
a =c
c=t
endif
if b>c
t=b
b=c
c=t
endif
?a,b,c
t talk on
cancel
例7．11
对例题7。10存款利率的情况，使用结构分支语句完成如下：7。10为鼓励存款按以下几个档次予存款率。
Set talk off
Clear
nx=0
@10,10 say"输入定期年限"get nx
read
do ca
ca nx<1
LL=0.02
Ca nx<3
LL=0.04
Ca nx<5
LL=0.06
Otherwi
LL=0.08
endca
? "利率="
?? LL
t talk on
cancel
★
对有以下一个函数，编写一个程序，输入x值，输出y值。
Y={3x+1(x<0)
5x—3(x≥0)
t talk off
clear
input”请输入x的值：”to x
if x<0
y=3*x+1
el
y=5*x-3
endif
? ”y=”
?? y
t talk on
cancel
★ 对（三）（自看）
某银行定期存款利率为，存款年限2年以内3%，二年以上5年以内为5%，5年以上为7%。
Set talk off
Clear
Input”请输入存款年限：”to a 生日快乐英文怎么写
Do ca
Ca a≤2
LL=0.03
Ca a≤5
LL=0.05
Otherwi
LL=0.07
Endca
? “存款利率为”
？？LL
t talk on
cancel
★ （四）
perform求1+3+5+----97+99值。
Set talk off
Clear
S=0
N=1
Do while n≤99
S=s+n
N=n+2
Enddo
? s
t talk on
cancel
★ （五）
求1+1/2—1/3+1/4—------1/99
t talk off
clear
s=0
n=1
do while n≤99
s=s+(-1)^(n-1)/n
n=n+1
enddo
?s
t talk on
cancel
例题7。14
对有36块砖，需要一次性全搬完，现有36 个人，男的每人搬4块，女的每人搬3块，小孩子每两人搬一块砖,问男、女、小孩各多少人。
Set talk off
Clear
men=0
do while men<=8
women=0
do while women<=11
Chidren=36-women-men
If (men*4.0+women*3.0+children/2)=36
?”男人=”，men
?”女人=”，women
?”小孩=”,chidren
exit
endif
women=women+1
enddo
men=men+1
enddo
t talk on
cancel
★ 对一种：
S=1+2+3+4----+10
Set talk off
Clear
S=0
For i=1 to 10
s=s+i
Endfor
?s
t talk on
cancel
二种：Set talk off
Clear
s=0
n=1
do while n<=100
s=s+n
n=n+1
Enddo
?"s="
??s
t talk on
cancel
对例7．16
据说意大利著名的数学家FIBONSCCI曾提出一个有趣的问题：设有一对兔子，从第三个月开始它们每个月都生一对兔子。按此规律，并假设没有兔子死亡，一年后共有多少对兔子。
Set talk off
Clear
Fib 1=1
Fib 2=1
n=0
@10,10 say”请输入FIBONSCCI数列第N项的值”get n
read
for a=3 to n
fib=fib1+fib2
fib1=fib2
fib2=fib
??” “
??fib
endfor
t talk on
cancel
对书上214页14
要将一张100元的大钞票，换成等值的10元，5元，2元，1元一张的小钞票，要求每次换成40张小钞票，每种至少一张。编程输出所有可能的换法，程序应适当考虑减少次数。
Set talk off
Clear
For x=1 to 10
For y=1 to 20
For z=1 to 50
For w=1 to 100
If x*10+y*5+z*2+w=
100. and. x+y+z+w=40
? x,y,z,w
endif
endfor
endfor
endfor
endfor
t talk on
cancel
＊ 对书上15题
编程序，输出下面图形。
（1） 图形：
t talk off
clear
for i=1 to 6
?space(6-i)
for j=1 to 2*i-1
?? ”*”
endfor
endfor
t talk on
cancel
(2)图形：
t talk off
clear
for I=1 to 5
?space (5-i)
for j=1 to 2*i-1
??"*"
endfor
endfor
for I=1 to 5
?space (i-1)
for j=1 to 11-2*I
?? "+"
endfor
endfor
t talk on
cancel
(3)图形：
一种：
Set talk off
Clear
For i=1 to 7
@i,8-I say “ “
for j=1 to 2*i-1
?? str (i,1)
endfor
endfor
t talk on
cancel
二种：Set talk off
Clear
For i=1 to 7
?space(7-i)
for j=1 to 2*i-1
?? str (i,1)averages
endfor
endfor
t talk on
cancel
hormiga
★ （七）
4个人在一起玩扑克，问第四个人手中有多少张扑克？
Set talk off
Clear
A=5
B=a+3
C=b+3
D=c+3
?d
t talk on
cancel
结果：
对例：7。24
图形：
Set talk off
Clear
For i=1 to 13
If i>7
A=-3+i
B=23-2*i
Ft=”★”
El
A=9-i
B=2*i-1
Ft=”☆”
Endif
@i,a say “”
for j=1 to b
?? ft
endfor j
endfor i
t talk on
cancel
对例8．1
建立有5个元素的一维为数组arrayone和建立4行3列的二维数组arraytwo。
Set talk off
Clear
Dime a(5),b(4,3)
Stor 10 to n,m,x
Dime abx (x),box(n,m)
对例8．2
运行下面的程序，可以看到数组的赋值及使用方法。
结果：（略）
Set talk off
Clear memory
Clear
Dimension a(2,4),b(2)
Store 0 to a
Store”book” to a(1,2)
Store “studernt” to a(2,4)
Srore ctod(“09/24/99”) to a(1,1)
A(1,3)=150
A(2,3)=.t.
Display memory
Cancel
对例8．3
运行下面的程序，可以将原来的数组变量BOX1中的全部内容连同它的各单元值，都复制给数组变量BOX2。
Set talk off
Clear memory
Clear
Dimension box1(8)
For I=1 to 8
box1(i)=I
endfor
=acopy(box1,box2)
for k=1 to 8
?? box2(k)
endfor
cancel
结果：
box1(1)
box1(2) 数组box1
box1(3)
box2(1)
box2(2) 数组box2
box2(3)
★ （八）
对求十个数中的最大值。
Set talk off
Clear
