Đề kiểm tin 8(chỉnh sửa lại)

TRƯỜNG THCS EABUNG

ĐỀ KIỂM TRA THỰC HÀNH
Môn: Tin học 8
Thời gian: 45 phút




Đề số 1: Viết chương trình nhập vào một dãy số nguyên có n phần tử .
- Tính giá trị trung bình của dãy.
- Lưu chương trình với tên, lớp học sinh (ví dụ: Hoa_8a)


TRƯỜNG THCS EABUNG

ĐỀ KIỂM TRA THỰC HÀNH
Môn: Tin học 8
Thời gian: 45 phút



Đề số 2: Viết chương trình nhập vào một dãy số nguyên có n phần tử.

- In ra màn hình phần tử nhỏ hơn, phần tử lớn hơn của dãy số.
- Lưu chương trình với tên, lớp học sinh (ví dụ: Hoa_8a)


ĐÁP ÁN – BIỂU ĐIỂM
Đề số 1:
Đáp án
Điểm

Program DAY_SO1;
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;

1,5

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;
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln(`Gia tri trung binh la: `,s/n:6:2);
Readln;
End.

5

 Dịch chương trình
2

Chạy chương trình
2

Lưu đúng
0,5



Đề số 2

Đáp án
Điểm

Program DAY_SO;
Uses Crt;
Var t,n,x,i,j,dem:integer;
a:array[1..20] of integer;

1,5

begin
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;
Max:=a[1]; min:=a[1];
For i:=2 to n do
Begin
If max If min>a[i] then min:=a[i]
End;
Writeln(‘ so lon nhat cua day so la Max=’,max);
Writeln(‘ so nho nhat cua day so la Min=’,Min);
Readln;
End.

4

Dịch chương trình
2

Chạy chương trình
2

Lưu đúng
0,5