(1) 在DOS状态下,当执行当前盘目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。
(2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。
(3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。
(4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4] 。
(5) 计算机网络按通信距离划分为局域网与广域网,Novell网属于 [5] 。
(6) 下面程序计算 的值。请填空完成。
PROGRAM pp6(Output);
VAR i,j:Integer;
fact,sum:Real;
BEGIN
sum:=0.0; i:=1;
WHILE [6] DO
BEGIN
fact:=1.0;
FOR j:=1 TO 2*i+1 DO
fact:=fact*j;
sum:= [7]
i:=i+1
END
Writeln(‘sum=’,sum:10:1);
END.
(7) 下面程序段打印101—200之间所有既不能被3整除也不能被8整除的数，请填空完成。
x:=101;
WHILE x<=200 DO
BEGIN
IF (x MOD 3=0) [8] (x MOD 8=0) THEN
ELSE Write(x:3);
x:=x+1
END;
(8) 下面程序的功能是将当前路径上基类型为实数的文件real.dat中的所有实数求和。请填空完成。
PROGRAM pp8(Input,Output);
VAR
f: [9] ;
r,s:Real;
BEGIN
s:=0;
Assign(f,rdal.dat’);
Reset(f)
WHILE NOT EOF(f) DO
BEGIN
[10]
s:=s+r
END;
[11]
Writeln(‘The result is’,s:8:3)
END.
(9) 下面的程序可以把文本文件filel.txt复制为file2.txt,请真空完成。
PROGRAM pp9(Output);
VAR f1,f2:Text;
PROCEDURE copy( [12] )
VAR c:Char;
BEGIN
WHELE[13]DO
BEGIN
Read(t1,C);
Write(t2.C)
END
END;
BEGIN
Assign(f1,’filel.txt’);
Assign(f2,’file2.txt’);
Reset(f1);
Rewrite(f2);
Copy(f1,f2);
Close(f1,);
Close(f2,)
END.
(10) 命题：100以内的奇数的平方被8整除，余数均为1。
下面的函数可以验证上述命题，若命题成立，则返回True,否则返回False.请填空完成。
FUNCTION func:Boolean;
VAR a:integer; flag:Boolean;
BEGIN
flag:= [14]
FOR a:=1 TO 100 DO
IF Odd(a) THEN
flag: [15] ADD(a*a MOD 8=1);
func:=flag
END;
(11) 若两个素数之间没有其它素数，则称这两个素数为相邻的。下面过程p1可以根据参数x输出一对相邻素数a,b，使得a<=xPROCEDURE pl(x:Integer);
VAR a,b:Integer;
BEGIN
a:=x;
b:= [16]
WHILE NOT isprime(a) DO
a:=pred (a);
WHILE NOT isprime(b) DO
b:= [17]
Writeln(a:5,b:5)
END;
(12) 下面函数func的作用是：若数组a中有n个互不相同的数，则返回a中第m大的数
（m<=n=100)。
例如：若n=10,m=4,a[1]-a[10]中的数为5 7 9 3 4 2 10 15 8 6则返回第4大的数8。请填空完成。
TYPE arr=ARRAY[1..100] OF Integer;
FUNCTION func(a:arr;n,m;Integer);Integer;
VAR k,j,I:Integer;
BEGIN
FOR i:=1 TO m DO
BEGIN
k:= [18]
FOR j:=i+a TO n DO
IF a[j]>a[k] THEN
[19] ;
IF iBEGIN
j:=a[i]; a[i]:=a[k]; a[k]:=j
END
END;
Func:= [20]
END; |
