Đ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ôí> 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ôí> 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 If a=5 then a=a+1; else a=a+2; D If a=5 then a:=a+1else a:=a+2;
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: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến
đếm i phải được khai báo là kiểu dữ liệu gì?
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình?
A Giá trị biến đếm
B Viết số 1 rồi viết số 3.5
C Chỉ viết số 3.5 mà thôi
D Không thực hiện được vì giá trị cuối không phải là số nguyên
Câu 7: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer;
Câu 8: 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 3II/ Điền X vào các ô sao cho phù hợp và giải thích vì sao? (1 điểm)
III/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho
đúng: (2 điểm)
Program Tinh tong;
………
………
Uses crt; ………
………
Var N; i: Integer; ………
………
S: Longint; BEGIN Clrscr; ………
………
Write(‘Nhap vao so N =’ ); Readln(N); S:=0 For i =1 to N do S:=S+i ; ………
………
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s); Readln ………
………
END .
IV/ Viết chương trình giải quyết bài toán: (3 điểm) Viết chương trình tính tổng: 1 1 1 1 1
2 3 4 S n = + + + + + Trong đó n là số nguyên nhập từ bàn phím
a) if a>b then max:=a; else max:=b;
b) if a>b then min:=b else min:=a;
c) for i:=1 to 50 do x:=x+1;
d) for i:=1.5 to 10 do m:=m + 1;
Trang 4
-
Trang 5-Đá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/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho
đúng: (2 điểm)
Program Tinh tong;
………
………
Uses crt; ………
………
Var N; i: Integer;
………
………
S: Longint; BEGIN Clrscr; ………
………
Write(‘Nhap vao so N =’ ); Readln(N); S:=0 For i =1 to N do S:=S+i ;
………
………
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s); Readln ………
………
END. Program Tinh_tong;
Var N, i: Integer;
S:=0; For i: =1 to N do S:=S+i ; ………
………
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);
Trang 6S:= 0;
For i:= 1 to n do S: = S + 1/i;
Writeln(‘Tong can tim la: ‘, S:6:2);
Readln
End
-