首页 26考研 在职考研 直播好课 大纲冲刺

新东方在线 > 考研 > 计算机 > 考研计算机真题 > 正文

扫码加入训练营

牢记核心词

学习得礼盒

厦门大学1999年计算机专业课考研真题试卷(回忆版)

2014-09-25 18:14:43来源：新东方在线编辑整理

　　程序设计部分

　　四、写出下面程序的输出结果

　　1、 program csdge01(output);

　　var a,b,c: intger;

　　fuction tq( var x,y: intger ; z:integer): integer;

　　begin z:=x*3; x:=z+1; y:=x+z; tq:=y-1

　　end;

　　begin

　　a:=1; b:=1; c:=1;

　　writeln (tq ( a,b,c)):6, a:6, b:6, c:6)

　　end.

　　2、 program csdge02(output);

　　var p1,p2,p3:^ intger;

　　begin

　　new(p1); p1^:=5;

　　new(p3); p3^:=p1^*3; new(p2);

　　p2^:=3; p1^:=p2^+p3^; p2:=p3;

　　p3^:=p1-p2^; p2^:= (p1^*4+p2^) div (p3^ mod 4);

　　writeln (p1^:6, p2^:6, p3^:6)

　　end.

　　3 、 program csdge03(output);

　　var a,b,c: intger;

　　procedure p1(var x:integer);

　　function f2 (y:integer): integer ;

　　procedure p3( var z:integer );

　　begin z:z+2; b:=3*z

　　end;

　　begin p3(c); f2 :=y+c end;

　　begin x:=f2(b) end;

　　begin

　　a:=2 ; b:=1; c:=3; p1(a);

　　writeln ('a=', a:4 , ' b=' , b:4, ' c=', c:4)

　　end..

　　4、 program csdege04(output);

　　const n=2 ;

　　var s:array[1..n] of char ;

　　procedure al(k: integer);

　　var ch:char ; i: integer ;

　　begin

　　for ch:='a' to 'c' do

　　begin s[k]:=ch;

　　if k=n then

　　begin

　　for i:=1 to k do

　　write(s[i]:1); write (' ')

　　end

　　else al(k+1) end

　　end;

　　begin al (1) ; writeln end.

考研公开课小程序

本文关键字: 计算机考研 考研真题 厦门大学

上一页 1 2 3 下一页

考研英语核心词汇营

背词+听课+练习+督学，学习得礼盒

更多资料

添加班主任领资料

添加考研班主任
免费领取考研历年真题等复习干货资料

  • 1.打开手机微信【扫一扫】，识别上方二维码；
  • 2.添加班主任，可领取学习资料。
更多>>
更多内容
看课程 MBA 优惠券 0元学 领资料

关注新东方在线考研服务号

获得21考研真题及答案解析

1. 打开手机微信【扫一扫】，识别上方二维码；
2.点击【关注公众号】，获取资料大礼包。

名师试听

历年考研真题及答案解析下载

英语一 英语二 政治 数学一 数学二 数学三 西医综合 教育综合 心理学综合
立即下载
近10年考研真题及答案免费下载
更多>>
更多公开课>>
更多>>
更多资料
我要
反馈 返回
首页
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10