PHẦN TRẮC NGHIỆM 3đ Hóy chọn đỏp ỏn đỳng nhất Mỗi cõu đỳng 0.5đ Cõu 1: Em hiểu cõu lệnh lặp theo nghĩa nào dưới đõy?. Một lệnh thay cho nhiều lệnh ba. Vỡ cõu lệnh đó cú tờn là lệnh lặp c
Trang 1Trờng THCS PHúC THịNH
Họ tên HS:
Lớp:
bài kiểm tra học kỳ II Môn: Tin học 8 - 9
Thời gian: 45 phút
(Không kể thời gian giao đề)
(Học sinh làm bài trực tiếp vào tờ giấy thi)
Đề bài:
A PHẦN TRẮC NGHIỆM (3đ) Hóy chọn đỏp ỏn đỳng nhất (Mỗi cõu đỳng 0.5đ)
Cõu 1: Em hiểu cõu lệnh lặp theo nghĩa nào dưới đõy?
a Một lệnh thay cho nhiều lệnh b Vỡ cõu lệnh đó cú tờn là lệnh lặp
c Cỏc cõu lệnh được viết lặp đi lặp lai nhiều lần d Cả a, b, c đều sai
Cõu 2: 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 3 Vũng lặp While <Điều kiện> do <Cõu lệnh>; là vũng lặp gỡ?
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 Cả a và c đề đỳng
Cõu 4 Cho đoạn chương trỡnh sau:
I:=1;
While i<=5 do
Begin tong:= tong + I; I:= I + 1; End;
Sau đoạn chương trỡnh trờn em hóy cho biết biến “tong” cú giỏ trị bằng bao nhiờu?
Cõu 5: Phõ̀n thõn chương trình bắt đõ̀u bằng từ khóa nào?
Cõu 6: Để khai bỏo biến mảng a gồm 10 phần tử , mỗi phần tử cú kiểu dữ liệu là real
ta cần khai bỏo như thế nào?
a var a: array[10] of real; b var a: array[1;10] of real;
c var a: array[1:10]: of real; d var a: array[1 10] of real;
B PHẦN TỰ LUẬN (7đ)
Trang 2C©u 1: (3®) Tìm lỗi và 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:
Tính Tổng Các Số Tự Nhiên Từ 100 Đến 1000 (Vòng lặp với số lần lặp chưa biết).
Program tinh_tong;
Var i S: Integer;
Begin
i: 100;
S = 0;
While i > 1000 do
S:= S + i i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End
Bài Làm
C©u 2 (4®) Viết chương trình nhập vào từ bàn phím mảng N các số nguyên Ghi ra màn hình số nhỏ nhất và số lớn nhất? (Yêu cầu Học sinh sử dụng biến mảng).
Bài Làm
Trang 3Đáp án+ Thang điểm
Phần I: Trắc nghiệm
Phần II: Tự luận
Cõu 1: ( 2 điểm)
Program tinh_tong;
Var i, S: Integer; (Thờn dấu phẩy (,)vào giữa I và s).
Begin
i:= 100; (Thờm dấy bằng (=) vào sau i:).
S: = 0; (Thờm dấu (:) vào sau S).
While i <=1000 do (Sửa lại điều kiện của cõu lệnh)
S:= S + i; (Thờm dấu chấm phẩy vào cuối cõu lệnh) i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln;
End
Câu 2: (4 điểm)
Chương trỡnh cú thể được viết như sau:
Program MaxMin;
uses crt;
Var i, n, Max, Min: integer;
A: array[1 100] of integer;
Phần thõn chương trỡnh sẽ tương tự dưới đõy:
Begin
clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do
Begin
write('a[',i,']='); readln(a[i]);
End;
Max:=a[1]; Min:=a[1];
for i:=2 to n do
Begin
if Max<a[i] then Max:=a[i];
if Min>a[i] then Min:=a[i]
end;
write('So lon nhat la Max = ',Max);
write('; So nho nhat la Min = ',Min);
readln;
End.
Mỗi ý đúng 0,5đ
Câu 1: (2 điểm) 0,5 điểm
0,5 điểm 0,5 điểm 1.0 điểm 0,5 điểm
Câu 2: (4 điểm)
- Phần khai bỏo
1,0 điểm.
- Phần nhập số nguyờn:
1,0 điểm.
- Phần tỡm Max, Min cỏc phần tử của mảng:
1,0 điểm.
- Phần in ra cỏc phần tử Max,Min
1,0 điểm.