Trường THCS ………………… ĐỀ KIỂM TRA HỌC KỲ II Môn: Tin học 8 – Thực hành Thời gian làm bài: 30 phút (Học sinh chọn 1 trong các đề sau) §Ò 1: Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị lớn nhất trong dãy vừa nhập. §Ò 2: Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị nhỏ nhất trong dãy vừa nhập. §Ò 3: Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Đếm xem trong dãy có bao nhiêu số âm, bao nhiêu số dương. (Biết số âm là những số < 0, số dương là những số >0) §Ò 4: Viết chương trình tính tổng sau: S=1+ 2 + 3 + + n sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím). ĐÁP ÁN ĐỀ TIN 8 ĐỀ 1 - Phần khai báo đúng đạt 3đ. program Max; uses crt; Var i, n, Max: integer; A: array[1 100] of integer; - Phần thân chương trình sẽ tương tự dưới đây. + HS viết chạy chương trình nhập được n, dãy số đạt 3đ. + Tìm được số lớn nhất đạt 3đ. Begin clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Max:=a[1]; for i:=2 to n do begin if Max<a[i] then Max:=a[i]; end; write('So lon nhat la Max = ',Max); readln End. ĐỀ 2 - Phần khai báo đúng đạt 3đ. program Min; uses crt; Var i, n, Min: integer; A: array[1 100] of integer; - Phần thân chương trình sẽ tương tự dưới đây. + HS viết chạy chương trình nhập được n, dãy số đạt 3đ. + Tìm được số nhỏ nhất đạt 3đ. Begin clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; for i:=2 to n do begin if Min> a[i] then Min:=a[i]; end; write('So nho nhat la Min = ',Min); readln End. ĐỀ 3: - Phần khai báo đúng đạt 3đ. program DE3; uses crt; Var i, n, Am, Duong: integer; A: array[1 100] of integer; - Phần thân chương trình sẽ tương tự dưới đây. + HS viết chạy chương trình nhập được n, dãy số (3đ). + Đếm đượcbao nhiêu số âm, dương (3đ). Begin clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Am:=0; Duong:=0; for i:=1 to n do begin if a[i]>0 then Duong:=Duong+1 else Am:=Am+1; end; write(‘Day so vua nhap co’,Am, ‘so am’); write(‘Day so vua nhap co’,Duong, ‘so duong’); readln End. ĐỀ 4: Program cau_2; var S,n: integer; begin S:=0; n:=1; while S<=500 do begin n:=n+1; S:=S+n end; writeln('So n nho nhat de tong > 500 la ',n); writeln('Tong dau tien > 550 la ',S); Readln; end. MA TRẬN ĐỀ TIN 8 Nội dung Nhận biết Thông hiểu Vận dụng Làm việc với dãy số Đề 1,2,3 mỗi đề 10 đ Lặp với số lần chưa viết trước Đề 4 10đ Tổng 4 đề Mỗi đề10 đ . Trường THCS ………………… ĐỀ KIỂM TRA HỌC KỲ II Môn: Tin học 8 – Thực hành Thời gian làm bài: 30 phút (Học sinh chọn 1 trong các đề sau) §Ò 1: Viết chương trình nhập vào 1 dãy. Readln; end. MA TRẬN ĐỀ TIN 8 Nội dung Nhận biết Thông hiểu Vận dụng Làm việc với dãy số Đề 1,2,3 mỗi đề 10 đ Lặp với số lần chưa viết trước Đề 4 10đ Tổng 4 đề Mỗi đề1 0 đ . + n sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím). ĐÁP ÁN ĐỀ TIN 8 ĐỀ 1 - Phần khai báo đúng đạt 3đ. program Max; uses crt; Var i, n, Max: integer; A: array[1