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]
(1)SỞ GIÁO DỤC VAØ ĐAØO TẠO NAM ĐỊNH THPT NGUYỄN TRƯỜNG THUÝ
Họ tên:………. Lớp:……… ĐỀ KIỂM TRA HỌC KÌ I – KHỐI 11 – ĐỀ 2
( Học sinh chọn câu điền vào )
Câu 1 Câu 2 Câu 4 Câu 5 Câu 6 Câu 7 Câu 8 Câu 9 Câu 10
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, mặt cú pháp, câu lệnh sau với cấu trúc vòng lặp For có lệnh con?
a For i:=1 to 100 a:= a – 1;
c For i:=1 to 100 do; a:= a – 1; b For i:=1 to 100 a:= a – 1d For i:=1; to 100 a:= a – 1; Câu 2: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì?
T:= 0;
For i:= to N
If (i mod = 0) or (i mod = 0) then T:= T + i;
a Tính tổng số chia hết cho phạm vi từ đến N b Tính tổng ước thực N
c Tính tổng số chia hết cho phạm vi từ đến N d Tìm ước số số N
Câu 3: Cho đoạn trình: I:=1; s:=0; While I <= n begin s:= s+1/I; i:=i+1; end; Hãy thay đoạn trình đ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 x 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 thực số nguyên N, ta cần dùng đoạn chương trình đoạn sau: (ước thực ước mà khơng kể nó)
a T:= 1;
For i:= to N div
If N mode i = then T:= T + i; c T:= 0;
For i:= to N div
If N mode i = then T:= T + i;
b T:= 1;
For i:= to N div If Ndiv i = then T:= T + i; d T:= 0;
For i:= to N div If N div i = then T:= T + i;
Caâu 6:
Trong NNLT Pascal cho đoạn chương trình sau, kết hiển thị hình? i:=1; s:=0;
while i<10 begin
(2)S:=S+2; i:=i+1; End; Write(S);
A 10 B 14 C 18 D 20
Câu 7: Phát biểu sau lấy làm biểu thức điều kiện cấu trúc rẽ nhánh ? A. A + B
B. A > B C. N mod 100 D. “A nho hon B”
Caâu 8: Cho tiêu chuẩn xếp loại sau:
Giỏi: DTB từ 8.0 trở lên Khá: 6.5 đến 8.0
TB: DTB từ 5.0 đến 6.5 Yếu kém: trường hợp lại Hãy chọn cấu trúc rẽ nhánh KHƠNG xá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’;
Caâu 9: Biểu diễn biểu thức 1 xy
x
NNLT Pascal đúng:
A.(xy - 1)/(x - 1) B (x*y - 1)/(x - 1) C x*y - 1/x - D (x*y - 1)/x - Caâu 10: Cho biết kết trả biểu thức sau: (99 div 9) mod + (13 div 3) div 2
a 10 b c d
Câu 11: Giả sử a:= 5.5; b := a + 99; Phải khai báo b biến kiểu : 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 := ; c := b + ; d := c + 2.5 ;
Writeln(‘ c = ‘ , c , d);
(3)readln; End
= > Kết xuất hình : a) c = 1867
b) c = 111.35000000000E+01
c) c = 1811 d) Cả a ,b , c sai Câu 13: Cho đoạn chương trình :
Var
x , y , z , t : integer; Begin
x := ; y := ; z := ; t := ; 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 xuất hình : a) Gia tri cua t =
b) Gia tri cua t = c) Gia tri cua t = d) Gia tri cua t = Câu 14: Cho đoạn chương trình :
Var
x , y , z , t : integer; Begin
x := ; y := ; z := ; t := ;
while (x>y) and (z>t) begin t:=x-y+t; t:=t+1; end ; writeln ( ‘ Gia tri cua t = ‘ , t ) ;
readln ; End
= > Kết xuất hình : a) Gia tri cua t =
b) Gia tri cua t =
c) Gia tri cua t = d) Gia tri cua t = Câu 15: Cho đoạn chương trình :
Var
i , s , t : integer; Begin
s := 1; t := ;
for i := to begin
s := s + t ; t := – * t ; end ;
writeln ( ‘ Gia tri cua t = ‘ , t ) ; readln ;
End
= > Kết xuất hình : a) Gia tri cua t = -8
b) Gia tri cua t = c) Gia tri cua t = -6d) Gia tri cua t = Câu 16: Cho đoạn chương trình :
(4)Var
i , k , n : integer; Begin
k := 1; n := ; for i := to begin
k := k + i ; n := n + ; end ;
writeln ( ‘ Gia tri cua k + = ‘ , k + ) ; readln ;
End
= > Kết xuất hình : a) Gia tri cua k+1 =
b) Gia tri cua k+1 =
c) Gia tri cua k+1 = d) Gia tri cua k+1 = Câu 17: Cho đoạn chương trình :
Var
i , s , n : integer; Begin
s := ; n := ;
for i := to n s := s + ( i* i* i ) ; writeln ( ‘ Gia tri cua s = ‘ , s ) ;
readln ; End
= > Kết xuất hình : a) Gia tri cua s =
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 < > 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 x y bao nhiêu? (Đánh dấu vào đáp số đúng) A 25 -5 B 10 2 C 12 8 D Khơng có kết quả b) Cho a = 15; b = 10 Kết x y bao nhiêu? (Đánh dấu vào đáp số đúng)
A 25 -5 B 15 5 C 12 8 D Khơng có kết quả