Question

pascal编程问题，高手请进！

一、写出下列表达式或表达式的值
1、写出整数被3整除所得余数的表达式
2、写出计算圆的周长表达式
3、写出年龄大于50的表达式
4、写出一个数既能被5整除又能被3整除的表达式
5、写出Y是闰年的关系表达式

6、ord(‘a’)-ord(‘A’)
7、ord(x)+ord(‘a’)-ord(‘A’)

8、Chr(ord(x)+ord(‘a’)-ord(‘A’))

二、写出下列程序的运行结果：
1、Program exp4_1 ;
var x, y, n, s , t : integer ;
begin
n:=0 ; t:=1 ;
read(x , y ) ;
s : = x+y ; n:= n+ 5 ;
t : = t*3 ;
writeln( x :5 , y:5 );
writeln( ‘s=‘:3 , s :5 , ‘n=‘ :3, n :5 , ‘t = ‘ :3, t:5 )
end.

2、Program exp4_2 ;
var x , y, m , d : integer ;
begin
write(‘ input number : ‘) ;
read(x , y) ;
writeln ;
d := x div y ; m:= x mod y ;
writeln( ‘x/y=‘, x,’/’,y,’=‘, d ,’……’, m );
end .
当输入：20 6 其运行结果是：

3、Program exp4_3 ;
var a , b : integer ;
begin
write(‘ input number :’ ) ;
read( a , b) ;
writeln(‘a=‘:5 , a:5 ,’b=‘:5 , b: 5 ) ;
a:=a+b ; b:=a-b ; a:=a-b ;
writeln(‘a=‘:5 , a:5 ,’b=‘:5 , b: 5 ) ;
end.
当输入 28 -9 ，输出结果是：

第一大题写出表达式或求表达式的值，
第二大题读程序写结果，可以只写出程序结果即可。
答案用记事本发到邮箱zrzsbrz@126.com

Answer 1

1. n mod 3
2. 2 * Pi * r 或 Pi * d
假设半径为r, 直径为d, Pi是Pascal内置的常数
3. age > 50
假设年龄为age
4. (n mod 5 = 0) and (n mod 3 = 0)
其实 n mod 15 = 0 就可以了, 不过不知道这道题想考什么
5. (y mod 4=0)and(y mod 100<>0)or(y mod 400=0)
6. -32
7. x - 32
由于不知道x的值, 所以无法给出具体结果. 当x是一个大写字母时结果是它对应的小写字母的asc码
8. 当x是一个大写字母时, 结果是它对应的小写字母

1. 输入数据呢...
(x) (y)
s= (x+y) n= 0 t= 3
加括号的内容替换成相应的值

2.
input number:20 6 {这一行是输入}

x/y=20/6=3......2

3.
input number:28 -9 {输入}
a= 28 b= -9
a= -9 b= 28
说明: 两个writeln 之间那段是交换a和b, 不过一般写成:
a := a xor b; b := a xor b; a := a xor b;
这样改的好处是不用担心a+b超整型上界之类的问题, 而且对字符等类型的变量同样适用.

Answer 2

1.n Mod 3
2.s:=3.14*d
3.nianning>50
4.(n Mod 5=0) And (n Mod 3=0)
5. (y mod 4=0)and(y mod 100<>0)or(y mod 400=0)
6.-32
7.x-32
8.当x是一个大写字母时, 结果是它对应的小写字母
1.s=x+y n=0 t=3
2.input number:20 6 {这一行是输入}

x/y=20/6=3......2
3.a=b b=a

Answer 3

1. n mod 3
2. 2 * Pi * r 或 Pi * d
3. age > 50
4. (n mod 3 = 0) and (n mod 5 = 0)
5. (y mod 4=0)and(y mod 100<>0)or(y mod 400=0)
6. -32
7. x - 32
8. 当x是一个大写字母时, 结果是它对应的小写字母

1.
(x) (y)
s= (x+y) n= 0 t= 3

2.
input number:20 6

x/y=20/6=3......2

3.
input number:28 -9
a= 28 b= -9
a= -9 b= 28