Kiểm tra học kỳ II - lớp 11 Môn: Tin học Phần I: Trắc nghiệm ( 5 điểm): Câu 1: Chơng trình sau làm việc gì? Var A: array[1 50] of byte; Begin For i:= 1 to 10 do write(A[i], ); Readln End. Câu 2: Để gán một tệp có tên là HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: a. Assign(K2, hocky2.int); b. Assign(K2, hocky2.int); c. Assign(hocky2.int, K2); d. Assign(hocky2.int, k2); Câu 3: Số lợng phần tử của tệp a. Không bị giới hạn mà chỉ phụ thuộc vào dung lợng đĩa b. Không đợc lớn hơn 255 c. Không đợc lớn hơn 128 d. Phải đợc khai báo trớc. Câu 4: Cho xâu s1= abc , s2= cabdeabcfabcg . Hỏi Pos(s1,s2)=? a.2 b. 6 c. 7 d. 10 Câu 5: Cho xâu s= abc123d567fgh89 . Hỏi Copy(s,2,5)=? a. c123d b. 23 c. c123d d. bc123 Câu 6: Giả sử một tệp nào đó đã đợc gán cho biến tệp f. Khi ta mở lệnh bằng thủ tục ReWrite(f), thì: a. Nội dung trong tệp sẽ hiện ra trên màn hình b. Nội dung trong tệp vẫn còn nguyên c. Nội dung trong tệp nếu có sẽ bị xoá d. Tất cả đều sai. Câu 7: Câu lệnh dùng thủ tục ghi có dạng: a. Writeln(<biến tệp>, <danh sách kết quả>); b. Writeln(<danh sách kết quả>,(<biến tệp>); c. Writeln(<biến tệp>); d. Writeln(<danh sách kết quả>); Câu 8: Dữ liệu kiểu tệp: a. đợc lu trữ trên RAM b. chỉ đợc lu trữ trên đĩa cứng c. đợc lu trữ trên ROM d. đợc lu trữ trên bộ nhớ ngoài. Câu 9: Thủ tục mở một tệp để đọc thông tin trong tệp là: a. Rewrite(<tên tệp>); b. Rewrite(<tên biến tệp>); c. Reset(<tên biến tệp>); d. Reset(<tên tệp>); Câu 10: Đọc chơng trình sau: Var g:text; I:integer; Begin Assign(g, C:\DLA.txt); Rewrite(g); For i:=1 to 10 do If i div 3 = 2 then write(g, i); Close(g); Readln End. II. Tự luận (5đ) Viết chơng trình gồm các chơng trình con làm các việc sau: a. Nhập vào 1 xâu kí tự từ bàn phím (độ dài lớn nhất của xâu là 60) và 1 kí tự bất kỳ (kí hiệu là kí tự ch) b. Đếm trong xâu có bao nhiêu kí tự ch. c. Xoá hết các dấu cách trong xâu (nếu có). d. Kiểm tra xâu có phải là xâu đối xứng hay không (xâu sau khi đã xoá dấu cách). e. Kiểm tra 1 xâu a đợc nhập từ bàn phím có trong xâu nhập ở câu a hay không. Nếu có thì xâu a xuất hiện mấy lần. Bài làm (Trắc nghiệm) Câu 1 2 3 4 5 6 7 8 9 10 Đ/án Sau khi thực hiện chơng trình bên, nội dung của tệp DLA.txt gồm những phần tử nào? a. 2; 5; 8 b. 5; 8 c. 7; 8 d. 6; 7; 8 Họ và tên : Lớp:. a. Nhập các phần tử cho mảng A b. Tính tổng các phần tử của mảng A c. Đa các phần tử của mảng A ra màn hình d. Đếm số phần tử của mảng A Kiểm tra học kỳ II - lớp 11 Môn: Tin học Phần I: Trắc nghiệm ( 5 điểm): Câu 1: Để gắn tệp KQ.txt cho biến tệp f1 ta sử dụng câu lệnh: a. KQ.txt:= f1; b. Assign (f1. KQ.txt); c. Assign (KQ.txt, f1); d. f1:=KQ.txt; Câu 2: Khi ta mở lệnh bằng thủ tục Rewirte, thì: a. Nội dung trong tệp sẽ hiện ra trên màn hình b. Nội dung trong tệp vẫn còn nguyên c. Nội dung trong tệp sẽ bị xoá d. Tất cả đều sai. Câu 3: Chơng trình sau làm việc gì? Var A: array[1 50] of byte; Begin Readln(n); For i:= 1 to n do begin write( A[ ,i, ]= );readln(A[i]); end; End. Câu 4: Thủ tục mở một tệp để ghi thông tin từ ngoài vào tệp là: a. Rewrite( <tên tệp>); b. Rewrite( <tên biến tệp>, <tên tệp>); c. Rewrite( <tên biến tệp>); d. Rewrite( <tên tệp>, <tên biến tệp>); Câu 5: Cho xâu s1= 123 , s2= a123b12b3123cfabcg . Hỏi Pos(s1,s2)=? a.2 b. 6 c. 7 d. 9 Câu 6: Cho xâu s= abc123d567fgh89 . Hỏi Copy(s,5,2)=? a. c123d b. 23 c. c123d d. bc123 Câu 7: Số lợng phần tử của tệp a. Không bị giới hạn mà chỉ phụ thuộc vào dung lợng đĩa b. Không đợc lớn hơn 255 c. Không đợc lớn hơn 128 d. Phải đợc khai báo trớc. Câu 8: Thủ tục mở một tệp để đọc thông tin trong tệp là: a. Rewrite(<tên tệp>); b. Rewrite(<tên biến tệp>); c. Reset(<tên biến tệp>); d. Reset(<tên tệp>); Câu 9: Phát biểu nào sau đây là chính xác khi nói về hàm EOF(<biến tệp>): a. Hàm cho giá trị True nếu con trỏ tệp ở vị trí kết thúc tệp b. Hàm cho giá trị False nếu con trỏ tệp ở vị trí kết thúc tệp c. Hàm cho giá trị False nếu con trỏ tệp ở vị trí kết thúc dòng d. Hàm cho giá trị True nếu con trỏ tệp ở vị trí kết thúc dòng Câu 10: Đọc chơng trình sau: Var f:text; Begin Assign(g, Khoi11.txt); Rewrite(f); Write(f, 150+200 - 100); Close(g); Readln End. II. Tự luận (5đ) Viết chơng trình gồm các chơng trình con làm các việc sau: a. Nhập vào mảng 1 chiều gồm N số nguyên (N200) b. Đếm trong mảng có bao nhiêu phần tử bằng không, bao nhiêu phần tử âm, bao nhiêu phần tử dơng. c. In ra màn hình các phần tử là bội của một số nguyên k (k đợc nhập từ bàn phím) d. Sắp xếp mảng theo thứ tự không tăng. Bài làm (Trắc nghiệm) Câu 1 2 3 4 5 6 7 8 9 10 Đ/án Sau khi thực hiện chơng trình bên, nội dung của tệp Khoi11.txt nh thế nào? a. 250 b. 150 200 100 c. 150+200-100 d. 150200100 Họ và tên : Lớp:. a. Nhập n phần tử cho mảng A b. Tính tổng các phần tử của mảng A c. Đa các phần tử của mảng A ra màn hình d. Đếm số phần tử của mảng A Kiểm tra học kỳ II - lớp 11 Môn: Tin học Phần I: Trắc nghiệm ( 5 điểm): Câu 1: Để gán một tệp có tên là HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: a. Assign(K2, hocky2.int); b. Assign(K2, hocky2.int); c. Assign(hocky2.int, K2); d. Assign(hocky2.int, k2); Câu 2: Khi ta mở lệnh bằng thủ tục Reset, thì: a. Nội dung trong tệp sẽ hiện ra trên màn hình b. Nội dung trong tệp vẫn còn nguyên c. Nội dung trong tệp sẽ bị xoá d. Tất cả đều sai. Câu 3: Dữ liệu kiểu tệp: a. đợc lu trữ trên RAM b. chỉ đợc lu trữ trên đĩa cứng c. đợc lu trữ trên ROM d. đợc lu trữ trên bộ nhớ ngoài. Câu 4: Phát biểu nào sau đây là chính xác khi nói về hàm EOF(<biến tệp>): a. Hàm cho giá trị True nếu con trỏ tệp ở vị trí kết thúc tệp b. Hàm cho giá trị False nếu con trỏ tệp ở vị trí kết thúc tệp c. Hàm cho giá trị False nếu con trỏ tệp ở vị trí kết thúc dòng d. Hàm cho giá trị True nếu con trỏ tệp ở vị trí kết thúc dòng Câu 5: Cho xâu s1= 12 , s2= a21b12b123cfab . Hỏi Pos(s1,s2)=? a.2 b. 5 c. 8 d. 9 Câu 6: Cho xâu s= abc123d567fgh89 . Hỏi Copy(s,5,3)=? a. 123 b. 3d5 c. 23d d. bc123 Câu 7: Câu lệnh dùng thủ tục đọc có dạng: a. Read(<danh sách biến>, <biến tệp>); b. Read(<biến tệp>,<danh sách biến>); c. Read(<biến tệp>) d. Read(<danh sách biến>); Câu 8: Câu lệnh dùng thủ tục ghi có dạng: a. Writeln(<biến tệp>, <danh sách kết quả>); b. Writeln(<danh sách kết quả>,(<biến tệp>); c. Writeln(<biến tệp>); d. Writeln(<biến tệp>, <danh sách kết quả>) Câu 9: Đọc chơng trình sau: Var g:text; I:integer; Begin Assign(g, C:\DLA.txt); Rewrite(g); For i:=1 to 10 do If i mod 2 <> 0 then write(g, i); Close(g); Readln End. Câu 10: Thủ tục mở một tệp để đọc thông tin trong tệp là: a. Rewrite(<tên tệp>); b. Rewrite(<tên biến tệp>); c. Reset(<tên biến tệp>); d. Reset(<tên tệp>); II. Tự luận (5đ) Viết chơng trình gồm các chơng trình con làm các việc sau: a. Nhập vào mảng 1 chiều gồm N số nguyên (N200) b. Đếm trong mảng có bao nhiêu phần tử vừa chia hết cho 2, vừa chia hết cho 3 c. In ra màn hình vị trí các phần tử là bội của số nguyên k (k đợc nhập từ bàn phím) d. Tìm phần tử lớn nhất và bé nhất của mảng. Bài làm (Trắc nghiệm) Câu 1 2 3 4 5 6 7 8 9 10 Đ/án Sau khi thực hiện chơng trình bên, nội dung của tệp DLA.txt gồm những phần tử nào? a. 1; 3; 5;7, 9 b. 1; 3; 5;9 c. 2; 4; 6; 8;10 d. 4; 6; 8;10 Họ và tên : Lớp:. . gán một tệp có tên là HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: a. Assign(K2, hocky2.int); b. Assign(K2, hocky2.int); c. Assign(hocky2.int, K2); d. Assign(hocky2.int, k2); Câu 3: Số lợng phần. lớp 11 Môn: Tin học Phần I: Trắc nghiệm ( 5 điểm): Câu 1: Để gán một tệp có tên là HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: a. Assign(K2, hocky2.int); b. Assign(K2, hocky2.int); c. Assign(hocky2.int,. tệp>); Câu 5: Cho xâu s1= 123 , s2= a 123 b12b3 123 cfabcg . Hỏi Pos(s1,s2)=? a .2 b. 6 c. 7 d. 9 Câu 6: Cho xâu s= abc 123 d567fgh89 . Hỏi Copy(s,5 ,2) =? a. c 123 d b. 23 c. c 123 d d. bc 123 Câu 7: Số lợng phần