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ố đó.... I: PhÇn tr¾c nghiÖm.[r]
(1)Hä vµ tªn häc sinh: Líp: PhÇn I §Ò kiÓm tra häc kú II(45 phót) đề Tr¾c nghiÖm Khoanh tròn chữ cái đứng trước kết đúng(3 §) Câu Để nhập giá trị vào phần tử a[3] mảng a thì ta viết là: a Readln(a) b Readln(a[3]) c Readln(a[i]) d Readln(a(3)) C©u 2: Cấu trúc vòng lặp For … dạng tiến là A) For <biến đếm>:= < giá trị đầu> to <giá trị cuối> <câu lệnh>; B) For <biến đếm>:= < giá trị cuối> to <giá trị đầu> <câu lệnh>; C) For <biến đếm>:= < giá trị cuối> downto <giá trị đầu> <câu lệnh>; D) For <biến đếm>:= < giá trị đầu> downto <giá trị cuối> <câu lệnh>; C©u 3: Cấu trúc vòng lặp while - có dạng: A While <điều kiện> <câu lệnh>; B While <câu lệnh> <điều kiện>; C While <điều kiện> <câu lệnh> D While <câu lệnh 1> <câu lệnh 2>; C©u 4: Vòng lặp while - 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 giới hạn là <=100 D) Biết trước số lần lặp giới hạn là >=100 Câu Khai báo mảng a có 11 phần tử từ đến 15 là các số nguyên thì ta khai báo 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 Xuất liệu từ mảng a có 11 phần tử từ đến 15 thì ta viết lệnh sau: a Writeln(a); b Writeln (a[11]); c For i: =5 to 15 Writeln (a[i]); d Writeln (a[i]); phÇn 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 s := s+2*i; writeln(s); Kết 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 s := s+i; writeln(s); Kết in lên màn hình là bao nhiªu ? Lop7.net (2) 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 màn hình giá trị Min và trung bình cộng dãy số đó Lop7.net (3) §¸p ¸n: I: PhÇn tr¾c nghiÖm C©u §¸p ¸n B A A B C PhÇn 2: Tù luËn: C©u 7(2 ®iÓm) a) 72 d) 15 C©u 8: ( ®iÓm) program trungbinh; uses crt; Var i, n,s Min: integer; A: array[1 100] of integer; Begin clrscr; write('Hay nhap dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; s:=0; for i:=2 to n 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 Lop7.net C (4)