Chưa biết trước số lần lặp B.[r]
(1)Phòng GD&ĐT
…… *****
đề thi học kì II năm 2010 - 2011 Môn: Tin học
Thời gian: 45phút I Trắc nghiệm: Chọn phơng án trả lời em cho
C©u 1: Lệnh lặp sau đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cuối> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>; C For <biến đếm>:= <giá trị cuối> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; C©u 2: Vịng lặp While <Điều kiện> <Câu lệnh>; vòng lặp:
A Chưa biết trước số lần lặp B Biết trước số lần lặp
C Biết trước số lần lặp giới hạn <=100 D Biết trước số lần lặp giới hạn >=100 C©u3: Cú pháp khai báo biến mảng Pascal là:
A var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; D var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; C©u 4: Phần thân chương trình bắt đầu bằng từ khóa:
A End B Begin C Uses D Var
C©u5: Sau thực đoạn chương trình sau, giá trị biến S bằng bao nhiêu: s:=1;
for i:=1 to s := s*i;
A.120 B 55 C 121 D 151
Câu 6: ĐÓ chạy chương trình Pascal ta dùng tổ hợp phím :
A) Ctrl + F7 B) Ctrl + F8 C) Ctrl + F9 D) Ctrl + F10 II Tự luận (7 điểm)
Bài 1: (2 điểm) in X vo cỏc ụ (Đúng Sai) cho phù hợp giải thích sao?
Bài 2 : (5 điểm) Viết chơng trình Pascal sử dụng câu lệnh While…do để tính tổng sau: A=
1 3+ 4+
1
3 5+ + n.(n+2)
(Với n số tự nhiên khác đợc nhập từ bàn phím) -
-Câu Đúng Sai Giải thích
(2)Đáp án kiểm tra học kỳ i năm 2010- 2011 tin học
I Trắc nghiệm: (3 điểm) Câu 1: 0,5 điểm
B
Câu 2: 0,5 ®iĨm A
C©u3: 0,5 ®iĨm D
C©u : 0,5 điểm B
Câu : 0,5 điểm A
Câu 6: 0,5 điểm C
II Tự luận (6 điểm) Bài 1: (2 điểm)
Câu Đúng Sai Giải thích
a) for i=1 to 10 writeln('A'); X ThiÕu dÊu “:” sau biÕn i 0,5®iĨm b) var X: Array[50 10] of integer; X ChØ số đầu lớn số cuối 0,5điểm
c) X:=10; while X=10 X := X+5; X 0,5®iĨm
d) if x>5 then a:=b; else m := n; X Thừ dấu ; trớc else 0,5điểm Bài 2: (5 điểm)
Program tinh_tong; Uses crt;
0,5 ®iĨm
Var
n, i: integer; A: real;
1 ®iĨm
Begin
Write(‘nhap n:’); readln(n); A:=0; i:=1;
1 ®iÓm
While i<=n Begin
A:=A+1/(i*(i+2)); i:=i+1 End;
1,5 ®iĨm
Write (‘tong can tim la:’,A:4:2); 0,5 ®iÓm
Readln End