Đang tải... (xem toàn văn)
Lưu bài kiểm tra với đường dẫn D:\Tên học sinh_lớp\Cau_1.Pas Câu 2: 6 điểm Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không.. Lưu[r]
Tuần 30 Tiết: 58 Ngày soạn: 10/03/2018 Ngày dạy: 19/03/2018 BÀI KIỂM TRA TIẾT, SỐ I MỤC TIÊU ĐỀ KIỂM TRA: Kiến thức: Hiểu biết kiến thức cấu trúc lặp ngôn ngữ lập trình Pascal Kĩ năng: Thành thạo thao tác nhập, giải toán dựa thuật toán, sử dụng lệnh cú pháp cấu trúc lặp để giải toán cụ thể Thái độ: Nghiêm túc kiểm tra thực hành, có ý thức phịng máy II HÌNH THỨC KIỂM TRA: Kết hợp hai hình thức TL(100%) III ĐỀ KIỂM TRA: Thực yêu cầu sau: * Tạo Folder ổ đĩa D với thư mục D:\Tên học sinh_lớp * Ví dụ: D:\K’Wơh_lop8a1 Câu 1: (4 điểm) Viết chương trình tạo bảng nhân với bảng nhân nhập từ bàn phím Lưu kiểm tra với đường dẫn D:\Tên học sinh_lớp\Cau_1.Pas Câu 2: (6 điểm) Viết chương trình nhận biết số tự nhiên N nhập vào từ bàn phím có phải số nguyên tố hay không Lưu kiểm tra với đường dẫn D:\Tên học sinh_lớp\Cau_2.Pas IV ĐÁP ÁN (hướng dẫn chấm): Phần/câu Đáp án chi tiết Biểu điểm Phần tự luận: Câu 1: Câu 2: Program Tinh_tong; Uses crt; Var n, I : integer; BEGIN Clrscr; Write(‘Nhap so n = ’); Readln(n); Writeln; Writeln(‘Bang nhan ’,n); For i:= to 10 writeln(n,‘x’,i:2,‘=’,n*i:3); Readln; END Program SNT; Uses crt; Var n, i : integer; BEGIN Clrscr; Write(‘Nhap so n = ’); Readln(n); If n =5 Số lượng Tỷ lệ Điểm từ - 10 Số lượng Tỷ lệ Điểm Số lượng Tỷ lệ Điểm từ - Số lượng Tỷ lệ 8A1 8A2 V RÚT KINH NGHIỆM: Đáp án thang điểm: Câu 1: Câu 2: Program maxmin; Uses crt; Var A: array[1 30] of integer; i, n, max, min: integer; BEGIN Clrscr; Write(‘Nhap dai cho mang n= ’); Readln(n); Writeln(‘Nhap cac phan tu cho mang: ’); For i:= to n Beign Write(‘A[’,i,’]= ’); Readln(A[i]); End; max:= A[1]; min:= A[1]; For i:= to n Begin If max < A[i] then max:= A[i]; If > A[i] then min:= A[i]; End; Write(‘So lon nhat la max = ’,max); Write(‘So nho nhat la = ’,min); Readln; END Kết kiểm tra Loại Lớp Giỏi Khá TB Yếu (0.25điểm) (0.25điểm) (0.5điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.5điểm) (0.5điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) (0.25điểm) Kém 8A1 8A2 Nhận xét: Biện pháp: ... Đáp án thang điểm: Câu 1: Câu 2: Program maxmin; Uses crt; Var A: array[1 30] of integer; i, n, max, min: integer; BEGIN Clrscr; Write(‘Nhap dai cho mang n= ’); Readln(n);