HK2Tiet 61TH 1112
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (71.39 KB, 3 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>TUẦN 31:</b>
<b>Tiết 61: </b> <b>Ngày soạn: 29/03/2012</b>
<b>Ngày dạy: 02/04/2012</b>
<b>KIỂM TRA 1 TIẾT THỰC HÀNH </b>
<b>I. MỤC TIÊU</b>
- 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 tốn và thực hiện nghiêm túc.
<b>II. Chuẩn bị</b>
<b>1. Giáo viên: Đề kiểm tra</b>
<b>2. Học sinh: Ôn tập bài.</b>
3: Ma trận đề
<b>Nội dung kiểm tra</b>
<b>Cấp độ nhận thức</b>
<b>Tổng</b>
<b>Nhận biết</b> <b>Thông hiểu Vận dụng</b>
Sử dụng lệnh lặp For …do,
sử dụng lệnh lặp While …do.
1
5
<b>1</b>
5
Xử lý dãy số trong chương
trình
1
5
<b>1</b>
<b> 5</b>
<b>Cộng</b> <b>1</b> <b><sub>5</sub></b> <b>1<sub> 5</sub></b> <b>1<sub> 5</sub></b>
<b>4. Đề bài:</b>
* 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ố đó.
<b>Chương trình:</b>
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
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
Writeln(‘Cac phan tu cua day so la:’);
For i:=1 to n do
Begin
Write(‘a[ ’,i,’] =’); writeln(a[i]);
End;
Readln
End.
<b>a.</b> 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>b.</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.
<b>Đáp án và biểu điểm:</b>
a. Gõ chương trình, dịch, sửa lỗi, chạy với bộ dữ liệu cho trước. (5 đ).
b. (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
</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>
<b>KIỂM TRA 1 TIẾT THỰC HÀNH TIN HỌC 8</b>
* Viết chương trình nhập vào n số ngun từ bàn phím. Sau đó in ra màn
hình dãy số đó.
<b>Chương trình:</b>
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.
<b>a.</b> 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.
</div>
<!--links-->
