《2013顺序结构程序设计实验》由会员分享,可在线阅读,更多相关《2013顺序结构程序设计实验(4页珍藏版)》请在金锄头文库上搜索。
1、VF 程序设计实验顺序结构程序设计实验4例1:显示两条口号,看清楚第一条口号后按任意键再显示第二条口号。SET TALK OFFCLEAR12,28 SAY “欢迎使用湖南城市学院图书管理系统!”WAIT “”12,28 SAY “欢迎使用湖南城市学院邮政管理系统!”WAIT “”SET TALK ONRETURN例2:输入2个数据到变量a、b中,然后交换2个变量的内容再显示出来。SET TALK OFFCLEARINPUT “a=” TO aINPUT “b=” TO b ? “a,b:”, a, b t = a a = b b = t ? “a,b:”, a, bSET TALK ONRE
2、TURN例3:显示今天是星期几。 SET TALK OFF CLEAR c=“日一二三四五六” ? “今天是星期”+SUBSTR(c,dow(DATE()*2-1,2)例4:编程求圆的周长。根据输入的半径值,计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径:” TO R L=2*3.1416*R 10,10 SAY “圆的周长是:”+STR(L,6,3) SET TALK ONRETURN例5:编程求长方形面积。从键盘输入两个任意正数,求以两数为边长的长方形面积。SET TALK OFFCLEARINPUT “长方形一边的长为:” TO AINPUT
3、“长方形另一边的长为:” TO BS=A*B? “长方形的面积为:” , SSET TALK ONRETURN例6:编程,根据从键盘输入的半径值,计算出相应的圆的面积。 set talk off clear input “请输入圆的半径:” to r s=3.1416*r*r 10,10 say “圆的面积是:”,s set talk onreturn例7:从键盘输入一个三位数,求出其百位、十位、个位数字。set talk offclearinput “请输入一个三位数:” to xb=int(x/100) & 求出百位数字 s=int(mod(x,100)/10) & 求出十位数字 & s=
4、int(x/10)%10 & 另一种方法求出十位数字 g=mod(x,10) & 求出个位数字 ?“x的百位、十位、个位数字分别为:”,b,s,gset talk onreturn例8:把输入的任意3位数整数的每一位数字分别输出来,并求它们的和。SET TALK OFFCLEAINPUT 请输入一个3位整数: TO MX=INT(M/100) &百位Y=INT(M-X*100)/10) &十位*Z=M-X*100-Y*10 &个位Z=M%10 &个位S=X+Y+Z?X,Y,Z?SSET TALK ONRETURN例9:把输入的任意4位数整数的每一位数字分别输出来,并求它们的和。另外,再把这个4位整数转化成它的倒置整数输出(1234倒置为4321)。SET TALK OFFCLEAINPUT 请输入一个4位整数: TO ia=int(i/1000) b=int(i/100)%10 c=int(i/10)%10 d=i%10s=a+b*10+c*100+d*1000?sSET TALK ONRETURN