Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn.. Chỉ ngôn ngữ lập trình Pascal mới có c[r]
Trang 1PHÒNG GD&ĐT QUẢNG TRẠCH Đấ̀ THI KIấ̉M TRA HỌC KÌ II
Năm học: 2011 - 2012
Thời gian: 45 phút (khụng kờ̉ giao đờ̀)
Họ và tờn:………
Lớp:………
Phần I(Trắc nghiệm)-khoanh trũn chữ cỏi đứng trước kết quả đỳng
Cõu 1 : Phỏt biểu nào sau đõy là đúng ? (1 đ)
A Cấu trúc lặp được sử dụng để chỉ thị cho mỏy tớnh thực hiện lặp lại một vài hoạt động nào đú cho đến khi một điều kiện nào đú được thoả món
B Chỉ ngụn ngữ lập trỡnh Pascal mới cú cỏc cõu lệnh lặp để thể hiện cấu trúc lặp
C Ngụn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng cõu lệnh for…do
Cõu 2: Lệnh lặp nào sau đõy là đúng? (1 đ)
A For <biến đếm>= <giỏ trị đầu> to <giỏ trị cuụớ> do <cõu lệnh>
B For <biến đếm>:= <giỏ trị đầu> to <giỏ trị cuụớ> do <cõu lệnh>
C For <biến đếm>:= <giỏ trị cuụớ> downto <giỏ trị đầu> do <cõu lệnh>
D For <biến đếm>: <giỏ trị cuụớ> downto <giỏ trị đầu> do <cõu lệnh>
Cõu 3: Cõu lệnh pascal nào sau đõy là hợp lệ? (1 đ)
A For i:=100 to 1 do writeln(‘A’);
B For i:=1.5 to 10.5 do writeln(‘A’);
C For i= 1 to 10 do writeln(‘A’);
D For i:= 1 to 10 do writeln(‘A’);
Cõu 4: Pascal sử dụng cõu lệnh lặp nào sau đõy để lặp với số lần chưa biết trước? (0,5 đ)
A For…do;
B While…do;
C If then;
D If…then…else;
Cõu 5: Cõu lệnh lặp while…do cú dạng đúng là: (1 đ)
A While <điều kiện> <cõu lệnh> do;
B While <cõu lệnh> <cõu lệnh> do;
C While do <điều kiện> <cõu lệnh>;
D While <điều kiện> do <cõu lệnh>;
Cõu 6:Chương trỡnh pascal sau sẽ in ra màn hỡnh nội dung gỡ? (1 đ)
Program vidu;
Var i: integer;
BEGIN
For i:=1 to 10 do
Writeln(‘Day la lan lap thu ‘,i);
Readln;
END.
A 1 cõu “Day la lan lap thu i”;
B 1 cõu “Day la lan lap thu ‘, i”;
C 10 “Day la lan lap thu ‘, i”;
D 10 cõu Day la lan lap thu i” với i theo thứ tự từ 1->10;
phần 2 tự luận (4 đ)
Viết chơng trình tính tổng của các số nguyên từ 10 đến 20
ĐỀ
Trang 2ĐÁP ÁN
I. Tr c nghi m ă ê
Học sinh chọn mỗi câu đúng được 1.0 điểm
II Tự luận
Var i, s: integer; 0,5 đ
Begin
S:=0; 0,5 đ
For i:=10 to 20 do 1,0 đ
S:=S+I; 1,0 đ
Wireln(‘tong can tim la’, s:5:2); 1,0 đ
Readln
End.