数组练习题
一、选择题 1.下面对数组类型定义描述正确的是( )
A)数组的下标类型是有序类型
B)一个数组中的各元素类型可以不一样
C)数组的下标类型若为整型,则其上界一定要大于下界
D)PASCAL语言数组下标的下界要大于等于零
2.设有说明var a:array['a'..'z'] of real;
则a数组是( )
A)一个存放字符数据的数组 B)一个存放实型元素的数组
C)一个具有20个数据的数组 D)能够存放26个元素的数组
3.设有如下说明:
const a=1;b=2;c=3;
var x:array[1..5] of integer;
且已知x[1]:=1;x[2]:=7;x[3]:=9;x[4]:=1;x[5]:=6;
则表达式:
(x[b]-1>x[5])and(x[c]>0)or not(x[a+b]>(a+b))的值是:
A)true B)false C)0 D)1
4.已有数组说明:var a:array[1..10] of integer;
a[1] a[2] .................................a[10] 7 6 4 3 5 2 14 11 9 1
执行语句writlen(a[a[7] div a[3]])后的输出结果是:
A)4 B)6 C)3 D)14
5.已知有说明:VAR a:array[1..10]of integer;
k,i:Integer;
下面程序段:
For i:=1 T0 10 DO
IF a[i]>a[k] then k:=i;
writeln(a[k]);
输出的是
A)数组中数的平均值 C)数组中数的最小值
B)数组中数的总和 D)数组中数的最大值
6.如果计算机中4个字节存放一个实型数,若有说明:
VAR A:ARRAY[1..10] OF Real;
则数组A需占用的存储区域是
A)10字节 B)20字节 C)80字节 D)40字节
二、看程序写结果
1.
var a:array[-3..3] of integer;
i,k:integer;
begin
k:=0;
for i:=-3 to 3 do
if i<0 then a[i]:=k+1
else a[i]:=k+2;
writeln(a[3]-a[-3])
end.
output:
2.var a:array[1..30] of longint;
n,i:integer;
begin
readln(n);
a[1]:=0;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
for i:=1 to n do write(a[i]:8);
writeln
end.
输入:10
输出:
3.
var i,s,max:integer;a:array[1..10] of integer;
begin
for i:=1 to 10 do read(a[i]);
max:=a[1];s:=a[1];
for i:=2 to 10 do
begin
if s<0 then s:=0;
s:=s+a[i];
if s>max then max:=s
end;
writeln(‘max=’,max)
end.
输入:-2 13 –1 4 7 8 –1 –18 24 6
输出:max=
4.
var a:array['a'..'z'] of integer;
b:char;
begin
repeat
read(b);
if (b>='a')and(b<='z') then
a[b]:=a[b]+1;
until b='?';
for b:='a' to 'z' do
if a[b]<>0 then write(b,':',a[b],' ')
end.
输入:how many apples are there on the table?
输出:
5.
var a:array[1..10] of integer;
i,j,temp:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
temp:=a[i];a[i]:=a[j];a[j]:=temp
end;
for i:=1 to 10 do write(a[i]:8); writeln
end.
输入:87 65 35 156 5 54 7 68 9 81
输出:
6.
var a:array[0..1000] of integer;
k,i,n,j:integer;
begin
readln(n,k); j:=0;
while n>=k do
begin
a[j]:=n mod k; n:=n div k; j:=j+1
end;
a[j]:=n;
write(n,',',k,':');
for i:=j downto 0 do write(a[i]:2); writeln
end.
输入:1288 3 输出:
三、填空题:请将每空的正确答案写在横线上
下面的程序从键盘接收任意6个数放入数组A中,假设这6个数为:8 1 4 2 5 6 ,则要输出一个具有如下内容的方阵。
8 1 4 2 5 6
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
var a:array[1..6] of integer;
i,j,k:integer;
begin
for i:=1 to 6 do read(__________);
for i:=1 to 6 do
begin
if i=1 then k:=1
else k:=____________;
for j:=1 to_________do
begin
write(a[k]:2);
if k=6 then k:=1
else k:=______________
end;
writeln
end
end.
下面的程序将n个学生的英文成绩从键盘输入,按0—59分、60—69分、70—79分、80—89分和90—100分分组统计人数。
const n=20;
var i,k:integer;
s:array[1..5]of integer;
a:array[l..n]of integer;
begin
for i:=1 to _____ do
s[i]:=0;
for i:=1 to _____ do
begin
_______________;
if a[i]>=90 then k:=1
else if a[i]>=80 then k:=2
else if a[i]>=70 then k:=3
else if a[i]>=60 then k:=4
else k:=5;
s[k]:=_______
end;
for i:=1 to 5 do
write(a[i]:4);
writeln
end.
四、编写程序
1.随机产生20个100以内的数,输出;按从小到大的顺序排序,输出。
2.判断一字符串是否是回文数,如121、12321、ABA等(字符串输入时以‘.’结束)。
如输入:12321.
输出:yes
3.围绕着山顶有10个洞,一只兔子和一只狐狸住在各自的洞里,狐狸总想吃掉兔子,一天兔子对狐狸说,你想吃我有一个条件,你先把洞编号1到10,你从第10洞出发,先到第1号洞找我,第二次隔一个洞找我,第三次隔两个洞找我,以后依次类推,次数不限,若能找到我你就可以饱餐一顿,在没找到我之前不能停止,狐狸一想只有10个洞,寻找的次数又不限,哪有找不到的道理,就答应了条件,结果狐狸跑得昏了过去也没找到兔子,请问兔子躲在哪个洞里。程序中可假定狐狸找了1000次。
4.求一个5 X 5数阵中的马鞍数,输出它的位置。所谓马鞍数,是指在行上最小而在列上最大的数。如下:
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数。
有答案更好 但不能不回帖 不回帖者杀无赦
[ 本帖最后由 chao41091153 于 2010-6-2 17:03 编辑 ]