Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (150.93 KB, 4 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<i><b>SỞ GIÁO DỤC VAØ ĐAØO TẠO NAM ĐỊNH</b></i>
<i><b>THPT NGUYỄN TRƯỜNG THUÝ</b></i>
<i><b>Họ và tên:……….</b></i>
<i><b>Lớp:………..</b></i>
<b>ĐỀ KIỂM TRA HỌC KÌ I – KHỐI 11 – ĐỀ 1</b>
<i><b>( Học sinh chọn câu đúng nhất và điền vào ơ )</b></i>
<b>Câu 1</b> <b>Câu 2</b> <b>Câu 4</b> <b>Câu 5</b> <b>Câu 6</b> <b>Câu 7</b> <b>Câu 8</b> <b>Câu 9</b> <b>Câu 10</b>
<b>Câu 11</b> <b>Câu 12</b> <b>Câu 13</b> <b>Câu 14</b> <b>Câu 15</b> <b>Câu 16</b> <b>Câu 17</b> <b>Câu 18a</b> <b>Câu 18b</b>
<b>Caâu 1 :</b>Trong ngơn ng l p trình Pascal, v m t cú pháp câu l nh nào sau đây là đúng?ữ ậ ề ặ ệ
<b>A. </b>While a>5 do
a := a – 1 ;
b:= a – c;
EndWhile;
<b>B.</b> While a>5 do;
Begin
a := a – 1 ;
b:= a – c;
End;
<b>C.</b> While a>5 do
a := a – 1 ;
b:= a – c;
<b>D.</b> While a>5 do
Begin
a := a – 1 ;
b:= a – c;
End;
<b>Câu 2:</b> Xét đoạn chương trình:
If x=0 then y:= 0
else if x<0 then y:= sqrt(sqrt(-x))
else y:= sqrt(sqrt(x));
Điều khẳng định nào sau đây là đúng?
A. Đoạn chương trình trên tính căn bậc 3 của x.
B. Đoạn chương trình trên tính căn bậc 4 của |x|.
C. Cả a và b đều sai.
<b>Câu 3</b>: Cho câu lệnh For i := 1 to n do writeln (i*(i+1) div 2);
Hãy thay thế câu lệnh trên bằng 1 đoạn chương trình dùng While…….do……?
<i><b>Câu 4 :</b></i>Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau cho kết quả gì?
For i:= 10 to 1 do Write(i, ‘ ’)
A. 1 2 3 4 5 6 7 8 9 10
C. Đưa ra 10 dấu cách
B. 10 9 8 7 6 5 4 3 2 1
D. Khơng đưa kết quả gì
If b > a then c:= b else c:= a;
a. Hoán đổi giá trị 2 biến a, b.
c. Tìm giá trị c= Min(a, b).
b. Tìm giá trị c= Max (a,b).
d. Câu lệnh sai ngữ pháp.
<i><b>Caâu 6 :</b></i> K<b>ết quả hiển thị trên màn hình của đoạn chương trình sau:</b>
var n,S,i:integer;
BEGIN
S:=0; n:=5; i:=0;
While i<10 do
Begin
S:=S+1;
S:=S*5;
i:=i+2;
End;
Write(S*2);
readln;
END.
A. 8710 B. 7840
C. 7810 D. 8140
<i><b>Caâu 7 :</b></i>
<i><b>Caâu 8 :</b></i>Cho 2 số a,b. Max và Min là biến chứa giá trị cực đại va giá trị cực tiểu của 2 số a,b. Chỉ ra cấu
trúc rẽ nhánh khơng chính xác trong những trường hợp sau:
A. If a<b then
Max:= b;
Min:= a;
Else
Max:= a;
Min:= b;
B. If a<b then
Max:= b;
Min:= a;
Max:= a;
Min:= b;
End;
C. If a<b then
Begin
Max:= b;
Min:= a;
End
Else Begin
Max:= a;
Min:= b;
End;
D. If a<b then
Begin
Max:= b;
Min:= a;
End;
Else Begin
Max:= a;
Min:= b;
End;
<i><b>Caâu 9 :</b></i> Biểu diễn biểu thức
2 1
<i>x</i> <i>y</i> <i>x</i>
<i>x</i> <i>y</i>
nào trong NNLT Pascal là đúng:
A). (- x + sqrt(y))/(2*x - 1) + x/y B). (- x + sqr(y))/(2*x - 1) + x/y
C). (- x + sqrt(y))/(2x - 1) + x/y D). (- x + sqrt(y)/(2*x - 1) + x/y
<i><b>Caâu 10:</b></i>Cho biết kết quả trả về của biểu thức sau: (20 mod 3) div 2 + (15 div 4)
a). 3 b). 5 c). 4 d). 10
<i><b>Câu 11 :</b></i> Giả sử a:= 55; b := a + 99; Phải khai báo b là biến kiểu gì để tiết kiệm bộ nhớ nhất :
a) LongInt
b) Real
c) Byte
d) Integer.
<i><b>Câu 12:</b></i> Cho đoạn chương trình :
Var a ,b , c : Integer;
d: real;
Begin
a := 6; b := 7 ;
c := b + 5 ;
d := c + 2.5 ;
Writeln(‘ c = ‘ , c , d);
readln;
End.
= > Kết quả xuất trên màn hình :
a) c = 1267
b) c = 128.500000000E+01 c) c = 121.4500000000E+01d) Cả a ,b , c đều sai .
<i><b>Câu 13:</b></i> Cho đoạn chương trình :
Var
x , y , z , t : integer;
Begin
x := 5 ; y := 3 ; z := 5 ; t := 4 ;
if x >= y then
if y > z –1 then t := y else t := x +1
else t:= y ;
writeln ( ‘ Gia tri cua t = ‘ , t ) ;
readln ;
End .
= > Kết quả xuất trên màn hình :
a) Gia tri cua t = 4
b) Gia tri cua t = 5 c) Gia tri cua t = 6 d) Gia tri cua t = 3
<i><b>Câu 14:</b></i> Cho đoạn chương trình :
Var
x , y , z , t : integer;
Begin
x := 5 ; y := 3; z := 5; t := 1 ;
while (x>y) and (z>t) do begin t:= x-y+z; t:=t+1; end ;
writeln ( ‘ Gia tri cua t = ‘ , t ) ;
readln ;
End .
= > Kết quả xuất trên màn hình :
a) Gia tri cua t = 5
b) Gia tri cua t = 6 c) Gia tri cua t = 7d) Gia tri cua t = 8
<i><b>Câu 15:</b></i> Cho đoạn chương trình :
Var
i , s , t : integer;
Begin
s := 1; t := 1 ;
for i := 1 to 3 do
begin
t := s + t ;
t := 2 * t ;
end ;
writeln ( ‘ Gia tri cua t = ‘ , t ) ;
readln ;
End .
= > Kết quả xuất trên màn hình :
a) Gia tri cua t = 13
b) Gia tri cua t = 14 c) Gia tri cua t = 15d) Gia tri cua t = 16
<i><b>Câu 16:</b></i> Cho đoạn chương trình :
Var
i , k , n : integer;
Begin
k := 0; n := 0;
for i := 1 to 2 do
begin
k := k + i ;
n := n + 1 ;
end ;
writeln ( ‘ Gia tri cua k + 1 = ‘ , k + 1 ) ;
readln ;
End .
= > Kết quả xuất trên màn hình :
a) Gia tri cua k+1 = 3
b) Gia tri cua k+1 = 4 c) Gia tri cua k+1 = 5d) Gia tri cua k+1 = 6
<i><b>Câu 17:</b></i> Cho đoạn chương trình :
Var
i , s , n : integer;
Begin
s := 1 ; n := 2 ;
for i := 1 to n do s := s + ( 2* i+1) ;
writeln ( ‘ Gia tri cua s = ‘ , s ) ;
readln ;
End .
= > Kết quả xuất trên màn hình :
b) Gia tri cua s = 10 c) Gia tri cua s = 11 d) Đáp án khác
<i><b>Câu 18 :</b></i> Cho đoạn chương trình :
If ( a mod 3 = 0) then begin x := a + b; y := a – b; end
Else begin x:=a; y:=b; end;
Write(x:3,y:3);
a) Cho a = 15; b = 5. Kết quả x và y lần lượt bằng bao nhiêu? (Đánh dấu vào đáp số đúng)
<b>A.</b> 10 và 12 <b>B.</b> 20 và 10 <b>C.</b> 13 và 17 <b>D.</b> Khơng có kết quả
b) Cho a = 10; b = 12. Kết quả x và y lần lượt bằng bao nhiêu? (Đánh dấu vào đáp số đúng)
<b>A.</b> 10 và 12 <b>B.</b> 20 và 10 <b>C.</b> 12 và 8 <b>D.</b> Khơng có kết quả