Chưa biết trước số lần lặp B.[r]
Trang 1Phòng GD&ĐT ……
………
…… *****
đề thi học kì II năm 2010 - 2011
Môn: Tin học 8
Thời gian: 45phút
I Trắc nghiệm: Chọn phơng án trả lời em cho là đúng
Câu 1: Lệnh lặp nào sau đõy là đỳng?
A For <biến đếm>= <giỏ trị đầu> to <giỏ trị cuối> do <cõu lệnh>;
B For <biến đếm>:= <giỏ trị đầu> to <giỏ trị cuối> do <cõu lệnh>;
C For <biến đếm>:= <giỏ trị cuối> to <giỏ trị đầu> do <cõu lệnh>;
D For <biến đếm>: <giỏ trị đầu> to <cõu lệnh> do <giỏ trị cuối>;
Câu 2: Vũng lặp While <Điều kiện> do <Cõu lệnh>; là 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 nhưng giới hạn là <=100 D Biết trước số lần lặp nhưng giới hạn là >=100
Câu3: Cỳ phỏp khai bỏo biến mảng trong Pascal là:
A var <Tờn mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu >;
B var <Tờn mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu dữ liệu >;
C var <Tờn mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu dữ liệu >;
D var <Tờn mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu >;
Câu 4: Phần thõn chương trình bắt đầu bằng từ khóa:
Câu5: Sau khi thực hiện đoạn chương trình sau, giỏ trị của biến S bằng bao nhiờu:
s:=1;
for i:=1 to 5 do s := s*i;
Cõu 6: Để chạy chương trình trong 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) Điền X vào cỏc ụ (Đúng hoặc Sai) sao cho phự hợp và giải thớch vỡ 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
1 3+
1
2 4+
1
3 5+ .+
1
n (n+2) (Với n là số tự nhiên khác 0 đợc nhập từ bàn phím)
-
a) for i=1 to 10 do writeln('A');
b) var X: Array[50 10] of integer;
c) X:=10; while X=10 do X := X+5;
d) if x>5 then a:=b; else m := n;
Trang 2§¸p ¸n kiÓm tra häc kú i n¨m 2010- 2011
tin häc 8
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 4 : 0,5 ®iÓm
B
C©u 5 : 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)
a) for i=1 to 10 do 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 h¬n chØ sè cuèi 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 do
Begin
A:=A+1/(i*(i+2)); i:=i+1
End;
1,5 ®iÓm
Readln
End
0,5 ®iÓm