Đề cương ôn tập Tin học 11 học kỳ II - Năm học 2009 - 2010

<span class='text_page_counter'>(1)</span>ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 A. PHẦN TRẮC NGHIỆM Câu 1: Các khai báo biến mảng 2 chiều nào sau đây là không hợp lệ A. Var a: array [1..10, 0..10] of real; D. Var a: array [1..m, 1..n] of real; với m, n là hằng; B. Var a: array [1..10] of array [0..10] of real; C. Var a: array [1..m, 1..n] of real; với m, n là biến; Câu 2: Chọn khai báo đúng : A .Var A: array[1..10] of integer; B .Var A= array[1..10] of integer; C. Var A:= array[1..10] of integer; D. Var A: array[1,10] of integer; Câu 3: Cho khai báo: Var A: Array[1..4] of Real; i : Integer ; Ðể nhập dữ liệu cho A, chọn câu nào : a) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’); c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d) Write(‘ Nhập A:’); Readln(A); Câu 4: Cho khai báo biến : Var A : array[1..5] of Integer; Chọn lệnh đúng : A. A[1] := 4/2 ; B. A[2] := -6 ; C. A(3) := 6 ; D. A := 10 ; Câu 5: Trong khai báo sau còn bỏ trống . . . một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max : Var A: Array[a..d] of Real ; Ch : Char ; Max : . . . ; Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ . . . A. Char B. Integer C. String D. Real Câu 6: Cho khai báo: Var A: Array[1..4] of Integer ; i : Integer ; Sau khi thực hiện các lệnh : For i:=1 to 4 do A[i]:= i; For i:=1 to 4 do A[i]:= A[i]+1; thì mảng A có gía trị là : A. A[1]=1, A[2]=2, A[3]=3, A[4]=4 B. A[1]=2, A[2]=3, A[3]=4, A[4]=5 C. A[1]=0, A[2]=1, A[3]=2, A[4]=3 D. A[1]=1, A[2]=1, A[3]=1, A[4]=1 Lop11.com.

<span class='text_page_counter'>(2)</span> ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 Câu 7: Khai báo nào đúng : A. Var A : array[1..n,1..m] of integer; B. Const n=2; m=3; Var A: array[1...n,1..m] of integer; C. Var n, m : integer ; A: array[1..n,1..m] of integer; D. Var A: array[3, 2] of Integer; Câu 8: Cho khai báo : Var A : array[1..2,1..3] of Real; i, j : integer; Ðể nhập dữ liệu cho ma trận A, chọn : A. Write(‘ Nhập A:’); Readln(A) ;. B. For i:=1 to 2 do Readln(A[i, j]);. C. For i:=1 to 2 do For j:=1 to 3 do begin write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); end;. D. For i:=1 to 2 do For j:=1 to 3 do write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]);. Câu 9: Cho khai báo : Var A : array[1..2,1..3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào : A. Max:=A[1,1]; If Max < A[i,j] then Max:=A[i,j];. B. Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];. C. A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max;. D. Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];. Câu 10: Khi chạy chương trình : Var A : array[1..2,1..3] of integer; i, j, S : integer; Begin A[1,1]:= 3 ; A[1,2]:= -1 ; A[1,3]:= -4 ; A[2,1]:= -9 ; A[2,2]:= 0 ; A[2,3]:= 5 ; S:=0;. Lop11.com.

<span class='text_page_counter'>(3)</span> ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 for i:=1 to 2 do for j:=1 to 3 do If A[i,j] < 0 then S:=S+1; Write(S); End. Kết qủa in ra gía trị của S là : A. 0 B. -9 C. 3 D. 5 Câu 11. Cho đoạn lệnh x:=5; y:=4; writeln('x+y'); Kết quả xuất ra màn hình sẽ là: A. 4 B. 9 C. 5 D. x+y Câu 12. Cho đoạn lệnh A[1]:=5; A[2]:=4; A[3]:=9; A[4]:=8; for i:=4 downto 1 do write(A[i]:4); A. 8 9 4 5 B. 1 2 3 4 C. 5 4 9 8 D. 4 3 2 1 Câu 13. Trong NNLT Pascal, cho khai báo sau Var b:array[1..10] of integer; Hãy chọn lệnh gán đúng trong các lệnh sau đây A. b[5]:=6.5; B. b:=8; C. b[1]:=5; D. b[11]:=8; Câu 14. Đoạn lệnh For i: = 1 To n Do Begin Write('A[',i,']='); Read(A[i]); End; thông thường dùng để: A. Nhập dữ liệu cho mảng một chiều B. Nhập dữ liệu cho mảng hai chiều C. Nhập dữ liệu cho một bản ghi D. Nhập dữ liệu cho một xâu Câu 15 giá trị của biến gt trong đoạn chương trình sau: pt:=1; n:=5; while n<5 do pt:=gt+1; A. 6 B. 1 C. 7 D. 5 Câu 16 Cho mảng A gồm các phần tử: 3; -7; 9; 5; -3; 6; 8; 17; 0; -15. Cho biết giá trị của m sau đoạn chương trình: m:=A[1]; For i:=1 to 10 do If A[i] > m then m := A[i]; A. 6 B. -15 C. 17 D. 3 Câu 17. Cho đoạn lệnh sau: Const n= 100; Var A: Array[1..n] of Byte; Kqua:byte; Begin …… For i: = 1 To n Do. Lop11.com.

