Tuan 18 - tiet 33 - tin 8 - 2013 - 2014

KIỂM TRA THỰC HÀNH

I. Mục tiêu:
1. Kiến thức: Học sinh biết được các kiến thức cơ bản nhất về lập trình đơn giản với ngôn ngữ Pascal.
2. Kĩ năng: Viết được một chương trình với ngôn ngữ Pascal đơn giản.
3. Thái độ: Nghiêm túc trong quá trình kiểm tra, có ý thức trong phòng máy.
II. Chuẩn bị:
- Gv: Đề kiểm tra, giáo án, phòng máy.
- Hs: Học bài, chuẩn bị các nội dung đã được học trong tiết bài tập.
III. Phương pháp:
- Gv giới thiệu, đưa ra yêu cầu. Hs thực hành cá nhân trực tiếp trên máy.
IV. Tiến trình bài dạy:
Ổn định lớp:
8A1 :................................................................................................................
8A2 :................................................................................................................
2. Nội dung kiểm tra:
Tạo một Folder trên ổ đĩa với thư mục D: en hoc sinh_lop.
Câu 1: (2 điểm) Viết chương trình in ra màn hình dòng chữ “Truong THCS Da Long. Ten toi la Turbo Pascal”. Lưu bài với đường dẫn và tên D: en hoc sinh_lopBai1.Pas
Câu 2: (4 điểm) Viết chương trình tính diện tích hình chữ nhật, với hai cạnh a và b được nhập từ bàn phím. Lưu bài với đường dẫn và tên D: en hoc sinh_lopBai2.Pas
Câu 3: (4 điểm) Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in ra màn hình hai số đó theo thứ tự tăng dần. Lưu bài với đường dẫn và tên D: en hoc sinh_lopBai3.Pas
3. Đáp án thang điểm:
Câu 1:
Khai báo
Program Bai1;
Uses Crt;
0.25đ
0.25đ

Thân chương trình
Begin
Clrscr;
Writeln(‘Truong THCS Da Long. Ten toi la Turbo Pascal’);
Readln
End.
0.25đ
0.25đ
0.5đ
0.25đ
0.25đ


Câu 2:
Khai báo
Program Bai2;
Uses Crt;
Var a, b, S: Integer;
0.25đ
0.25đ
0.5đ

Thân chương trình
Begin
Clrscr;
Writeln(‘Nhap so a : ’);
Readln(a);
Writeln(‘Nhap so b : ’);
Readln(b);
S := 0;
S := a*b;
Writeln(‘Dien tich hinh chu nhat S= ’,S);
Readln;
End.
0.25đ
0.25đ
0.25đ
0.25đ
0.25đ
0.25đ
0.25đ
0.5đ
0.25đ
0.25đ
0.25đ


Câu 3:
Khai báo
Program Bai3;
Uses Crt;
Var a, b, tong: Integer;
0.25đ
0.25đ
0.5đ

Thân chương trình
Begin
Clrscr;
Writeln(‘Nhap so a : ’);
Readln(a);
Writeln(‘Nhap so b : ’);
Readln(b);
If a < b Then Writeln(a,‘ ’,b) Else Writeln(b,‘ ’,a);
Readln;
End.
0.25đ
0.25đ
0.25đ
0.25đ
0.25đ
0.25đ
1đ
0.25đ
0.25đ


4. Kết quả bài kiểm tra:

Loại
Lớp
Giỏi
Khá
TB
Yếu
Kém

8A1






8A2







* Nhận Xét:




* Biện pháp: