求圆的面积程序

更新时间:2023-06-11 16:12:04 阅读: 评论:0

数据库 编程题
对例74
求圆的面积程序。
Set 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
对例76
输入两个实数,按代数值由小到的次序输出这两个实数。
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
77
对求一个数的绝对值
设有任意一个数为x,它的绝对值为:
|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
78
对求三个数中最大的一个数。
一种:
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
@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
711
对例题710存款利率的情况,使用结构分支语句完成如下:710为鼓励存款按以下几个档次予存款率。
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(x0)
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 a2
LL=0.03
Ca a5
LL=0.05
Otherwi
LL=0.07
Endca
? “存款利率为
??LL
t talk on
cancel
(四)
1+3+5+----97+99值。
Set talk off
Clear
S=0
N=1
Do while n99
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 n99
s=s+(-1)^(n-1)/n
n=n+1
enddo
?s
t talk on
cancel
例题714
对有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
运行结果:
男人=3
女人=3
小孩子=30
对一种:
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
对例716
据说意大利著名的数学家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
对书上21414
要将一张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)
endfor
endfor
t talk on
cancel
(七)
4个人在一起玩扑克,问第四个人手中有多少张扑克?
Set talk off
Clear
A=5
B=a+3
C=b+3
D=c+3
?d
t talk on
cancel
结果:
对例:724
图形:
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
对例81
建立有5个元素的一维为数组arrayone和建立43列的二维数组arraytwo
Set talk off
Clear
Dime a(5),b(4,3)
Stor 10 to n,m,x
Dime abx (x),box(n,m)
对例82
运行下面的程序,可以看到数组的赋值及使用方法。
结果:(略)
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
对例83
运行下面的程序,可以将原来的数组变量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
结果:
1
2
3
box1(1)
box1(2) 数组box1
box1(3)
酒刺
1
2
3
box2(1)
box2(2) 数组box2
box2(3)
(八)
对求十个数中的最大值。
Set talk off
Clear

本文发布于:2023-06-11 16:12:04,感谢您对本站的认可!

本文链接:https://www.wtabcd.cn/fanwen/fan/89/1033934.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:程序   输入   存款   实数
相关文章
留言与评论(共有 0 条评论)
   
验证码:
推荐文章
排行榜
Copyright ©2019-2022 Comsenz Inc.Powered by © 专利检索| 网站地图