Kiểm tra 1 tiết thực hành 8 có đap án(vip)

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ử .
a. Sắp xếp dãy số theo thứ tự giảm dần
c. Tính giá trị trung bình của dãy.


ĐỀ 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ử.

a. Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình.
c. In ra màn hình số phần tử nhỏ hơn hoặc bằng x, In ra màn hình số phần tử lớn hơn x.



Đề số 1:
Program DAY_SO1;
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]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.

Đề số 2

Program DAY_SO;
Uses Crt;
Var t,n,x,i,j,dem:integer;
a:array[1..20] of integer;
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;
{sap xep day so}
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 la:`); For i:=1 to n do
Write(a[i]:3); Readln;
Writeln(`Cac phan tu <= `,x,` la:`);
For i:=1 to n do

If(a[i]<=x) then
Write(a[i]:3);
Readln;
Writeln(`Cac phan tu > `,x, ` la:`);
For i:=1 to n do
If a[i]>x then
Write(a[i]:3);
Readln;
End.