1.var i:shortint
Begin
i:=high(shortint);
write(‘I=’,I);
End;
结果输出：（
）
2.functioncheck(n.k:Integer)Integer
Var m:integer
Begin
Repeat
m:=n.mod 10;
n:=n.div 10;
k=k-1；
until k=0；
check:=m；
End
若调用语句y=check(3725.3),最后运行y值为：（
）
3.Type
Mycolor=(red=1,white=15,black=20)
Var I.=mycolor
Begin
L:=black
writeln(‘black is’,ord(L));
end.
最后输出结果：black is______
4.Var a:array[1.10]of integer;
K,I: integer;
程序段
K=1;
For.1:=1to10do.
If a<a[k] then
K=1;
Writen(a[k])
执行后输出的是数组中的_____
|
