Các thủ tục (nếu có) phải được khai báo và mô tả ngay sau phần khai báo biến và trước Begin của chương trình chính.. Các thủ tục (nếu có) được khai báo bất kỳ trong chương trình chính.[r]
Trang 1Trờng THPT Lê Quí Đôn
Họ và tên:
Lớp: STT:
Đề kiểm tra HK2 (45 phút) Năm học: 2011-2012 Môn Tin Học Khối 11
Đề: 001
Điểm
1 Trắc nghiệm (5đ):
Câu 1 : 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:=1 to 16 do write(a[k]); B For k:=16 downto 0 do write(a[k]);
C For k:=16 downto 0 write(a[k]); D For k:= 0 to 15 do write(a[k]);
Câu 2 : S1 = ‘tin hoc cho moi nguoi’
Pos(‘o’,S1) cho kết quả là?
Câu 3 : Đ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
Câu 4 : Khai bỏo phần đầu một hàm là:
A Function <tờn hàm> [(<danh sỏch cỏc tham số>)] ;
B Function <tờn hàm> ;
C Procedure <tờn hàm> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
D Function <tờn hàm> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
Câu 5 : Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau (kiểu xâu) thực hiện công việc gì ?
S1 := ‘ ‘ ;
For i :=1 to length(S) do
S1 :=S1 + upcase(S[i]);
A Tạo xâu S1 là chữ in hoa từ xâu S B Tạo xâu S1 là chữ thờng từ xâu S
C Tạo xâu S1 từ xâu S D Tạo xâu S1 là các kí tự chữ số
Câu 6 : Cỏc biến dựng chung cho toàn bộ chương trỡnh được gọi là?
A. Tham số thực sự B Biến cục bộ C. Tham số hỡnh thức D Biến toàn cục Câu 7 : Khẳng định nào sau đõy là đỳng?
A Cỏc thủ tục (nếu cú) phải được khai bỏo ngay từ đầu của chương trỡnh chớnh
B Cỏc thủ tục (nếu cú) phải được khai bỏo sau Begin của chương trỡnh chớnh.
C Cỏc thủ tục (nếu cú) được khai bỏo bất kỳ trong chương trỡnh chớnh.
D Cỏc thủ tục (nếu cú) phải được khai bỏo và mụ tả ngay sau phần khai bỏo biến và trước Begin của
chương trỡnh chớnh
Câu 8 : Hãy chọn phơng án ghép đúng Cho xâu S là ‘Hanoi-Vietnam’ Kết quả của hàm
Length(S) là
Câu 9 : 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 xâu ra màn hình; B In từng kí tự xâu ra màn hình;
C In từng kí tự ra màn hình theo thứ tự ngợc; D In từng kí tự ra màn hình theo thứ tự ngợc,
trừ kí tự đầu tiên;
Câu 10 : Trong ngôn ngữ lập trình Pascal, đoạn chơng trình (mảng một chiều) sau thực hiện công việc
gì ?
S := 0 ;
For i := 1 to n do
If (a[i] mod 3 =0) or (a[i] mod 5 = 0) then S :=S+a[i] ;
A Tính tổng các phần tử trong mảng chia hết cho 3 hoặc chia hết cho 5
B Tính tổng các phần tử chia hết cho 5
C Tính tổng các phần tử trong mảng
D Tính tổng các phần tử chia hết cho 3
Trang 2Câu 11 : 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
C Tìm chỉ số của phần tử lớn nhất trong
mảng;
D Tìm phần tử lớn nhất trong mảng;
Câu 12 : Khai bỏo phần đầu một thủ tục là:
A Procedure [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
B Procedure <tờn thủ tục>: <kiểu dữ liệu>;
C Procedure <tờn thủ tục> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
D Procedure <tờn thủ tục> [(<danh sỏch cỏc tham số>)];
Câu 13 : Mảng A dới đây chứa bao nhiêu phần tử ?
Const Rows=3 ;
Var A:array[0 rows+1] of integer ;
Câu 14 : Cho x, y là hai biến nguyờn và khai bỏo thủ tục :
Procedure Doicho( Var a:Integer; b:Integer);
Var z : Integer;
Begin z:=a; a:=b; b:=z;
End;
Sau khi thực hiện cỏc lệnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ trị của x, y là:
Câu 15 : Cho x, y là hai biến nguyờn và khai bỏo thủ tục :
Procedure Doicho( Var a,b:Integer);
Var z : Integer;
Begin z:=a; a:=b; b:=z;
End;
Sau khi thực hiện cỏc lệnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ trị của x, y là:
Câu 16 : Trong mảng một chiều, đoạn chơng trình sau thực hiện công việc gì ?
Dem := 0 ;
For i := 1 to n do
If a[i] mod 2 = 0 then
Dem := Dem + 1 ;
A Đếm các phần tử chia hết cho 2 trong mảng B Gán giá trị a[i] cho biến S
C Tính tổng các phần tử chia hết cho 2 trong
mảng
D Tính tổng các phần tử trong mảng Câu 17 : Đoạn chương trỡnh sau đưa ra màn hỡnh kết quả nào:
for i:= 1 to 10 do write(i);
Câu 18 : S1 ‘abcd’
S2= ‘ghk’
Insert(S1,S2,1) cho kết quả là ?
Câu 19 : Cỏc biến được khai bỏo cho dữ liệu vào/ra được gọi là?
A. Biến cục bộ B Tham số thực sự C. Biến toàn cục D. Tham số hỡnh
thức
Câu 20 : Hãy chọn phơng án ghép đúng nhất Thủ tục chuẩn Insert(S1,S2,vt) thực hiện
A sao chép vào cuối S1 một phần của S2 từ vị B chèn xâu S1 vào S2 bắt đầu từ vị trí vt ;
Trang 3trÝ vt ;
C chÌn x©u S2 vµo S1 b¾t ®Çu tõ vÞ trÝ vt ; D nèi x©u S2 vµo S1;
2 Tù luËn (5®):
Em h·y viÕt ch¬ng tr×nh nhËp vµo mét m¶ng 1 chiÒu gåm 10 phÇn tö vµ tÝnh tÝch c¸c phÇn tö ch½n trong m¶ng, xuÊt tÝch ra mµn h×nh
Bµi lµm
HÕt
Trang 4Trờng THPT Lê Quí Đôn
Họ và tên:
Lớp: STT:
Đề kiểm tra HK2 (45 phút) Năm học: 2011-2012 Môn Tin Học Khối 11
Đề: 002
Điểm
1 Trắc nghiệm (5đ):
Câu 1 : Cho x, y là hai biến nguyờn và khai bỏo thủ tục :
Procedure Doicho( Var a:Integer; b:Integer);
Var z : Integer;
Begin z:=a; a:=b; b:=z;
End;
Sau khi thực hiện cỏc lệnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ trị của x, y là:
Câu 2 : S1 ‘abcd’
S2= ‘ghk’
Insert(S1,S2,1) cho kết quả là ?
Câu 3 : 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 xâu ra màn hình; B In từng kí tự ra màn hình theo thứ tự ngợc;
C In từng kí tự xâu ra màn hình; D In từng kí tự ra màn hình theo thứ tự ngợc,
trừ kí tự đầu tiên;
Câu 4 : 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:=16 downto 0 write(a[k]);
C For k:=1 to 16 do write(a[k]); D For k:= 0 to 15 do write(a[k]);
Câu 5 : Mảng A dới đây chứa bao nhiêu phần tử ?
Const Rows=3 ;
Var A:array[0 rows+1] of integer ;
Câu 6 : Cỏc biến dựng chung cho toàn bộ chương trỡnh được gọi là?
A. Biến toàn cục B Biến cục bộ C. Tham số hỡnh thức D Tham số thực sự Câu 7 : Khẳng định nào sau đõy là đỳng?
A Cỏc thủ tục (nếu cú) phải được khai bỏo sau Begin của chương trỡnh chớnh.
B Cỏc thủ tục (nếu cú) phải được khai bỏo và mụ tả ngay sau phần khai bỏo biến và trước Begin của
chương trỡnh chớnh
C Cỏc thủ tục (nếu cú) được khai bỏo bất kỳ trong chương trỡnh chớnh.
D Cỏc thủ tục (nếu cú) phải được khai bỏo ngay từ đầu của chương trỡnh chớnh
Câu 8 : Hãy chọn phơng án ghép đúng Cho xâu S là ‘Hanoi-Vietnam’ Kết quả của hàm
Length(S) là
Câu 9 : Khai bỏo phần đầu một hàm là:
A Function <tờn hàm> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
B Function <tờn hàm> ;
C Function <tờn hàm> [(<danh sỏch cỏc tham số>)] ;
D Procedure <tờn hàm> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
Câu 10 : Đoạn chơng trình sau in ra kết quả nào ?
Program Welcome ;
Var a : string[10];
Trang 5a := ‘tinhoc’;
writeln(length(a));
End
Câu 11 : S1 = ‘tin hoc cho moi nguoi’
Pos(‘o’,S1) cho kết quả là?
Câu 12 : Trong ngôn ngữ lập trình Pascal, đoạn chơng trình (mảng một chiều) sau thực hiện công việc
gì ?
S := 0 ;
For i := 1 to n do
If (a[i] mod 3 =0) or (a[i] mod 5 = 0) then S :=S+a[i] ;
A Tính tổng các phần tử chia hết cho 5
B Tính tổng các phần tử trong mảng chia hết cho 3 hoặc chia hết cho 5
C Tính tổng các phần tử chia hết cho 3
D Tính tổng các phần tử trong mảng
Câu 13 : 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
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 14 : Cho x, y là hai biến nguyờn và khai bỏo thủ tục :
Procedure Doicho( Var a,b:Integer);
Var z : Integer;
Begin z:=a; a:=b; b:=z;
End;
Sau khi thực hiện cỏc lệnh:
x:=7; y:=3;
Doicho(x, y);
thỡ giỏ trị của x, y là:
Câu 15 : Đoạn chương trỡnh sau đưa ra màn hỡnh kết quả nào:
for i:= 1 to 10 do write(i);
Câu 16 : Khai bỏo phần đầu một thủ tục là:
A Procedure <tờn thủ tục> [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
B Procedure <tờn thủ tục>: <kiểu dữ liệu>;
C Procedure <tờn thủ tục> [(<danh sỏch cỏc tham số>)];
D Procedure [(<danh sỏch cỏc tham số>)] : <kiểu dữ liệu>;
Câu 17 : Cỏc biến được khai bỏo cho dữ liệu vào/ra được gọi là?
A. Biến cục bộ B Biến toàn cục C. Tham số thực sự D. Tham số hỡnh thức. Câu 18 : Trong mảng một chiều, đoạn chơng trình sau thực hiện công việc gì ?
Dem := 0 ;
For i := 1 to n do
If a[i] mod 2 = 0 then
Dem := Dem + 1 ;
A Tính tổng các phần tử chia hết cho 2 trong
C Tính tổng các phần tử trong mảng D Đếm các phần tử chia hết cho 2 trong mảng Câu 19 : Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau (kiểu xâu) thực hiện công việc gì ?
S1 := ‘ ‘ ;
For i :=1 to length(S) do
S1 :=S1 + upcase(S[i]);
A Tạo xâu S1 là chữ in hoa từ xâu S B Tạo xâu S1 là chữ thờng từ xâu S
C Tạo xâu S1 là các kí tự chữ số D Tạo xâu S1 từ xâu S
Câu 20 : Hãy chọn phơng án ghép đúng nhất Thủ tục chuẩn Insert(S1,S2,vt) thực hiện
A sao chép vào cuối S1 một phần của S2 từ vị B chèn xâu S2 vào S1 bắt đầu từ vị trí vt ;
Trang 6trÝ vt ;
C nèi x©u S2 vµo S1; D chÌn x©u S1 vµo S2 b¾t ®Çu tõ vÞ trÝ vt ;
2 Tù luËn (5®):
Em h·y viÕt ch¬ng tr×nh nhËp vµo mét m¶ng 1 chiÒu gåm 10 phÇn tö vµ tÝnh tæng c¸c phÇn tö lÎ trong m¶ng, xuÊt tæng ra mµn h×nh
Bµi lµm
HÕt
Trang 7§¸p An
§Ò kiÓm tra HK2 (45 phót) m«n Tin Häc Khèi 11
001
002