Đề KH kỳ II Tin8_02

§Ò kiÓm tra häc kú II45 phótPhÇn I Tr¾c nghiÖm Khoanh tròn chữ cái đứng trước kết quả đúng3 § Câu 1... Câu 8: Sử dụng biến mảng viết chơng trình nhập dãy số N số nguyên từ bàn phím sau

Hä vµ tªn häc sinh: §Ò kiÓm tra häc kú II(45 phót)

PhÇn I Tr¾c nghiÖm

Khoanh tròn chữ cái đứng trước kết quả đúng(3 §)

Câu 1 Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là:

C©u 2: Cấu trúc của vòng lặp For do … dạng tiến là

A) For <biến đếm>:= < giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B) For <biến đếm>:= < giá trị cuối> to <giá trị đầu> do <câu lệnh>;

C) For <biến đếm>:= < giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

D) For <biến đếm>:= < giá trị đầu> downto <giá trị cuối> do <câu lệnh>;

C©u 3: Cấu trúc của vòng lặp while - do có dạng:

A While <điều kiện> do <câu lệnh>;

B While <câu lệnh> do <điều kiện>;

C While <điều kiện> do <câu lệnh>

D While <câu lệnh 1> do <câu lệnh 2>;

C©u 4: Vòng lặp while - do là vòng lặp

A) Biết trước số lần lặp

B) Chưa biết trước số lần lặp

C) Biết trước số lần lặp nhưng giới hạn là <=100

D) Biết trước số lần lặp nhưng giới hạn là >=100

Câu 5 Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau:

a a:Array [1 11] of integer; b a:Array [5 15] of integer;

c a:Array [5 15] of integer; d a:Array [11] of integer;

Câu 6 Xuất dữ liệu từ mảng a có 11 phần tử từ 5 đến 15 thì ta viết lệnh như sau:

c For i: =5 to 15 do Writeln (a[i]); d Writeln (a[i]);

phÇn 2 tù luËn (7 ®)

Câu 7: a) Cho S và i là biến nguyên Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 8 do s := s+2*i;

writeln(s);

Kết quả in lên màn hình là bao nhiªu ?

b) Cho S và i là biến nguyên Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 5 do s := s+i;

writeln(s);

Kết quả in lên màn hình là bao nhiªu ?

Câu 8: Sử dụng biến mảng viết chơng trình nhập dãy số N số nguyên từ bàn phím sau đó

in ra màn hình giá trị Min và trung bình cộng của dãy số đó.

§¸p ¸n:

I: PhÇn tr¾c nghiÖm

PhÇn 2: Tù luËn:

C©u 8: ( 5 ®iÓm)

program trungbinh;

uses crt;

Var

i, n,s Min: integer;

A: array[1 100] of integer;

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]; s:=0;

for i:=2 to n do

begin

if Min>a[i] then Min:=a[i]

S:=S+a[i];

end;

writeln(' So nho nhat la Min = ',Min);

writeln( Tong cua day so la : ,s/n); ‘ ’

readln;

End.