Nội dung trong tệp sẽ hiện ra trên màn hình b.. Nội dung trong tệp sẽ hiện ra trên màn hình b.. 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 c
Trang 1Kiể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:
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âu 4: Cho xâu s1= abc , s2= cabdeabcfabcg Hỏi Pos(s1,s2)=?’ ’ ’ ’
Câu 5: Cho xâu s= abc123d567fgh89 Hỏi Copy(s,2,5)=?’ ’
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)
Đ/á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?
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
Trang 2Kiể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)=?’ ’ ’ ’
Câu 6: Cho xâu s= abc123d567fgh89 Hỏi Copy(s,5,2)=?’ ’
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â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 (N≤200)
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)
Đ/án
Sau khi thực hiện chơng trình bên, nội dung của tệp Khoi11.txt nh
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
Trang 3Kiể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:
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)=?’ ’ ’ ’
Câu 6: Cho xâu s= abc123d567fgh89 Hỏi Copy(s,5,3)=?’ ’
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 (N≤200)
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)
Đ/á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?
Họ và tên:………
Lớp :…….