Lưu bài với đường dẫn và tên D:\ten hoc sinh_lop\Bai1.Pas Câu 2: 7 đ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[r]
(1)Ngày Soạn: 18/12/2012 Ngaøy daïy: 20/12/2012 Tuaàn: 17 Tieát: 33 KIỂM TRA THỰC HAØNH I Muïc tieâu: Kiến thức: Học sinh biết các kiến thức lập trình đơn giản với ngôn ngữ Pascal Kĩ năng: Viết chương trình với ngôn ngữ Pascal đơn giản Thái độ: Nghiêm túc quá trình kiểm tra, có ý thức phòng máy II Chuaå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 đã học tiết bài tập III Phöông phaùp: - GV giới thiệu, đưa yêu cầu, Hs thực hành cá nhân trực tiếp trên máy IV Tieán trình baøi daïy: Ổn định lớp: 8A1 : 8A2 : Noäi dung kieåm tra: Tạo Folder trên ổ đĩa D với thư mục D:\ten hoc sinh_lop Ví duï D:\Huy_lop8a1\bai1.Pas Câu 1: (3 điểm) Viết chương trình in màn hình dòng chữ “Toi la Turbo Pascal” Lưu bài với đường dẫn và tên D:\ten hoc sinh_lop\Bai1.Pas Câu 2: (7 điểm) Viết chương trình nhập hai số nguyên a và b khác từ bàn phím và in 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:\ten hoc sinh_lop\Bai2.Pas Đáp án thang điểm: Caâu 1: (3 ñieåm) Program Bai1; Uses Crt; Begin Clrscr; Writeln(‘Toi la Turbo Pascal’); End Caâu 2: Program Bai2; Uses Crt; Var a, b, tong: Integer; Begin Clrscr; Writeln(‘Nhap so a : ’); Readln(a); (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) (2) Writeln(‘Nhap so b : ’); Readln(b); If a < b Then Writeln(a,‘ ’,b) Else Writeln(b,‘ ’,a); Readln; End (0.5 ñieåm) (0.5 ñieåm) (1.5 ñieåm) (0.5 ñieåm) (0.5 ñieåm) Keát quaû baøi kieåm tra: Lớp Loại Gioûi Khaù TB Yeáu Keùm 8A1 8A2 * Nhaän Xeùt : * Bieän phaùp : (3)