GV: Phaïm Taán Phaùt Ngày soạn: Ngaøy daïy:.. Kiểm tra 1 tiết thực hành.[r]
(1)Trường THCS Đoàn Giỏi-Năm học: 2009-2010 Tuaàn 67 Tieát: 34 GV: Phaïm Taán Phaùt Ngày soạn: Ngaøy daïy: Kiểm tra tiết (thực hành) I./ Muïc ñích yeâu caàu: - Đánh giá quá trình vận dụng kiến thức các bài 6,7,8 ,9 vào giải các bài toán đơn giản II./ Ma trận kề: Về kiến thức Về kỹ x x Câu Biết Hiểu Vận dụng * Ma trận kề trên đánh giá qua các mức độ: -Mức độ biết: điểm -Mức độ hiểu: điểm -Mức độ vận dụng: điểm IV./ Nội dung đề kiểm tra: x x x x ĐỀ KIỂM TRA THỰC HÀNH MÔN TIN HỌC Viết chương trình giải các vấn đề sau: a./ Lưu chương trình đúng tên và nơi qui định (1 điểm): D:\LOP81\KT1T_Maso.pas b./ Khai báo mảng tên A có phần tử có kiểu số nguyên (2 điểm) c./ Khai báo biến i, Max, Min, S có kiểu số nguyên (1 điểm) d./ Viết chương trình nhập mảng A có phần tử có kiểu nguyên (2 điểm) e./ Viết chương trình xử lý giá trị lớn nhất, nhỏ và in giá trị lớn nhất, nhỏ cùa mảng A (2 điểm) f./ Viết chương trình (2 điểm) + Đề 1: in lên màn hình mảng A + Đề 2: tính tổng các phần tử mảng A + Đề 3: tính tổng các phần tử chẳn mảng A + Đề 4: tính tổng các phần tử lẻ mảng A V./ Đáp án và thang điểm phần -Hs lưu đúng cho 1điểm: (D:\LOP81\KT1T_Maso.pas) -Hs viết chương trình đúng chấm theo đáp án chi tiết đây Đề Nội dung đáp áp a./ Lưu đúng đường dẫn qui định: D:\LOP81\KT1T_Maso.pas b./ Khai báo mảng A có phần tử có kiểu nguyên: Var A:array[1 5] of integer; c./ Khai báo biến i, Max, Min, S có kiểu số nguyên Var i, Max, Min, S:integer; chung d./ Viết chương trình nhập mảng A có phần tử nguyên Write(‘Nhap cac phan tu nguyen:’); For i:=1 to begin write(‘A[‘,i,’]=’); readln(A[i]); end; e./ Viết chương trình xử lý giá trị lớn nhất, nhỏ và in giá trị lớn , nhỏ Max:=A[1]; Min:=A[1]; For i:=1 to Begin Trang Lop8.net Điểm điểm điểm điểm điểm điểm (2) Trường THCS Đoàn Giỏi-Năm học: 2009-2010 GV: Phaïm Taán Phaùt if max<A[i] then Max:=A[i]; if Min>A[i] then Min:=A[i]; end; Writeln(‘Gia tri lon nhat la:’, Max); Writeln(‘Gia tri nho nhat la:’, Min); f./ Viết chương trình Writeln(‘Cac phan tu cua mang A la:’); For i:=1 to write(A[i],’; ‘); S:=0; For i:=1 to S:=A+A[i]; Writeln(‘Tong cac phan tu cua mang A la:’, S); S:=0; For i:=1 to if A[i] mod 2=0 then S:=A+A[i]; Writeln(‘Tong cac phan tu chan cua mang A la:’, S); S:=0; For i:=1 to if A[i] mod 2<>0 then S:=A+A[i]; Writeln(‘Tong cac phan tu le cua mang A la:’, S); điểm điểm điểm điểm VI./ Rút kinh nghiệm tiết kiểm tra Lớp 81 82 83 84 85 Dưới TB Tỉ lệ Trên TB Tỉ lệ Trang Lop8.net Những tồn cần khắc phục (3)