Trường THCS Giục Tượng Kiểm tra học kì IIHọ và tên: ………... Trường THCS Giục Tượng Kiểm tra học kì IIHọ và tên: ……….
Trang 1Trường THCS Giục Tượng Kiểm tra học kì II
Họ và tên: ……… Môn: Tin học Lớp: 8 Thời gian: 45 phút
Đề bài:
ĐỀ 1:
Câu 1 (2điểm)
Khai báo các biến mảng sau đây cho đúng:
a) a: array [ 9, 15] of integer;
b) a : array [ 10 1] of integer;
Câu 2(1,5đ)
Viết đoạn lệnh cần thiết khi muốn nhập dữ liệu cho mảng X gồm
20 phần tử từ bàn phím
Câu 3(1,5đ) Cho s; I là biến nguyên, khi chạy chương trình s : = 1; for i : = 1 to 5 do s : = s*i ; Writeln (s); Kết quả in trên màn hình là bao nhiêu? Câu 4(5đ) Viết chương trình nhập n số tự nhiên xuất ra màn hình số chẵn Bài làm:
Trang 2
Trường THCS Giục Tượng Kiểm tra học kì II
Họ và tên: ……… Môn: Tin học Lớp: 8 Thời gian: 45 phút
Đề bài:
ĐỀ 2:
Câu 1(2điểm)
Khai báo các biến mảng sau đây cho đúng:
a) a: array [ 1: 99] of integer;
b) a : array [ 1…100] of real;
Câu 2(1,5đ)
Viết đoạn lệnh cần thiết khi muốn nhập dữ liệu cho mảng X gồm
30 phần tử từ bàn phím
Câu 3(1,5đ)
Cho s; i là biến nguyên, khi chạy chương trình
s : = 0;
for i : = 1 to 5 do s : = s + i ;
Writeln (s);
Kết quả in trên màn hình là bao nhiêu?
Câu 4(5đ)
Viết chương trình nhập n số tự nhiên xuất ra màn hình số lẻ.
Bài làm:
Trang 3
ĐÁP ÁN VÀ THANG ĐIỂM
Câ
u
1
a) a: array [ 9 15] of integer;
b) a : array [ 1 10] of integer;
a) a: array [ 1 99] of integer b) a : array [ 1 100] of real; 1đ 1đ
2 For i : = 1 to 20 doWriteln (A[ i]); For i : = 1 to 30 doWriteln (a[ i]); 0,75đ
0,75đ
4
Program so_so_chan;
Var A: array [ 1 100] of integer;
Dem, i : integer;
Program so_so_le;
Var A: array [ 1 100] of integer;
Dem, i : integer;
0,5đ
Begin
Write (‘do dai cua day so n =’);
Readln (n);
Begin Write (‘do dai cua day so n =’);
Readln (n);
0,5đ
Writeln (‘ cac phan tu cua day
so:’);
Writeln (‘ cac phan tu cua day
Begin
Writeln(‘a[‘,i,’] = ‘);Readln
(a[i]);
Begin Writeln(‘a[‘,i,’] = ‘);Readln (a[i]); 0,5đ
End;
Dem: = 0;
End;
If a[i] mod 2 = 0 then dem: =
dem + 1;
If a[i] mod 2 < >0 then dem: =
Readln;
End
Readln;