Đề kiểm tra thực hành 1 tiết học kì II môn Tin học Lớp 8 - Trường THCS Ngô Quyền - Năm học 2017-2018 (Có đáp án)

 PHÒNG GD&ĐT HUYỆN ČƯ M’GAR MA TRẬN ĐỀ KIỂM TRA 1 TIẾT
 TRƯỜNG THCS NGÔ QUYỀN NĂM HỌC: 2017 - 2018
 Môn: Tin học 8
 ĐỀ CHÍNH THỨC PPCT TIẾT 62
 Thời gian: 45 phút (không kể thời gian giao đề)
 Vận dụng
 Cấp độ Nhận biết Thông hiểu Cấp độ thấp Cấp độ cao
 Cộng
 TN TN TN
Nội dung TL TL TNKQ TL TL
 KQ KQ KQ
 Khai Sắp 
 báo 1 xếp 
 mảng, mảng 
 độ dài theo 
 của chiều
 mảng ( 
 nhập từ Tăng 
 bàn dần 
Làm việc với 
 phím, hoặc 
dãy số
 nhập giảm 
 giá trị dần).
 cho các 
 phần 
 tử, in 
 mảng 
 vừa 
 nhập.
Số câu 4 1 5
Số điểm 8 2 10
Tỉ lệ % 80 20 100
Tổng số câu 4 1 5
Tổng số 8 2 10
điểm 80% 20% 100%
Tỉ lệ % PHÒNG GD&ĐT HUYỆN ČƯ M’GAR HƯỚNG DẪN CHẤM ĐỀ KIỂM TRA 1 TIẾT 
 TRƯỜNG THCS NGÔ QUYỀN NĂM HỌC: 2017 - 2018
 Môn: Tin học 8
 ĐỀ CHÍNH THỨC PPCT TIẾT 62
 Thời gian: 45 phút (không kể thời gian giao đề)
 Nội dung Điểm
 Program sap_xep;
 Uses Crt;
 {Khai báo mảng} (2 điểm)
 Var A:ARRAY[1..50] Of Integer;
 N,i,j,Tam:Integer;
 Begin
 {Nhập mảng độ dài của mảng} (2 điểm)
 Write('Nhap N='); Readln(N);
 {Nhập giá trị cho các phần tử} 
 For i:=1 To N Do (2 điểm)
 Begin
 Write('A[',i,']='); Readln(A[i]);
 End;
 {Sắp xếp} 
 For i:=1 To N-1 Do (2 điểm)
 For j:=i+1 To N Do
 If A[i]>A[j] Then
 Begin
 Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
 End; 
 {In kết quả ra màn hình} 
 Writeln('Ket qua sau khi sap xep:'); (2 điểm)
 For i:=1 To N Do Write(A[i]:5);
 Readln;
 End.