数据库上机考试整理资料.doc

2. 从键盘输入一个正数，让计算机判断该数是奇数还是偶数。 input 请输入一个正数 to x d=x%2 if d=0 ?该数是偶数 else ?该数是奇数 endif 3. 从键盘输入一个口令，判断是否和系统口令“SQL”相符。 accept请输入口令 to x if x=sql ?欢迎使用本系统 else ?密码错误 endif 4.输入两个数，把它们按从小到大的顺序输出。 input 请输入一个数 to a input 请输入另一个数 to b if ab ?b,a else ?a,b endif 5. 从键盘输入三角形的三条边，计算该三角形的面积。 input 请输入三角形的边 to a input 请输入三角形的边 to b input 请输入三角形的边 to c if a+bc and a+cb and b+ca r=(a+b+c)/2 s=sqrt(r*(r-a)*(r-b)*(r-c)) ?s=+str(s,4) else ?无这个三角形 endif 6. 编一个程序，计算任意一元二次方程的根。要求用IF语句完成。 input 输入一个数a= to a input 输入一个数b= to b input 输入一个数c= to c d=b^2-4*a*c if d0 ?无实数根 else x1=(-b+sqrt(d))/(2*a) x2=(-b-sqrt(d))/(2*a) ?x1=,substr(x1,4),x2=,substr(x2,4) Endif 7. 编一个程序，计算任意一元二次方程的根。要求用DO CASE语句完成。 input 输入一个数a= to a input 输入一个数b= to b input 输入一个数c= to c d=b^2-4*a*c do case case d0 ?无根 case do x1=(-b+sqrt(d))/(2*a) x2=(-b-sqrt(d))/(2*a) ?x1=+substr(x1,4),x2=+substr(x2,4) case d=0 ?x2=x1=+substr(x2,4) endcase 8. 从键盘输入一个0—9的数字，把它转换为对应的大写数字。 input 输入一个0-9的数字 to x do case case x=0 ?零 case x=1 ?壹 case x=2 ?贰 case x=3 ?弎 case x=4 ?肆 case x=6 ?陆 case x=7 ?柒 case x=8 ?扒 case x=9 ?玖 endcase 11. 编一个程序，输入两个数，输出值大的那个数。要求用IIF函数实现。 input 输入一个数 to a input 输入另一个数 to b ?最大数是=, iif(ab,a,b) 9. 从键盘输入一个值，判断它的类型。 input请输入一个值 to x do case case type(x)=N ?数值型 case type(x)=C ?字符型 case type(x)=D ?日期型 case type(x)=L ?逻辑性 endcase 10. 输入考试分数，显示该分数对应的等级（优，良，及格和不及格）。 input 数入考试分数 to a do case case a=90 ?优 case a=80 ?良 case a=60 ?及格 case a60 ?不及格 endcase 12. 输入三个数，把它们按从大到小的顺序输出。 input请输入一个数 to a input请输入一个数 to b input请输入一个数 to c if ab t=a a=b b=t endif if ac t=a a=c c=t endif if bc t=b b=c c=t endif ?c,b,a 13. 编一个程序，计算1+2+3+…+100 s=0 n=1 do while n=100 s=s+n n=n+1 enddo ?1+2+3+4+5+...+100=+str(s,6,2) 14. 编一个程序，计算10！ s=1 n=1 do while n=10 s=s*n n=n+1 enddo ?1*2*3*4*5*...*10=+str(s,6,2) 15. 编一个程序，计算1+3+5+…+99 s=0 n=1 do while n=99 s=s+n n=n+2 enddo ?1+3+5+...+99=+str(s,6,2) 16. 编一个程序，计算1/1!+1/2!+1/3!+…+1/10! s=1 n=1 t=0 do while n=10 s=s*n n=n+1 t=t+1/s enddo ?1/1!+1/2!+...+1/10!=+str(t,6