de thi HK2 nam hoc 2009 2010 Khoi 8

Nếu sau do muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa.. hai dấu ngoặc đơn..[r]

ĐỀ KIỂM TRA HK2 (ĐỀ A) Năm học: 2009 -2010

Môn: Tin học 8 Thời gian: 45 phút

Điểm Lời phê

I TRẮC NGHIỆM (6đ)

Câu 1: Lần lượt thực đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị t là

a b c d

Câu 2: Sau thực đoạn chương trình sau, giá trị biến a bao nhiêu? a:=2 ;

For i:= to a:= a+3;

a b c 11 d 14

Câu 3 : Cho S i biến nguyên Khi chạy đoạn chương trình : s:=1;

for i:=1 to s := s *i; writeln(s);

Kết in lên hình :

a b c 24 d 120

Câu 4: Xem ví dụ sau Pascal: Var i:integer;

Begin I:=1

While i<15 Begin

Writeln(‘0’); i:=i+1; End;

End

Ví dụ ghi hình chữ số 0?

a b 13 c 14 d 15

Câu 5: Chọn khai báo hơp lệ a Const n=5;

Var a,b: array[1 n] of real; b Var n: Integer;a,b: array[1:n] of real;

c Var a,b: array[1 n] of real; d Var a,b: array[1 10] of real; Câu 6: Tham chiếu tới phần tử mảng xác định cách:

a <tên biến mảng>[chỉ số] b [chỉ số] <tên biến mảng> c <tên biến mảng><chỉ số> d [tên biến mảng][chỉ số] Họ tên:……… STT: ……

Câu 7: Hãy lỗi câu lệnh sau viết lại cho đúng a For i=1 to 10 x:=x+1;

b For i:=1 to 10; x:=x+1;

c x:= 8; while x = x = x+3;

d s:=0; n:=0; while s <=10 n:=n+1; s:=s+n;

e Var x: Array[1,20] Of Real;

f Var x: Array[20 1] Of Integer;

II TỰ LUẬN

Câu 8: Cho biết tác dụng câu lệnh lặp với số lần biết trước (1đ)

Câu 9: Hãy tìm hiểu thuật toán sau đây:

Bước 1: X16, n 2

Bước 2: Nếu X <= 6.5, chuyển tới bước Bước 3: XX-n quay lại bước

Bước 4: Thông báo X kết thúc thuật toán Hãy cho biết:

a Khi thực thuật tốn, máy tính thực vịng lặp? Khi kết thúc, giá trị X bao nhiêu? (1đ)

b Viết chương trình Pascal thể thuật tốn đó? (2đ)

ĐỀ KIỂM TRA HK2 (ĐỀ B) Năm học: 2009 -2010

Môn: Tin học 8 Thời gian: 45 phút

Điểm Lời phê

I TRẮC NGHIỆM (6đ)

Câu 1: Để khai báo biến mảng kiểu số nguyên Pascal có dạng: Var <tên biến mảng>:array [<chỉ số đầu> <chỉ số cuối>] of integer; Trong đó:

a Chỉ số đầu = số cuối b Chỉ số đầu > số cuối c Chỉ số đầu < số cuối d Chỉ số đầu <> số cuối Câu 2: Đoạn chương trình sau có vịng lặp?

a:=2 ;

for i:= to a:= a+3;

a b c d

Câu 3: Hãy đọc đoạn chương trình sau, sau thực xong, kết s bằng: s:=0;

For i:= to s:= s * i;

a b 15 c 120 d Kết khác

Câu 4: Xem ví dụ sau Pascal: Var i:integer;

Begin i:=1;

While i<15 Begin

Writeln(‘0’); i:=i+1; End;

End

Ví dụ lặp vòng lặp?

a b 13 c 14 d 15

Câu 5: Chọn khai báo hơp lệ

a Var a,b: array[1 n] of real; b Var a,b: array[1:n] of real; c Var a,b: array[1 100] of real; d Var a,b: array[1…n] of real; Câu 6: Trong ngôn ngữ lập trình Pascal, phát biểu sau

Với câu lệnh While…Do Nếu sau muốn thực nhiều câu lệnh lệnh phải đặt giữa

a hai dấu ngoặc đơn b Begin End;

c Begin End d Begin End

Họ tên:……… STT: ……

Câu 7: Hãy lỗi câu lệnh sau viết lại cho đúng a For i:=10 to x:= x + 1;

b For i:=1.5 to 5.2 x:= x + 1;

c While i:= t:=10;

d While = Writeln (‘Dung’) ;

e Var X: array[3.7 7.8] of integer;

