TRƯỜNG THPT THÁP CHÀM
TỔ TIN HỌC
|
ĐỀ KIỂM TRA TRẮC NGHIỆM
MÔN TIN HỌC 11
Thời gian làm bài: 45 phút;
|
Câu 1: Số phần tử của một mảng một chiều là:
A. Có giới hạn; B. Vô hạn;
C. Có nhiều nhất là 100 phần tử; D. Có nhiều nhất là 1000 phần tử;
Câu 2: Trong Pascal, đoạn chương trình sau thực hiện công việc gì ?
For i := length(S) downto 1 do If S[i] = ‘ ’ then Delete(S, i, 1) ;
A. Xóa mọi dấu cách của xâu B. Xóa dấu cách thừa trong xâu ký tự S
C. Xóa dấu cách đầu tiên trong xâu ký tự S D. Xóa dấu cách tại vị trí cuối cùng của xâu S
Câu 3: Trong ngôn ngữ lập trình Pascal, với khai báo như sau :
Type mang = ARRAY[1..100] of integer ;
Var a, b : mang ; c : array[1..100] of integer ;
Câu lệnh nào dưới đây là hợp lệ ?
A. c := b ; B. a := b ; C. a := c ; D. b := c ;
Câu 4: Trong ngôn ngữ lập trình Pascal, xâu kí tự có tối đa ?
A. 16 kí tự; B. 255 kí tự; C. 256 kí tự; D. 8 kí tự;
Câu 5: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau (A là mảng số có N phần tử) ?
S := 0 ; For i := 1 to N do S := S + A[i] ;
A. Không thực hiện việc nào trong 3 việc trên. B. Đếm số phần tử của mảng A;
C. Tính tổng các phần tử của mảng A; D. In ra màn hình mảng A;
Câu 6: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?
d := 0 ; For i := 1 to length(S) do if ( S[i] >= ‘ 0 ’ ) AND ( S[i] <= ‘ 9 ’ ) then d := d + 1 ;
A. Xóa đi các chữ số có trong S; B. Xóa đi ký tự đầu tiên trong S;
C. Đếm số ký tự là ký tự số trong xâu S; D. Đếm xem có bao nhiêu ký tự số trong xâu S;
Câu 7: Với khai báo A : Array [1 .. 100] Of Integer; thì việc truy xuất đến phần tử thứ 5 như sau:
A. A 5; B. A(5); C. A5; D. A[5];
Câu 8: Cú pháp để khai báo biến mảng một chiều trực tiếp là:
A. Type : Array [kiểu chỉ số] ;
B. Var : Array [kiểu chỉ số] ;
C. Type : Array [kiểu chỉ số] Of ;
D. Var : Array [kiểu chỉ số] Of ;
Câu 9: Cho sâu s1 = ‘123’; s2 = ‘abc’ sau khi thực hiện thủ tục Insert(s1,s2,2) thì:
A. s1 = ‘123’; s2 = ‘12abc’ B. s1 = ‘1abc23’; s2 = ‘abc’
C. s1 = ‘ab123; s2 = ‘abc’ D. s1 = ‘123’; s2 = ‘a123bc’
Câu 10: Trong Pascal, cho đoạn chương trình sau:
S := 0; For I := 1 To 5 Do If (I mod 2 = 0) Then s := s + a[1];
Với mảng a có các giá trị là: 3 6 7 9 4. Đoạn chương trình trên cho kết quả là:
A. S = 13 B. S = 14 C. S = 6 D. S = 12
Câu 11: Cho s = ‘123456789’ hàm Copy(s,2,3) cho giá trị bằng:
A. 234; B. ‘234’; C. 34; D. ‘34’;
Câu 12: Trong Pascal, để tìm vị trí xuất hiện đầu tiên của xâu ‘hoa’ trong xâu S ta có thể viết bằng cách nào trong các cách sau ?
A. i := pos(‘hoa’, S) ; B. S1 := ‘hoa’ ; i := pos(S1, ‘hoa’) ;
C. i := pos(S, ’hoa’) ; D. i := pos(‘hoa’, ‘hoa’);
Câu 13: Cho str là một xâu kí tự, đoạn chương trình sau thực hiện công việc gì?
for i := length(str) downto 1 do write(str[i]) ;
A. In từng kí tự ra màn hình theo thứ tự ngược;
B. In từng kí tự ra màn hình theo thứ tự ngược, trừ kí tự đầu tiên;
C. In xâu ra màn hình;
D. In từng kí tự xâu ra màn hình;
Câu 14: Trong các phát biểu sau, phát biểu nào là Sai?
A. Có thể tham chiếu đến từng kí tự trong xâu.
B. Xâu có chiều dài không được vượt quá 250;
C. Thao tác nhập xuất đối với dữ liệu kiểu xâu như nhập xâu hay xuất giá trị của biến kiểu dữ liệu chuẩn;
D. Xâu không có kí tự nào được gọi là xâu rỗng;
Câu 15: Cho xâu s = ‘123456789’, sau khi thực hiện thủ tục delets(s,3,4) thì:
A. S = ‘’; B. S = ‘1256789’; C. S = ‘12789’; D. S = ‘123789’;
Câu 16: Cho A = ‘abc’; B = ‘ABC’; Khi đó A + B cho kết quả nào?
A. ‘AaBbCc’; B. ‘ABCcbc’; C. ‘aAbBcC’; D. ‘abcABC’;
Câu 17: Cho khai báo mảng và đoạn chương trình như sau:
Var a : array[0..50] of real;
k := 0 ; for i := 1 to 50 do if a[i] > a[k] then k := i ;
Đoạn chương trình trên thực hiện công việc gì dưới đây ?
A. Tìm chỉ số của phần tử nhỏ nhất trong mảng; B. Tìm chỉ số của phần tử lớn nhất trong mảng;
C. Tìm phần tử nhỏ nhất trong mảng; D. Tìm phần tử lớn nhất trong mảng;
Câu 18: Để khai báo kiểu xâu trực tiếp ta sử dụng cú pháp nào?
A. Var = ;
B. Var : String[độ dài của lớn nhất của xâu] ;
C. Var : ;
D. Var = String[độ dài lớn nhất của xâu];
Câu 19: Hãy điền vào chổ trống để đoạn chương trình sau thực hiện đếm các phẩn tử có giá trị bằng 10?
Dem := 0;For I := 1 To n Do If ………………Then inc(dem); Write(‘Dãy có ’, dem, ‘phần tử có giá trị bằng 10’);
A. a(i) = 100 B. a[i] := 100 C. a[i] : 100 D. a[i] = 10
Câu 20: Trong ngôn ngữ lập trình Pascal, xâu kí tự là ?
A. Tập hợp các chữ cái và các chữ số trong bảng chữ cái tiếng Anh;
B. Dãy các kí tự trong bảng mã ASCII;
C. Tập hợp các chữ cái trong bảng chữ cái tiếng Anh;
D. Mảng các ký tự;
Câu 21: Xâu ‘ABBA’ lớn hơn xâu:
A. ‘BABA’; B. ‘ABC’; C. ‘ABABA’; D. ‘ABCBA’;
Câu 22: Cú pháp câu lệnh nào sau đây là đúng?
A. Var mang : Array [1 - 100] Of Char ; B. Var mang1c : Array (1 .. 100) Of Char ;
C. Var mang : Array [1 .. 100] Of Char ; D. Var mang : Array (1 – 100) Of Char ;
Câu 23: Đoạn chương trình sau in ra kết quả nào?
Program Welcome ;
Var a : string[10];
Begin
a := ‘tinhoc ’; writeln(length(a));
End.
A. 10; B. Chương trình có lỗi; C. 7; D. 6;
Câu 24: Trong ngôn ngữ lập trình Pascal, khai báo nào trong các khai báo sau là sai khi khai báo xâu kí tự ?
A. S : string; B. X1 : string[100]; C. S : string[256]; D. X1 : string[1];
Câu 25: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?
d := 0 ; For i := 1 to length(S) do if S[i] = ‘ ’ then d := d + 1 ;
A. Đếm số dấu cách có trong xâu; B. Xóa đi các ký tự số;
C. Đếm số ký tự có trong xâu; D. Xóa đi các dấu cách trong xâu;
Câu 26: Cho đoạn chương trình sau:
D := 0;For I := 1 To 5 Do If (a[i] > 10) and (a[i] < 100) and (a[i] mod 3 = 0)Then d := d + 1;Write(d);
Với mảng a: 9 12 20 15 210 100. Hỏi đoạn chương trình trên sau khi thực hiện với mảng a kết quả là?
A. 2 B. 4 C. 0 D. 3
Câu 27: Cho s = ‘500 ki tu’, hàm Length(s) cho giá trị bằng:
A. ‘5’ B. ‘50’; C. 50; D. 9;
Câu 28: Hỏi đoạn chương trình sau có chức năng gì?
M := a[1];For I := 2 To n Do If ( a[i] < m) Then m := a[i];Write(m);
A. Đếm phần tử trong mảng B. So sánh giá trị các phần t trong mảng.
C. Tìm phần tử lớn nhất trong mảng D. Tìm phần tử nhỏ nhất trong mảng
Câu 29: Trong ngôn ngữ lập trình Pascal, sau khi chương trình thực hiện xong đoạn chương trình sau, giá trị của biến S là ?
S := ‘Ha Noi Mua thu’; Delete(S,7,8); Insert(‘Mua thu’, S, 1);
A. Mua thu Ha Noi; B. Ha Noi;
C. Mua thu Ha Noi mua thu; D. Ha Noi Mua thu;
Câu 30: Thủ tục delete(st,p,n) thực hiện:
A. Xóa n kí tự của biến xâu st bắt đầu từ vị trí p;
B. Xóa p kí tự của biến xâu st bắt đầu từ vị trí n;
C. Xóa các kí tự của biến xâu st bắt đầu tử vị trí p đến vị trí p;
D. Xóa các kí tự của biến xâu st bắt đầu từ vị trí n đến vị trí n;
Câu 31: Cho s1 = ‘010’; s2 = ‘1001010’ hàm pos(s1,s2) cho giá trị bằng:
A. 3; B. 4; C. 5; D. 0;
Câu 32: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì ? (giá trị của biến đếm)
d := 0 ; For ch := ‘a’ to ‘z’ do If pos(ch,S) <> 0 then d := d + 1 ;
A. Đếm số lượng ký tự là chữ cái in hoa của xâu S
B. Đếm số lượng chữ cái thường khác nhau có trong xâu
C. Đếm số lượng ký tự là chữ cái thường trong xâu S
D. Đếm số lượng ký tự khác dấu cách của xâu S
Câu 33: Cho khai báo sau: Var a : array[0..16] of integer; Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?
A. for k := 16 downto 0 do write(a[k]); B. for k := 1 to 16 do write(a[k]);
C. for k := 16 down to 0 write(a[k]); D. for k:= 0 to 15 do write(a[k]);
-----------------------------------------------
----------- HẾT ----------
Họ, tên thí sinh:..........................................................................
Lớp:...............................................................................
BÀI LÀM
Tô tròn đều vào mỗi đáp án đúng sau:
1
|
|
11
|
|
21
|
|
31
|
|
2
|
|
12
|
|
22
|
|
32
|
|
3
|
|
13
|
|
23
|
|
33
|
|
4
|
|
14
|
|
24
|
|
34
|
|
5
|
|
15
|
|
25
|
|
35
|
|
6
|
|
16
|
|
26
|
|
36
|
|
7
|
|
17
|
|
27
|
|
37
|
|
8
|
|
18
|
|
28
|
|
38
|
|
9
|
|
19
|
|
29
|
|
39
|
|
10
|
|
20
|
|
30
|
|
40
|
|
Trang / - Mã đề thi 132
Chia sẻ với bạn bè của bạn: |