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ỏ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 thủ tục nếu cú được khai bỏo bất k
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 ?
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]);
Câu 6 : Cỏc biến dựng chung cho toàn bộ chương trỡnh được gọi là?
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]) ;
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
Trang 2D Tính tổng các phần tử chia hết cho 3
Câ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
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
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à?
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
Trang 3A sao chÐp vµo cuèi S1 mét phÇn cña S2 tõ vÞ
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]) ;
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 ?
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à?
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 ;
Trang 5Var a : string[10];
Begin
a := ‘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
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à?
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â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]);
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
Trang 6A sao chÐp vµo cuèi S1 mét phÇn cña S2 tõ vÞ
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