Câu 17: Chọn phát biểu đúng trong các phát biểu dưới đây khi nói về lợi ích của việc sử dụng chương trình con:. A[r]
(1)Đề kiểm tra Tin học 11 - Học kì 1
Thời gian làm bài: 45 phút
Phần I Trắc nghiệm
Câu 1: Cho xâu kí tự sau: s:= ‘Nguyen Trai’ Lệnh sau cho kết quả ‘Nguyen’
A copy(s, 6, 1);
B delete(s, 5, 7);
C Cả A, B
D Cả A, B sai
Câu 2: Xâu rỗng xâu có độ dài bằng:
A
B
C
D
Câu 3: Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’; insert(s2 , s1 , 2);
write(s2);
Kết in hình là: A ‘a123bc’
B ‘1abc23’
C ‘123’
D ‘abc’
(2)s := ’ABCDEF’; delete(s, 3, 2); insert(‘XYZ’, s, 2); write(s);
Kết in hình là: A ‘ABXYZEF’
B ‘ABEXYZF’
C ‘AXYZ’
D ‘AXYZBEF’
Câu 5: Cho đoạn chương trình sau:
s := ‘1001010’; write(pos(‘012’, s));
Kết in hình là: A
B ‘0’
C
D ‘3’
Câu 6: Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)])); Kết in hình là: A ‘X’
B ‘U’
(3)D ‘N’
Câu 7: Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2); Kết in hình là:
A ‘1234’
B ‘abc’
C ‘1234abc’
D ‘abc1234’
Câu 8: Cho đoạn chương trình sau:
s:= ‘54321’;
For i:= length(s) downto write(s[i]); Kết in hình là:
A ‘123456’
B ‘12345’
C ‘54321’
D ‘654321’
Câu 9: Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:
A Thủ tục gắn tên tệp cho tên biến tệp
B Thủ tục mở tên để đọc liệu
C Khai báo biến tệp
D Thủ tục đóng tệp
Câu 10: Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:
(4)B assign(<biến tệp> , <tên tệp>);
C <tên tệp> := <biến tệp>;
D assign(<tên tệp> , <biến tệp>);
Câu 11: Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:
A assign(bai1.txt, f);
B assign( f, bai1.txt);
C assign( f, ‘bai1.txt’);
D assign(‘bai1.txt’, f);
Câu 12: Câu lệnh Reset(<biến tệp>) ; có ý nghĩa gì?
A Thủ tục gắn tên tệp cho tên biến tệp
B Khai báo biến tệp
C Thủ tục mở tên để đọc liệu
D Thủ tục đóng tệp
Câu 13: Câu lệnh dùng để ghi kết vào tệp văn có dạng:
A Read(<tên tệp>, <danh sách kết quả>);
B Read(<tên biến tệp>, <danh sách kết quả>);
C Write(<tên tệp>, <danh sách kết quả>);
D Write(<tên biến tệp>, <danh sách kết quả>);
Câu 14: Nếu hàm eof( ) cho giá trị true trỏ tệp nằm vị trí:
A Cuối tệp
B Đầu dòng
C Đầu tệp
D Cuối dòng
(5)A Close(<tên tệp>);
B Stop(<biến tệp>);
C Stop((<tên tệp>);
D Close(<biến tệp>);
Câu 16: Hãy chọn thứ tự hợp lí thực thao tác đọc liệu từ tệp :
A Mở tệp => Gắn tên tệp => Đọc liệu từ tệp => Đóng tệp
B Mở tệp => Đọc liệu từ tệp => Gắn tên tệp => Đóng tệp
C Gắn tên tệp => Đọc liệu từ tệp => Mở tệp => Đóng tệp
D Gắn tên tệp => Mở tệp => Đọc liệu từ tệp => Đóng tệp
Câu 17: Chọn phát biểu phát biểu nói lợi ích việc sử dụng chương trình con:
A Để chương trình gọn
B Hỗ trợ việc viết chương trình có cấu trúc cấu trúc lặp, rẽ nhánh
C Tránh việc phải viết lặp lặp lại dãy lệnh
D Khơng có lợi ích
Câu 18: Để khai báo thủ tục Pascal bắt đầu bằng:
A Program
B Procedure
C Function
D Var
Câu 19: Chương trình gồm có: (chọn câu trả lời nhất)
A Hằng biến
B Hàm
(6)D Hàm thủ tục
Câu 20: Chương trình thực số thao tác trả giá trị qua tên là:
A Hàm
B Thủ tục
C Cả A B
D Đáp án khác
Phần II Tự luận
Bài (2 điểm) Viết câu lệnh để ghi liệu vào tệp “ketqua.txt” biến T, S (sử dụng biến tệp f2)
Bài (3 điểm) Viết chương trình:
Nhập vào xâu kí tự
Đếm in hình số kí tự chữ (chữ hoa) có xâu
Đáp án & Thang điểm
Phần I Trắc nghiệm
Phần II Tự luận
(7)Assign(f2,’ketqua.txt’);
Rewrite(f2);
Write(f2,T,S);
Close(f2);
Bài 2.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a)
If (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.