<span class='text_page_counter'>(4)</span> ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 Kqua:=Kqua+A[i]; End; Chọn phương án em cho là đúng nhất khi chạy đoạn chương trình trên A. Tính tổng các phần tử trong mảng một chiều B. Tính tích các phần tử trong mảng một chiểu C. Sai về mặt ngữ nghĩa D. Tính tổng các phần tử trong mảng hai chiều Câu 18. Đoạn lệnh sau dùng để: Var St : String; Begin Write('st = '); Read(st); End; A. Nhập dữ liệu cho một bản ghi B. Nhập dữ liệu cho một xâu C. Nhập dữ liệu cho mảng một chiều D. Nhập dữ liệu cho mảng hai chiều Câu 19. Cho đoạn lệnh sau Gtri:=A[1]; For i:=2 To n Do If A[i]<Gtri Then Gtri:=A[i]; A. Để tìm giá trị không chia hết cho 2 của dãy B. Để tìm giá trị min của dãy C. Để tìm giá trị chia hết cho 2 của dãy D. Để tìm giá trị max của dãy Câu 20. Khai báo biến mảng một chiều trực tiếp trong Pascal A. Var <tên biến bảng>: array[kiểu chỉ số] of <kiểu phần tử>; B. Type <tên biến bảng>: array[kiểu chỉ số] of <kiểu phần tử>; C. Var <tên biến bảng>: array[kiểu chỉ số] : <kiểu phần tử>; D. Var <tên biến bảng>: array[kiểu chỉ hàng, kiểu chỉ số cột] of <kiểu phần tử>; Câu 21. Đoạn lệnh sau dùng để: Const n= 100; Var A: Array[1..n] of Byte; Begin For i: = 1 To n Do Write(A[i]); Writeln; End. A. In giá trị mảng một chiều ra màn hình B. In giá trị một bản ghi ra màn hình C. In giá trị mảng hai chiều ra màn hình D. In giá trị một xâu ra màn hình Câu 22. Khai báo biến mảng hai chiều trực tiếp trong Pascal A. Type <tên biến bảng>: array[chỉ số hàng, chỉ số cột] of <kiểu phần tử>; B. Var <tên biến bảng>: array[chỉ số hàng, chỉ số cột] : <kiểu phần tử>;. Lop11.com.

<span class='text_page_counter'>(5)</span> ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 C. Var <tên biến bảng>: array[chỉ số hàng] : <kiểu phần tử>; D. Var <tên biến bảng>: array[chỉ số hàng, chỉ số cột] of <kiểu phần tử>; Câu 23. Khi làm việc với các phần tử mảng 2 chiều, thường dùng vòng lặp ………. để duyệt A. Không cần dùng vòng lặp nào cả B. While .. Do C. For ... Do D. 2 Vòng lặp For ... Do Câu 24. Kết quả của biến s sau khi thực hiện đoạn chương trình sau : s:=1; For i:=1 To 10 Do s:=s+i; A. 56 B. 55 C. 57 D. 58 Câu 25. Kết quả của i sau khi thực hiện đoạn chương trình sau : i:=25; i:=sqrt(i)+1; i:=i+1; A. 1 B. 10 C. 25 D. 7 Câu 26: Kết quả của đoạn chương trình sau là: Var a, b :integer; Begin a:=10; b:=11; If a<b then write(-1) else write(1); End. A. -1 B. 1 C. Một giá trị khác D. Chương trình bị lỗi không thể chạy được Câu 27: Giá trị của s1 và s2 là ? Var i, s1, s2 :integer; Begin s1:=0; s2:=0; for i:=1 to 5 do begin s1:=s1 + 1; s2:= s2 + i; end; writeln(s1, ‘ ’,s2); end. A. (5,15) B. (4,15) C. (5, 16) D.(5, 14) Câu 28: Giá trị của biến S trong đoạn chương trình sau là: Var i, j, s :integer; Begin s:=0; for i:=1 to 2 do for j:=1 to 3 do s:=s + i; writeln(s); end. A. 6. B. 7. C. 8. D. 9. Lop11.com.

<span class='text_page_counter'>(6)</span> ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HỌC KỲ II NĂM HỌC 2009 - 2010 Câu 29: Giá trị của biến i là? Var i :integer; Begin i:=10; while i>0 do i:= i – 1; writeln(i); end. A. 1 B. 2 C. 3 D. 0 Câu 30: giá trị của biến I và dem trong đoạn chương trình sau là: Var i,dem: integer; Begin I:=10; dem:=0; While i>0 do Begin i:=i – 1; dem:=dem+1; end; writeln(i, ‘ ‘, dem); end. A. (0, 10) B. (10, 0) C. (1, 10) D. (10, 1) B. PHẦN TỰ LUẬN I. Kiểu dữ liệu mảng 1. Viết chương trình nhập vào mảng một chiều gồm n phần tử nguyên. Tính tổng các phần tử có trong mảng rồi đưa ra màn hình. 2.. Lop11.com.

<span class='text_page_counter'>(7)</span>