Kiểm tra thực hành học kì II – Năm học 2014 - 2015 môn: Tin học lớp: 8

PHÒNG GD&ĐT SA THẦY
TRƯỜNG THCS SA NHƠN
KIỂM TRA THỰC HÀNH
Học kì II – Năm học 2014 - 2015
Môn: Tin học Lớp: 8
Tuần: 32	Tiết ppct: 61
Ngày kiểm tra: /04 /2016
Đề bài:
Viết chương trình nhập vào một dãy số nguyên có n phần tử . 
a. Sắp xếp dãy số theo thứ tự giảm dần 
b. Tính giá trị trung bình của dãy. 
--------------- Hết -------------
PHÒNG GD&ĐT SA THẦY
TRƯỜNG THCS SA NHƠN
KIỂM TRA THỰC HÀNH
Học kì II – Năm học 2014 - 2015
Môn: Tin học Lớp: 8
Tuần: 32	Tiết ppct: 61
Ngày kiểm tra: /4 /2016
ĐÁP ÁN, BIỂU ĐIỂM, HƯỚNG DẪN CHẤM
A. ĐÁP ÁN, BIỂU ĐIỂM
ĐỀ 
TRẢ LỜI
ĐIỂM
Đề 1
(10.0 đ)
Program DAY_SO;
Uses Crt;
Var	s,n,i,j,t:integer;
a:array[1..20] of integer;
Begin
Clrscr;
Writeln('SAP XEP DAY SO:'); 
Writeln('------------------------');
Write('Nhap so phan tu cua day n = '); Readln(n); 
For i:=1 to n do
Begin
 Write('a[',i,']= '); Readln(a[i]);
	End;
 	 For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
	end;
Writeln(' Day sau khi sap xep giam dan la:'); 
For i:=1 to n do
Write(a[i]:4); Readln;
{Tinh trung binh day}
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);
 Readln;
End.
1.0 đ
0.5 đ
0.5 đ
1.0 đ
0.5 đ
1.0 đ
0.5 đ
0.5 đ
0.5 đ
1.0 đ
0.5
0.5
0.5 đ
0.5 đ
0.5 đ
0.5 đ
B .HƯỚNG DẪN CHẤM
- Chấm theo đáp án. 
- Học sinh có thể khai báo các biến khác với đáp án, nếu chương trình viết đúng vẫn cho điểm tối đa.
- Hs có thể bỏ qua một số lệnh in ra màn hình mà không ảnh hưởng tới chương trình thì vẫn chấm điểm tối đa.
* Yêu cầu: - Chương trình phải chạy được trên máy tính.
- Học sinh hiểu được ý nghĩa các câu lệnh.
------------- Hết --------------
(Đáp án này gồm 02 trang)