HK2_Tiết 61_TH 11-12

TUẦN 31:
Tiết 61: Ngày soạn: 29/03/2012
Ngày dạy: 02/04/2012

KIỂM TRA 1 TIẾT THỰC HÀNH
I. MỤC TIÊU
- HS hệ thống kiến thức lý thuyết để kết hợp vào bài thực hành.HS thực hiện viết chương trình sử dụng các câu lệnh đã học.
- HS có kĩ năng thực hiện các thao tác trên máy.
- HS có tính cần thận, phân tích bài toán và thực hiện nghiêm túc.
II. Chuẩn bị
1. Giáo viên: Đề kiểm tra
2. Học sinh: Ôn tập bài.
3: Ma trận đề
Nội dung kiểm tra
Cấp độ nhận thức
Tổng


Nhận biết
Thông hiểu
Vận dụng


Sử dụng lệnh lặp For …do, sử dụng lệnh lặp While …do.

1
5


1
5

Xử lý dãy số trong chương trình


1
5
1
5

Cộng
1
5

1
5
1
5

4. Đề bài:
* Viết chương trình nhập vào n số nguyên từ bàn phím. Sau đó in ra màn hình dãy số đó.
Chương trình:
Program songuyen;
Uses crt;
Var i,n: integer;
A: array[1..100] of integer;
Begin
Clrscr;
Write(‘Nhap vao do dai cua day so n = ‘); readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:=1 to n do
Begin
Write(‘Nhap phan tu thu ’,i,’=’); readln(a[i]);
End;
Writeln(‘Cac phan tu cua day so la:’);
For i:=1 to n do
Begin
Write(‘a[ ’,i,’] =’); writeln(a[i]);
End;
Readln
End.
a. Gõ chương trình trên vào máy. Dịch, sửa lỗi và chạy chương trình. Chạy thử với dữ liệu: Nhập n=5. Với a[1]=3; a[2]=8; a[3]=10;
a[4]=5; a[5]=4.
b. Với chương trình như trên. Hãy thêm các câu lệnh để in ra màn hình các phần tử là số chẵn.

Đáp án và biểu điểm:
Gõ chương trình, dịch, sửa lỗi, chạy với bộ dữ liệu cho trước. (5 đ).
(5đ)
Thêm đoạn chương trình vào phần cuối chương trình trong mục a.
Writeln(‘Cac phan tu la so chan: ‘);
For i:=1 to n do
If (a[i] mod 2)=0 then
Writeln(‘a[‘,i, ‘]=’,a[i]);
KIỂM TRA 1 TIẾT THỰC HÀNH TIN HỌC 8

* Viết chương trình nhập vào n số nguyên từ bàn phím. Sau đó in ra màn hình dãy số đó.
Chương trình:
Program songuyen;
Uses crt;
Var i,n: integer;
A: array[1..100] of integer;
Begin
Clrscr;
Write(‘Nhap vao do dai cua day so n = ‘); readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:=1 to n do
Begin
Write(‘Nhap phan tu thu ’,i,’=’); readln(a[i]);
End;
Writeln(‘Cac phan tu cua day so la:’);
For i:=1 to n do
Begin
Write(‘a[ ’,i,’] =’); writeln(a[i]);
End;
Readln
End.
a. Gõ chương trình trên vào máy. Dịch, sửa lỗi và chạy chương trình. Chạy thử với dữ liệu: Nhập n=5. Với a[1]=3; a[2]=8; a[3]=10;
a[4]=5; a[5]=4.
b. Với chương trình như trên. Hãy thêm các câu lệnh để in ra màn hình các phần tử là số chẵn.