Đề KH kỳ II Tin8_01

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 Câu 4: Cho S và i là biến nguyên.. Khai báo biÕn mảng a có 11 phần tử

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 §iÓm)

C©u 1 : 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

2 : 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 3: 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 4: 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à :

Câu 5 Khai báo biÕn mảng a có 11 phần tử 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 10 do s := s+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:=1;

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ị Max và tổ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 MaxMin;

uses crt;

Var

i, n,s Max, 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;

Max:=a[1]; Min:=a[1]; s:=0;

for i:=2 to n do

begin if Max<a[i] then Max:=a[i];

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

S:=S+a[i];

end;

writeln('So lon nhat la Max = ',Max);

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

writeln( gia trÞ trung binh cua day so la: ,s/n) ‘ ’

readln;

End.