语言基础习题参考答案.doc

《Delphi语言基础》习题参考答案 一、填空 1．.dpr (或dpr) 2. PAS 3. 属性 或 Properties 4. .dpr 5. 事件选项卡 6. sin(a+b) /(3+ sqr(y))-a*b 或 sin(a+b)/(3+y*y)-a*b 7. sqr(cos(a+b)) /(sqr(a)+x*y)+a 或 cos(a+b) * cos(a+b) /(a*a+x*y)+a 8. 分支 9. sqr(sin(x+y)) / sin(sqr(x) + sqr(y)) 10. 一 11. sqr(sin(a+b*y)) /(sqr(a)*x)+a 或 sin(a+b*y) * sin(a+b*y) /(a*a*x)+a 12. sqr(cos(a+b)) /(3*x)+5 或 cos(a+b) * cos(a+b) /(3*x)+5 13. True 14. sqr(sin(a+b))/(3*y)+a*b 15. 12345.68 16. sqr（sin（x+y））/sin(sqr(x)+sqr(y)) 17. 69 18. False 19. const p=3.14 20. 1 21. break 22. ‘xz’ 23. 形式参数（形参）24. 90 25. Continue 26. 有序 27. 局部 28. 过程定义、调用 二、选择 1-5:D BDBD 6-10:CACCD 11-15:ACDBC 16-20：ACBCC 21-25:CCDAC 26-30:DCACB 31-35:DCABD 36-40:ADCDB 41-45:BDADB 46-50:ACADB 51-55:CABDB 三、判断 1-6: (√(√√( 四、程序填空题 1. ① Text ② do ③ sum + i ④ sum ⑤ 判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。 五、编程题 1.输入两个实型数，计算并输出它们的和、差、积及商（除数为零时显示不能计算）。 要求：（1）输入数据时，按键只许数字、小数点和退格通过，其它按键一律屏蔽。 （2）输出部分精度要求小数点后5位。 Procedure fourp(x,y:real;Var add,sub,pro,divt:real); Begin add:=x+y; sub:=x-y; pro:=x*y; IF y=0 THEN edit3.text:=’被除数为0’ ELSE divt:=x/y End; procedure TForm1.Button1Click(Sender: TObject); Var a,b,ad,su,pr,di:real; Begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); fourp(a,b,ad,su,pr,di); Memo1.Lines.Add(Format(%.5f%.5f%.5f.5f,[ad,su,pr,di])) End; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin IF NOT((key=#8)OR(key=.)OR(key=#48)AND(key=#57)) THEN key:=#0 end; 2.用牛顿迭代法求f(x)=3x-4x+5x-13=0的一个根 迭代公式： 当 d=| f(x)/f’(x) | =10 x便是根（ n=0,1,2,3,…）procedure TForm1.Button1Click(Sender: TObject); CONST EPS=1E-6; VAR x,d:real; begin x:=strtofloat(Edit1.Text); REPEAT d:=(3*exp(3*ln(x))-4*x*x+5*x-13)/(9*x*x-8*x+5); x:=x-d UNTIL abs(d)EPS; Edit2.Text:=format(%.6f,[x]) end; 3.一百匹马将二百块砖驮上山，其中大马、中马和小马分别每匹驮3块、2块和0.5块，计算并输出各类马匹数量的非负整数解。 procedure TForm1.Button1Click(Sender: TObject); VAR Horse1,horse2