Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêuA. ...[r]
(1)PHÒNG GD & ĐT ĐỨC HÒA KIỂM TRA HỌC KÌ II - NĂM HỌC 2011-2012 TRƯỜNG THCS ĐỨC LẬP MÔN: Tin học
Thời gian: 45 phút (Không kể thời gian phát đề) Họ tên :
Lớp : 8/
Ngày thi:
Điểm Lời phê Duyệt
A/ LÝ THUYẾT: (6 điểm )Hãy chọn đáp án điền vào bảng đây:
Câu Câu1 Câu2 Câu3 Câu4 Câu5 Câu6 Câu7 Câu8 Câu9 Câu10 Câu11 Câu12
Đáp án
Câu Trong Pascal, câu lệnh sau viết đúng? A for i := to writeln(‘A’);
B for i := to 10 writeln(‘A’);
C for i := to 100 writeln(‘A’); D for i to 10 writeln(‘A’); Câu Trong câu lệnh lặp: for n:= to begin end;
Câu lệnh ghép thực lần? A. lần;
B. lần;
C. lần;
D. Không lần nào; Câu Câu lệnh lặp For to có:
A. Số lần lặp vô hạn B. Số lần lặp biết trước
C. Số vòng lặp phải nhỏ 100 D. Số vịng lặp khơng biết trước Câu Sau thực chương trình đây, giá trị biến j bao nhiêu?
j:= 1;
for i:= to 10 j:= j+1;
A. 12; B. 13; C. 11; D. 14;
Câu Trong Pascal, câu lệnh sau đúng? A. i:=0; S:=1; While S<10 S=S+i; i=i+1;
B. i:=1; S:=0; while s<10 begin S:=S+i; i:=i+1; end; C. n:=2; while n<5; write(‘A’);
D. Cả A B
Câu Cú pháp đầy đủ câu lệnh While … là: A While <câu lệnh> <điều kiện>;
B While <điều kiện>; <câu lệnh>;
C While <điều kiện> to <câu lênh> do; D While <điều kiện> <câu lệnh>; Câu Hãy cho biết chương trình thực vịng lặp thực đoạn chương trình ?
n:=10; T:=100;
While n>10 n:=n+5; T:=T - n;
(2)Câu Đoạn lệnh cho kết gì? so := 1;
While so <10 writeln(so); so := so + 1; A. In số từ đến 10;
B. Chương trình báo lỗi;
C. In vơ hạn số cột; D. In vô hạn số dòng ; Câu Trong Pascal, câu lệnh khai báo biến mảng sau đúng?
A. var a : array[10 1] of integer; B. var b : array(1 100) of real;
C. var c : array[1 15] of integer; D. var d : array[-2 -5] of real;
Câu 10 Khai báo biến mảng: A : array[1 7] of real; Sử dụng câu lệnh For i:= to readln(A[i]); để gán giá trị cho phần tử biến A từ bàn phím, ta nhập giá trị?
A. 5; B. 4; C. 6; D. 7;
Câu 11 Trong câu lệnh khai báo biến mảng, phát biểu sau đúng: A. Chỉ số đầu > số cuối;
B. Chỉ số đầu số cuối;
C. Kiểu liệu real; D. Cả ba ý đúng;
Câu 12 Giả sử biến mảng A có phần tử giá trị phần tử 1, 4, 7, 2, Khi thực câu lệnh giá trị biến tb bao nhiêu?
tb:= 0; For i:= to tb := tb + A[i];
A. 19; B. 18; C. 21; D. 20;
B/ BÀI TẬP (4 điểm)
Câu (2 điểm) Cho thuật toán sau: B1: j 0; T 105;
B2: Nếu T< 20 chuyển qua B4; B3: j j + 5; T T – j;
B4: In kết T j;
a Hãy cho biết, thực thuật tốn trên, máy tính thực vòng lặp giá trị T và j
b Viết câu lệnh pascal thể thuật toán trên.
Câu (2 điểm) Viết chương trình nhập vào số nguyên tìm max day so đó.
(3)I/ MA TRẬN ĐỀ Mức độ
Nội dung
Nhận biết Thông hiểu Vận dụng Tống
TN TL TN TL TN TL
Bài 7: Câu lệnh lặp 1 0,5 1 2.5
Bài 8: Lặp với số lần chưa biết trước 1 1 2 4
Bài 9: Làm việc với dãy số 1 0,5 2 3.5
Tổng 3 1 6 14 10
Tỷ lệ(%) 30 10 60 100
II/ ĐÁP ÁN VÀ BIỂU ĐIỂM A/ LÝ THUYẾT: (6 điểm – câu 0,5 điểm).
Câu Câu1 Câu2 Câu3 Câu4 Câu5 Câu6 Câu7 Câu8 Câu9 Câu10 Câu11 Câu12
Đáp án C B B A B D A B C A B D
B/ BÀI TẬP (4 điểm)
CÂU ĐÁP ÁN ĐIỂM
Câu a
- Khi thực thuật tốn trên, máy tính thực 06 vòng
lặp 0.5
- T = 0; j = 30 0.5
b
Đoạn chương trình thể thuật toán:
j := 0; 0.25
T := 105; 0.25
While T >= 20 begin j := j + 5; T := T - j; end; 0.25
Write(T); write(j); 0.25
Câu
Program cau_2; Uses crt;
Var max, i : integer;
dayso : array[1 20] of integer;
0.25
Begin Clrscr;
so_chan:=0;
0.5 For i := to
Begin
Write(‘phan tu thu ‘,i,’ la = ‘); readln(dayso[i]);
End;
0.5
Max:=dayso[1]; For i := to
Begin
If max<dayso[i] then max:=dayso[i]; End;
0.5
Writeln(‘So lon nhat day so ‘,max);
(4)