Đề thi học kỳ II-TIN HỌC 8 (TH)

Trường THCS …………………

ĐỀ KIỂM TRA HỌC KỲ II
Môn: Tin học 8 – Thực hành
Thời gian làm bài: 30 phút
(Học sinh chọn 1 trong các đề sau)



Đề 1:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị lớn nhất trong dãy vừa nhập.


Đề 2:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Tìm giá trị nhỏ nhất trong dãy vừa nhập.


Đề 3:
Viết chương trình nhập vào 1 dãy gồm n số (n được nhập từ bàn phím). Đếm xem trong dãy có bao nhiêu số âm, bao nhiêu số dương. (Biết số âm là những số < 0, số dương là những số >0)

Đề 4:

Viết chương trình tính tổng sau: S=1+ 2 + 3 +...+ n sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
ĐÁP ÁN ĐỀ TIN 8
ĐỀ 1 - Phần khai báo đúng đạt 3đ.
program Max;
uses crt;
Var
i, n, Max: integer;
A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số đạt 3đ.
+ Tìm được số lớn nhất đạt 3đ.
Begin
clrscr;
write(`Hay nhap do dai cua day so, N = `); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`); readln(a[i]);
End;
Max:=a[1];
for i:=2 to n do
begin if Max end;
write(`So lon nhat la Max = `,Max);
readln
End.
ĐỀ 2 - Phần khai báo đúng đạt 3đ.
program Min;
uses crt;
Var
i, n, Min: integer;
A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số đạt 3đ.
+ Tìm được số nhỏ nhất đạt 3đ.
Begin
clrscr;
write(`Hay nhap do dai cua day so, N = `); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`); readln(a[i]);
End;
Min:=a[1];
for i:=2 to n do
begin if Min> a[i] then Min:=a[i];
end;
write(`So nho nhat la Min = `,Min);
readln
End.
ĐỀ 3:
- Phần khai báo đúng đạt 3đ.
program DE3;
uses crt;
Var
i, n, Am, Duong: integer;
A: array[1..100] of integer;
- Phần thân chương trình sẽ tương tự dưới đây.
+ HS viết chạy chương trình nhập được n, dãy số (3đ).
+ Đếm đượcbao nhiêu số âm, dương (3đ).
Begin
clrscr;
write(`Hay nhap do dai cua day so, N = `); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`); readln(a[i]);
End;
Am:=0; Duong:=0;
for i:=1 to n do
begin
if a[i]>0 then Duong:=Duong+1
else Am:=Am+1;
end;
write(‘Day so vua nhap co’,Am, ‘so am’);
write(‘Day so vua nhap co’,Duong, ‘so duong’);
readln
End.
ĐỀ 4:
Program cau_2;
var S,n: integer;
begin
S:=0; n:=1;
while S<=500 do
begin n:=n+1; S:=S+n
end;
writeln(`So n nho nhat de tong > 500 la `,n);
writeln(`Tong dau