De kiem tra hoc ki 1

Caâu 5: Trong ngôn ngữ lập trình Pascal, để tính tổng các ước thực sự của một số nguyên N, ta cần dùng đoạn chương trình nào trong các đoạn sau: (ước thực sự là ước mà không kể chính nó[r]

SỞ GIÁO DỤC VÀ ĐÀO TẠO NAM ĐỊNH

THPT NGUYỄN TRƯỜNG THUÝ

Họ và tên:……….

Lớp:………

ĐỀ KIỂM TRA HỌC KÌ I – KHỐI 11 – ĐỀ 2

( Học sinh chọn câu đúng nhất và điền vào ơ )

Câu 11 Câu 12 Câu 13 Câu 14 Câu 15 Câu 16 Câu 17 Câu 18a Câu 18b

Câu 1: 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 với cấu trúc vịng lặp For cĩ

1 lệnh con?

a For i:=1 to 100 do a:= a – 1;

c For i:=1 to 100 do; a:= a – 1; b For i:=1 to 100 do a:= a – 1d For i:=1; to 100 do a:= a – 1;

Câu 2: 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ì?

T:= 0;

For i:= 1 to N do

If (i mod 3 = 0) or (i mod 5 = 0) then T:= T + i;

a Tính tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến N

b Tính tổng các ước thực sự của N

c Tính tổng các số chia hết cho cả 3 và 5 trong phạm vi từ 1 đến N

d Tìm một ước số của số N

Câu 3: Cho đoạn trình: I:=1; s:=0; While I <= n do begin s:= s+1/I; i:=i+1; end;

Hãy thay thế đoạn trình trên bằng 1 đoạn chương trình dùng For…….do……?

Câu 4: Cho đoạn chương trình sau:

Begin

x:= a;

If a < b then x:= b;

End

Cho a = 20; b = 15 Kết quả x bằng bao nhiêu?

a 10

c 15

b 20

d 25

Câu 5: Trong ngơn ngữ lập trình Pascal, để tính tổng các ước thực sự của một số nguyên N, ta cần dùng đoạn

chương trình nào trong các đoạn sau: (ước thực sự là ước mà khơng kể chính nĩ)

a T:= 1;

For i:= 1 to N div 2 do

If N mode i = 0 then T:= T + i;

c T:= 0;

For i:= 1 to N div 2 do

If N mode i = 0 then T:= T + i;

b T:= 1;

For i:= 1 to N div 2 do

If Ndiv i = 0 then T:= T + i;

d T:= 0;

For i:= 1 to N div 2 do

If N div i = 0 then T:= T + i;

Câu 6:

Trong NNLT Pascal cho đoạn chương trình sau, kết quả hiển thị trên màn hình?

i:=1; s:=0;

while i<10 do

begin

S:=S+2;

i:=i+1;

End;

Write(S);

A 10 B 14 C 18 D 20

Câu 7: Phát biểu nào sau đây cĩ thể lấy làm biểu thức điều kiện trong cấu trúc rẽ nhánh ?

A A + B

B A > B

C N mod 100

D “A nho hon B”

Câu 8: Cho tiêu chuẩn xếp loại như sau:

Giỏi: DTB từ 8.0 trở lên Khá: 6.5 đến dưới 8.0

TB: DTB từ 5.0 đến dưới 6.5 Yếu kém: những trường hợp cịn lại

Hãy chọn cấu trúc rẽ nhánh KHƠNG chính xác trong các trường hợp sau?

A If DTB >= 8.0 Then XL:= ‘Gioi’;

If DTB >= 6.5 Then XL:= ‘Kha’;

If DTB >= 5.0 Then XL:= ‘TB’;

If DTB < 5.0Then XL:= ‘YeuKem’;

B If DTB >= 8.0 Then XL:=’Gioi’;

If (DTB >= 6.5) AND (DTB<8.0) Then XL:=’Kha’;

If (DTB >= 5.0) AND (DTB < 6.5) Then XL := ‘TB’;

If DTB < 5.0 Then XL:= ‘YeuKem’;

C XL:= ‘Gioi’;

If DTB < 8.0 Then XL:=’Kha’;

If DTB < 6.5 Then XL:= ‘TB’;

If DTB < 5.0 Then XL:= ‘YeuKem’;

D If DTB < 5.0 Then XL:=’YeuKem’

Else

If DTB< 6.5 Then XL:=’TB’

Else

If DTB<8.0 Then XL:=’Kha’

Else XL:=’Gioi’;

Câu 9: Biểu diễn biểu thức 1

1

xy x



 nào trong NNLT Pascal là đúng:

A.(xy - 1)/(x - 1) B (x*y - 1)/(x - 1) C x*y - 1/x - 1 D (x*y - 1)/x - 1

Câu 10: Cho biết kết quả trả về của biểu thức sau: (99 div 9) mod 9 + (13 div 3) div 2

Câu 11: Giả sử a:= 5.5; b := a + 99; Phải khai báo b là biến kiểu gì :

a) LongInt

b) Real

c) Byte d) Integer

Câu 12: Cho đoạn chương trình :

Var a ,b , c : Integer;

d: real;

Begin

a := 7; b := 6 ;

c := b + 5 ;

d := c + 2.5 ;

Writeln(‘ c = ‘ , c , d);

End

= > Kết quả xuất trên màn hình :

a) c = 1867

b) c = 111.35000000000E+01

c) c = 1811 d) Cả a ,b , c đều sai

Câu 13: Cho đoạn chương trình :

Var

x , y , z , t : integer;

Begin

x := 3 ; y := 5 ; z := 6 ; 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

Câu 14: 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+t; 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 = 4

b) Gia tri cua t = 5

c) Gia tri cua t = 6 d) Gia tri cua t = 7

Câu 15: Cho đoạn chương trình :

Var

i , s , t : integer;

Begin

s := 1; t := 1 ;

for i := 1 to 3 do

begin

s := 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 = -8

b) Gia tri cua t = 4 c) Gia tri cua t = -6d) Gia tri cua t = 8

Câu 16: Cho đoạn chương trình :

Var

i , k , n : integer;

Begin

k := 1; n := 1 ;

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 = 5 d) Gia tri cua k+1 = 6

Câu 17: 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 + ( i* i* i ) ;

writeln ( ‘ Gia tri cua s = ‘ , s ) ;

readln ;

End

= > Kết quả xuất trên màn hình :

a) Gia tri cua s = 9

b) Gia tri cua s = 10

c) Gia tri cua s = 11 d) Đáp án khác

Câu 18: 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 = 10; b = 15 Kết quả x và y lần lượt bằng bao nhiêu? (Đánh dấu vào đáp số đúng)

b) Cho a = 15; b = 10 Kết quả x và y lần lượt bằng bao nhiêu? (Đánh dấu vào đáp số đúng)