Trường THCS Giục Tượng
Họ và tên: ……………….
Lớp: 8
Điểm
Kiểm tra học kì II
Môn: Tin học
Thời gian: 45 phút
Lời phê của giáo viên
Đề 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:
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
Trường THCS Giục Tượng
Họ và tên: ……………….
Lớp: 8
Điểm
Kiểm tra học kì II
Môn: Tin học
Thời gian: 45 phút
Lời phê của giáo viên
Đề 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:
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
...........................................................................................................................
ĐÁP ÁN VÀ THANG ĐIỂM
Câ
Đề 1
u
a) a: array [ 9..15] of integer;
1 b) a : array [ 1..10] of integer;
2
3
4
For i : = 1 to 20 do
Writeln (A[ i]);
Kết quả in trên màn hình là: 120
Program so_so_chan;
Var A: array [ 1..100] of integer;
Dem, i : integer;
Begin
Write (‘do dai cua day so n =’);
Readln (n);
Writeln (‘ cac phan tu cua day
so:’);
For i: =1 to n do
Begin
Writeln(‘a[‘,i,’] = ‘);Readln
(a[i]);
End;
Dem: = 0;
For i: =1 to n do
If a[i] mod 2 = 0 then dem: =
dem + 1;
Writeln(‘co’,dem,’so chan’);
Readln;
End.
Đề 2
a) a: array [ 1.. 99] of integer
b) a : array [ 1..100] of real;
For i : = 1 to 30 do
Writeln (a[ i]);
Kết quả in trên màn hình là : 15
Program so_so_le;
Var A: array [ 1..100] of integer;
Dem, i : integer;
Begin
Write (‘do dai cua day so n =’);
Readln (n);
Writeln (‘ cac phan tu cua day
so:’);
For i: =1 to n do
Begin
Writeln(‘a[‘,i,’] = ‘);Readln (a[i]);
End;
Dem: = 0;
For i: =1 to n do
If a[i] mod 2 < >0 then dem: =
dem + 1;
Writeln(‘co’,dem,’so le’);
Readln;
End.
Điểm
1đ
1đ
0,75đ
0,75đ
1,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ
0,5đ