Kiến thức: Vận dụng các kiến thức đã học về dãy số để viết chương trình 2.. Kỹ năng: Viết chương trình, sửa lỗi và chạy chương trình.[r]
(1)Tuaàn 34 Ngày soạn: /04/2014 KIỂM TRA THỰC HÀNH Tieát 67 Ngày dạy: /04/2014 I Muïc tieâu: Kiến thức: Vận dụng các kiến thức đã học dãy số để viết chương trình Kỹ năng: Viết chương trình, sửa lỗi và chạy chương trình Rèn kĩ đọc, hiểu các câu lệnh Thái độ: Có ý thức trung thực, tự giác laøm làm bài, II Chuẩn bị: Giáo viên: Photo đề kiểm tra Học sinh: Hệ thống lại kiến thức chương III Tiến trình: Ổn định lớp – Kiểm tra sỉ số: 8A1: .8A2: .8A3: Phát bài và theo dõi kiểm tra: Thu bài và dặn dỏ: Ôn lại các kiến thức đã học chuẩn bị ôn thi học kì IV Thống kê: Lớp – 10 TS % 6.5 – 7.9 TS % – 6.4 TS % 3.1 – 4.9 TS % 8A1 8A2 8A3 V Nhận xét bài làm học sinh – Rút kinh nghiệm: 2–3 TS % 0.1 – 1.9 TS % TS % Trn TB TS % (2) ĐỀ KIỂM TRA THỰC HÀNH ĐỀ 1: Câu 1: (5.0đ) Viết chương trình nhập vào dãy gồm N số nguyên (N<20) Tính tổng các phần tử dãy và in màn hình Câu 2: (5.0đ) Viết chương trình nhập vào dãy gồm N số nguyên (N<20) Tìm phần tử nhỏ dãy và in màn hình ĐỀ 2: Câu 1: (5.0đ) Viết chương trình nhập vào dãy gồm N số nguyên (N<20) Tính tổng các phần tử dãy và in màn hình Câu 2: (5.0đ) Viết chương trình nhập vào dãy gồm N số nguyên (N<20) Tìm phần tử lớn dãy và in màn hình ĐÁP ÁN Câu 1: - Khai báo đúng - Viết câu lệnh nhập số phần tử cho dãy - Viết câu lệnh nhập giá trị cho các phần tử dãy - Viết câu lệnh in màn hình các phần tử dãy - Viết câu lệnh tính tổng các phần tử dãy - Viết câu lệnh in màn hình tổng các phần tử dãy Program tinhtong; Uses crt; Var A:Array[1 20] of Integer; i, N, Tong: integer; Begin Clrscr; Write(‘Nhap vao so phan tu N = ‘); Readln(N); Write(‘Nhap gia tri cho cac phan tu:’); For i:=1 to N Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]); End; Writeln(‘Day so vua nhap la: ‘); For i:=1 to N Write(A[i]:4); Tong:=0; For i:=1 To N Do Tong:=Tong+A[i]; Writeln(‘Tong cua day la: ‘,Tong); Readln; End 0.5đ 0.5đ 1.0đ 1.0đ 1.5đ 0.5đ (3) Câu 2: - Khai báo đúng - Viết câu lệnh nhập số phần tử cho dãy - Viết câu lệnh nhập giá trị cho các phần tử dãy - Viết câu lệnh in màn hình các phần tử dãy - Viết câu lệnh tìm phần tử nhỏ (hoặc lớn nhất) dãy - Viết câu lệnh in màn hình phần tử nhỏ (hoặc lớn nhất)của dãy Program TimMin; Uses Crt; Var A:Array[1 20] of Integer; i, N, Min: integer; Begin Clrscr; Write(‘Nhap vao so phan tu N = ‘); Readln(N); Write(‘Nhap gia tri cho cac phan tu:’); For i:=1 to N Begin Write(‘A[‘,i,’]= ‘); Readln(A[i]); End; Writeln(‘Day so vua nhap la: ‘); For i:=1 to N Write(A[i]:4); Tongle:=A[1]; For i:=2 To N Do If Min>A[i] then Min:=A[i]; Writeln(‘So nho nhat cua day la: ‘,Min); Readln; End 0.5đ 0.5đ 1.0đ 1.0đ 1.5đ 0.5đ (4)