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

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

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<a[i] then Max:=a[i];

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 tien > 550 la ',S); Readln;

end.

MA TRẬN ĐỀ TIN 8

mỗi đề 10 đ

10đ

Mỗi đề10 đ