Đề kiểm tra thực hành học kì II Tin học Lớp 8 - Năm học 2010-2011 - Trường THCS Gia An

TRƯỜNG THCS GIA AN
ĐỀ KIỂM TRA THỰC HÀNH HỌC KỲ II
Môn: Tin học 8, Năm học: 2009-2010.
Thời gian làm bài: 60 phút
Câu 1: Viết chương trình bằng ngôn ngữ Pascal, nhập vào 1 mảng các số thực (tối đa 50 số). Sau đó in ra màn hình dãy vừa nhập. (5đ).
Câu 2: Viết chương trình bằng ngôn ngữ Pascal, tính tổng: (5đ)
S=1-1/2+1/3-1/4(-1)(n+1)/n;
(Lưu ý: S:=S+1/(2*i+1) nếu i là số chẵn; S:=S-1/(2*i+1) nếu i là số lẻ)
Câu 3: Viết chương trình bằng ngôn ngữ Pascal, nhập vào 1 mảng các số thực (tối đa 50 số). Sau đó tính trung bình cộng dãy vừa nhập. (5đ).	
Lưu ý: Các em làm 2 trong 3 câu trên.
ĐÁP ÁN-BIỂU ĐIỂM KIỂM TRA THỰC HÀNH HỌC KỲ II.
Năm học: 2009-2010
Môn: Tin học 8. Thời gian làm bài: 60 phút.
Học sinh chỉ làm 2 trong 3 bài, chạy đúng nội dung 1 chương trình được tối da 5 điểm. Tùy vào nội dung bài làm thực tế của học sinh mà khuyến khích cho điểm
Câu 1: (5đ).
	Program cau1;
	Var a: array[1..50] of Real;
	i,j,n: Integer;
	Begin
	Write(‘nhap so phan tu mang:’); readln(n);
	For i:=1 to n do
	Begin
	Write(‘a[‘,i,’]=’); Readln(a[i]);
	End;
	Write(‘mang vua nhap la:’);
	For i:=1 to n do write (‘ ’,a[i]);
	Readln;
	End.
Câu2: 
Program cau2;
Var I,n: Integer; S:real;
Begin	 i:=0; S:=0;
 	Wrile(‘nhap gia tri n:’); readln(n);
 	While i<=n do
	Begin
	If i mod 2 =0 then S:=S+1/i Else S:=S-1/i;
	i:=i+1;
 	End;
Write(‘Tong cua day so:’,S);
Readln;
End.
Câu 3 (5đ).
Program cau3;
	Var a: array[1..50] of Real;	i,j,n,Tong: Integer; TBC:real;
	Begin
	Write(‘nhap so phan tu mang:’); readln(n);
	For i:=1 to n do
	Begin
	Write(‘a[‘,i,’]=’); Readln(a[i]);
	End;
For i:=1 to n do
	Tong:=Tong+a[i];TBC:=Tong/n;
	Write(‘TBC của day so vua nhap la:’,TBC);
Readln;
End.