pascal教程03(2)

课后练习三：

1、下面程序是输入三条边长度，根据海伦公式求该三角形面积，阅读程序回答问题。

var x, y, z, p, s : real; (1) s 是什么类型的变量：_________

begin

readln (x,y,z); (2) 输出结果时保留几位小数：_____ p:=(x+y+z)/2; s:=sqrt(p*(p-x)*(p-y)*(p-z)); (3) 输入：3 4 5 ↙ writeln (s:10:2); end. 输出：___________ 2、阅读程序，回答问题。

var a,b,c,d,e : char ; begin readln(a,b,c); readln(d,e); writeln(a,b,c,d,e); end. 3、计算下列表达式的值： x=4，y= –5，z=9 ① sqrt（ord（‘K’）– ord（‘B’））= ② sqr（z – abs（y））= ③ （z + 100）mod（round（37 / 3））= ④ 12 / x = 12 div x = ⑤ chr（103）= pred（‘M’）= 4、将下列数学表达式表示成Pascal表达式：

① sin（x + 0.5）+ 3 cos（2x + 4） ② 1?2?

3 若输入： (↙表示按回车)

U F O↙ (字符之间一个空格) ET↙ (字符间没空格) 则输出：__________________ 再想想，为什么？

5、请根据要求完善以下程序： 随机产生一个两位整数x；

将x个位和十位的数字调换，形成 一个新的整数y； 再将y加上1； 输出x和y。

var x,a,b,y:integer; begin x:=_______________________; a:=x div 10; b:=x mod 10; y:=_______________________; inc(y); writeln(x , ’ ’, y); end. -- 18 --

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库pascal教程03(2)在线全文阅读。