Sở GD-ĐT Tỉnh Nghệ An Đề kiểm tra 15 phútTrường THPT Đặng Thúc Hứa Môn : Tin học lớp 11 Họ tên học sinh :... Sở GD-ĐT Tỉnh Nghệ An Đề kiểm tra 15 phútTrường THPT Đặng Thúc Hứa Môn : Tin
Trang 1Sở GD-ĐT Tỉnh Nghệ An Đề kiểm tra 15 phút
Trường THPT Đặng Thúc Hứa Môn : Tin học lớp 11
Họ tên học sinh : Lớp :
1/ Khai báo nào sau đây là đúng cú pháp
a) Type 1mang = array [1 100] of byte; b) Type mang1c = array [1-100] of byte;
c) Type mang1c = array [1 100] of byte; d) Type mang1c = array (1 100) of byte;
2/ Khai báo nào sau đây là sai cú pháp
a) Type mang2c = array [10 100,1 10] of char; b) Type mang2c = array [1 10,10 100] of char; c) Type mang2c = array [1 100,1 100] of byte; d) Type mang2c = array [1 100;1 100] of char; 3/ Nếu khai báo biến a:array[1 100,1 100] of integer thì việc truy xuất đến phần tử nào là đúng
4/ Đoạn chương trình sau khi thực hiện cho kết quả gì
Var a:array[1 3] of byte; i:byte;
Begin
For i:=1 to 3 do a[i]:=i;
For i:=1 to 3 do
If a[i] mod 2 = 0 then Write(a[i]);
End
5/ Trong Pascal, để xuất các phần tử của mảng 1 chiều ta dùng mấy vịng For?
6/ Trong Pascal, để xuất các phần tử của mảng 2 chiều ta dùng mấy vịng For?
7/ Đoạn chương trình sau làm gi?
For i:=1 to n do
Begin
Write(‘phan tu thu’,i, ‘=’);
Readln(A[i]);
End;
a) Đếm số phần tử của mảng A ; b) In ra mảng A ;
c) Tính tổng các phần tử của mảng A ; d) Nhập mảng A ;
8/ Khai báo sau đây thì mảng cĩ tối đa bao nhiêu phần tử?
Var a:array [1 10,2 5] of byte;
9/ Với khai báo sau:
Var a,b : array [1 100] of integer; c:array[1 100] of byte;
Câu lệnh nào sau đây là sai?
10/ Chương trình sau sẽ viết ra cái gì?
For i:=1 to n do
If a[i] mod 2 =1 then Write(a[i]);
a) Viết ra tổng của mảng a; b) Viết ra các số lẻ của mảng a;
c) Viết ra tất cả các số của mảng a; d) Viết ra các số chẳn của mảng a;
Trang 2Sở GD-ĐT Tỉnh Nghệ An Đề kiểm tra 15 phút
Trường THPT Đặng Thúc Hứa Môn : Tin học lớp 11
Họ tên học sinh : Lớp :
1/ Khai báo nào sau đây là đúng cú pháp
a) Type 1mang = array [1 100] of byte; b) Type mang1c = array [1-100] of byte;
c) Type mang1c = array (1 100) of byte; d) Type mang1c = array [1 100] of byte;
2/ Chương trình sau sẽ viết ra cái gì?
For i:=1 to n do
If a[i] mod 2 =1 then Write(a[i]);
a) Viết ra tổng của mảng a; b) Viết ra tất cả các số của mảng a;
c) Viết ra các số lẻ của mảng a; d) Viết ra các số chẳn của mảng a;
3/ Trong Pascal, để xuất các phần tử của mảng 1 chiều ta dùng mấy vịng For?
4/ Đoạn chương trình sau khi thực hiện cho kết quả gì
Begin
tg := A[i];
A[i] := A[i+1];
A[i+1] := tg;
End
a) Tráo đổi tg và A[i] b) Tráo đổi A[i] và A[i+1] c) Tính tổng tg d) Tính tổng A[i] 5/ Nếu khai báo biến a:array[1 100,1 100] of integer thì việc truy xuất đến phần tử nào là đúng
6/ Trong Pascal, để xuất các phần tử của mảng 2 chiều ta dùng mấy vịng For?
7/ Đoạn chương trình sau làm gi?
For i:=1 to n do
Begin
Write(‘phan tu thu’,i, ‘=’);
Readln(A[i]);
End;
a) Đếm số phần tử của mảng A ; b) In ra mảng A ;
c) Tính tổng các phần tử của mảng A ; d) Nhập mảng A ;
8/ Khai báo sau đây thì mảng cĩ tối đa bao nhiêu phần tử?
Var a:array [1 10,1 3] of byte;
9/ Với khai báo sau:
Var a,b : array [1 90] of integer; c:array[1 90] of byte;
Câu lệnh nào sau đây là sai?
10/ Khai báo nào sau đây là sai cú pháp
a) Type mang2c = array [10 100,1 10] of char; b) Type mang2c = array [1 10,10 100] of char; c) Type mang2c = array [1 100,1 100] of byte; d) Type mang2c = array [1 100;1 100] of char;
Trang 3¤ Đáp án của đề thi:
1[ 1]d 2[ 1]d 3[ 1]a 4[ 1]a 5[ 1]b 6[ 1]b 7[ 1]D 8[ 1]b
9[ 1]d 10[ 1]d 11[ 1]d 12[ 1]b 13[ 1]c 14[ 1]a 15[ 1]c 16[ 1]b 17[ 1]c 18[ 1]a 19[ 1]c 20[ 1]c 21[ 1]a 22[ 1]c 23[ 1]b 24[ 1]d 25[ 1]b
¤ Đáp án của đề thi:
1[ 1]c 2[ 1]d 3[ 1]a 4[ 1]b 5[ 1]b 6[ 1]b 7[ 1]D 8[ 1]d
9[ 1]d 10[ 1]d 11[ 1]d 12[ 1]b 13[ 1]c 14[ 1]a 15[ 1]c 16[ 1]b 17[ 1]c 18[ 1]a 19[ 1]c 20[ 1]c 21[ 1]a 22[ 1]c 23[ 1]b 24[ 1]d 25[ 1]C