Điểm Lời phê của thầy cô giáo I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: 4 điểm Câu 1: Lệnh lặp nào sau đây là đúng?. Chưa biết trước số lần lặp BA. Biết trước số lần lặ
Trang 1MA TRẬN ĐỀ KIỂM TRA
Mức độ
0,5
2
0,5
0,5
4
2
3
2,5
0,5
1
3
0,5
2
4
2
6
6
14
10
Trang 2Điểm Lời phê của thầy cô giáo
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
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âu 3: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:
Câu 4: 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:=0;
for i:=1 to 5 do s := s+i;
Câu 5: Dấu hiệu kết thúc chương trình pascal là:
Câu 6: 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>] of <kiểu dữ liệu >; D.var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu dữ liệu >;
Câu 7: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực
hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
Trường : THCS Trương Quang Trọng
Lớp :
Tên :
ĐỀ THI HỌC KỲ II
Môn Tin học lớp 8
Thời gian: 60 phút
Trang 3Câu 8: Chọn khai báo hợp lệ:
II/ Điền X vào các ô sao cho phù hợp và giải thích vì sao? (1 điểm)
III/ Sắp xếp các dòng sau thành một chương trình tính tổng 100 số tự nhiên đầu tiên
khác 0 hoàn chỉnh (2 điểm)
o var i: integer; S: longint;
o writeln('Tong cua 100 so tu nhien dau tien khac 0 S = ', S);
o program Tinh_tong;
o S:= 0;
o I := 1;
o end.
o begin
o while i <=100 do
o I:= i+1;
o S:= S+i;
o readln;
o begin
o end;
Câu 3 : (3 điểm) Viết chương trình tính tổng:
1
2 3 4 S n Trong đó n là số nguyên nhập từ bàn phím
-
-Câu Đúng Sai Giải thích a) for i=1 to 10 do writeln('A'); b) var X: Array[5 10.5] Of Real; c) X:=10; while X=10 do X = X+5; d) if x>5 then a:=b; else m := n;
Trang 4
Đáp án
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
II/ Điền X vào các ô sao cho phù hợp và giải thích vì sao? (1 điểm)
III/ Sắp xếp các dòng sau thành một chương trình tính tổng 100 số tự nhiên đầu tiên khác 0 hoàn chỉnh (2 điểm)
o program Tinh_tong;
o var i: integer; S: longint;
o begin
o S:= 0;
o i := 1;
o while i <=100 do
o begin
o i:= i+1;
o S:= S+i;
o end;
o writeln('Tong cua 100 so tu nhien dau tien khac 0 la: S = ', S);
o readln;
o end.
IV/ Viết chương trình giải quyết bài toán: (3 điểm)
Program Tong_Nghich_Dao;
Uses crt;
Var S: real;
n, i: integer;
Begin
Clrscr;
Write(‘Nhap so n = ‘); Readln(n);
S:= 0;
For i:= 1 to n do S: = S + 1/i;
Writeln(‘Tong can tim la: ‘, S:6:2);
Readln
End
-