de thi tin 8 hoc ky 2 (hay)

Trường THCS Đinh Tiên Hoàng

Lớp: 8/…

Họ và tên:………

Kiểm Tra HK2 (Đề A) Môn : Tin học

Thời gian : 45’

Điểm TH: Điểm LT: Điểm Thi: PHẦN I : LÀM TRÊN GIẤY (Thang điểm 10 – mỗi câu 1 đ)

Câu 1 : Lệnh Read dùng để làm gì ?

a/ Nhập dữ liệu từ bàn phím

b/ Xuất dữ liệu ra màn hình

c/ Xóa màn hình d/ cả a, b, c đều sai

Cho đoạn chương trình sau :

Program dct1;

Var x : Integer;

y: real;

z: Char;

Begin

Clrscr;

x:= 10; y:= 5;

x:= x + y;

write(‘ x + y =’, x+y);

Readln;

End

Dùng đoạn chương trình trên để trả lời các câu hỏi sau:

Câu 2 : Trong đoạn khai báo trên ta đã khai báo bao nhiêu biến ?

a/ 1 biến b/ 2 biến c/ 3 biến d/ Cả a, b, c đều sai

Câu 3 : Trong đoạn khai báo trên biến y mang kiểu dữ liệu gì ?

Câu 4 : Trong đoạn chương trình trên biến x có giá trị là bao nhiêu ?

Câu 5 : Khi chạy chương trình kết quả hiển thị ra màn hình của đoạn chương trình trên là:

a/ x + y =15 b/ x + y = 20 c/ x + y = 25 d/ Cả a, b, c đều sai

Câu 6 : Trong nội dung tin 8 ở học kỳ 2, ta đã học được bao nhiêu vòng lặp ?

Câu 7 : For là loại vòng lặp :

a/ Có số lần lặp xác định b/ Có số lần lặp không xác định

b/ Vừa xác định vừa không xác định d/ Cả a, b, c đều đúng

Câu 8 : For a : = 1 to 200 7 do

Tong : = Tong +1 ; Kết thúc vòng lặp giá trị của biến Tong là

Câu 9 : Chức năng của hàm MOD dùng để làm gì ?

a/ Lấy phân dư của phép chia b/ Lấy phần nguyên của phép chia a/ Cả a, b đều sai

Câu 10 : Điền vào chỗ trống sao cho thích hợp IF (a mod 2 = 0) Then write(‘a ………’);

PHẦN II : LÀM TRÊN MÁY ( Thang điểm 10)

Viết chương trình tính tổng các số chẳn lớn hơn 0 và bé hơn hoặc bằng n , Với n là số tự nhiên được nhập từ bàn phím

ĐÁP ÁN VÀ BIỂU ĐIỂM

PHẦN I : LÀM TRÊN GIẤY (Thang điểm 10)

- Mỗi câu 1 điểm

Đáp án a c b a b b a c a a là số chẳn hoặc a chia hết cho 2

hoặc a là bội của 2

PHẦN II : LÀM TRÊN MÁY ( Thang điểm 10)

- Viết đủ cấu trúc cơ bản của một chương trình được 4 đ

Program tenchuongtrinh; 0,5đ

Khai báo biến 0,5đ

………

- 6 điểm còn lại được chia cho các ý nhỏ sau

Program tenchuongtrinh;

Uses crt;

Var

N,I: Integer;

Tong: LongInt;

Begin

Clrscr;

Write(‘Tong cac so chan tu 1 den ‘, n ,’ la’, Tong); (1đ) Readln;

End