f Var x: array 1 :100 of real;

II TỰ LUẬN

Câu 8: Hãy cho biết khác câu lệnh lặp với số lần biết trước câu lệnh lặp với số lần chưa biết trước (1đ)

Câu 9: Hãy tìm hiểu thuật toán sau đây:

Bước 1: X 15, n 3

Bước 2: Nếu X <= 4.5, chuyển tới bước Bước 3: XX-n quay lại bước

Bước 4: Thơng báo X kết thúc thuật tốn Hãy cho biết:

a Khi thực thuật tốn, máy tính thực vòng lặp? Khi kết thúc, giá trị X bao nhiêu? (1đ)

b Viết chương trình Pascal thể thuật tốn đó? (2đ)

Bước 2: Nếu a=b chuyển tới bước

Bước 3: Nếu a>b thì a a-b ngược lại bb-a quay lại bước Bước 4: Thông báo a kết thúc thuật toán

Hãy cho biết:

a Khi thực thuật tốn, máy tính thực vịng lặp? Khi kết thúc, giá trị a bao nhiêu? (1đ)

b Viết chương trình Pascal thể thuật tốn đó? (2đ)

Vịng lặp thực vòng lặp 0.25

giá trị a kết thúc 0.25

Var a,b:integer; 0.5

Begin

a:=48; 0.25

b:=30; 0.25

While a<>b if a>b then a:=a-b else b:=b-a; 0.75

Write(a); 0.25

End 0.25

Câu 9: Hãy tìm hiểu thuật toán sau đây: Bước 1: a48, b30

Bước 2: ra mod b

Bước 3: Nếu r=0 chuyển tới bước Bước 4: ab, br,r a mod b

Bước 5: Thông báo b kết thúc thuật toán Hãy cho biết:

c Khi thực thuật tốn, máy tính thực vòng lặp? Khi kết thúc, giá trị b bao nhiêu? (1đ)

d Viết chương trình Pascal thể thuật tốn đó? (2đ)

Vịng lặp thực vòng lặp 0.25

giá trị b kết thúc 0.25

Var a,b,r:integer; 0.75

Begin

a:=48; 0.25

b:=30; 0.25

r:=a mod b; 0.25

While r>0 0.75

Begin

a:=b; b:=r; r:=a mod b; End;

Write(b); 0.25

Câu 9: Hãy tìm hiểu thuật toán sau đây: Bước 1:s1,i1

Bước 2: Nếu i>5, chuyển tới bước Bước 3: ss*i, ii+1 quay lại bước Bước 4: Thông báo s kết thúc thuật toán Hãy cho biết:

a Khi thực thuật tốn, máy tính thực vòng lặp? Khi kết thúc, giá trị S bao nhiêu? (0.5đ)

b Viết chương trình Pascal thể thuật tốn đó? (2.5đ)

Vòng lặp thực vòng lặp 0.25

giá trị s kết thúc 120 0.25

Var s,i: integer; 0.5

Begin 0.25

s:=1; 0.25

i:=1; 0.25

While i<=5 0.25

Begin 0.25

s:=s*i; 0.25

i:=i+1; 0.25

End;

Write(s); 0.25

End

Câu 9: Hãy tìm hiểu thuật toán sau đây: Bước 1:s0,i0

Bước 2: Nếu i>5, chuyển tới bước Bước 3: ii+1, ss+i quay lại bước Bước 4: Thơng báo s kết thúc thuật tốn Hãy cho biết:

a Khi thực thuật toán, máy tính thực vịng lặp? Khi kết thúc, giá trị S bao nhiêu? (1đ)

b Viết chương trình Pascal thể thuật tốn đó? (2đ)

Vòng lặp thực vòng lặp 0.25

giá trị s kết thúc 21 0.25

Var s,i: integer; 0.5

Begin 0.25

s:=0; 0.25

i:=0; 0.25

While i<=5 0.25

Begin 0.25

i:=i+1; 0.25

s:=s+i; 0.25

End;

Write(s); 0.25

hoàn chỉnh (3đ)

var i: integer; s: longint;

writeln('Tong cua 100 so tu nhien dau tien khac S = ', S); program Tinh_tong;

s:= 0; i := 1; end begin

while i <=100 i:= i+1;

s:= s+i; begin end;

Câu 9: Sắp xếp dịng sau thành chương trình tính tích 100 số tự nhiên khác hoàn chỉnh (3đ)

var i: integer; p: longint;

writeln('Tich cua 100 so tu nhien dau tien khac p = ', p); program Tinh_tong;

p:= 1; i := 1; end begin

while i <=100 i:= i+1;