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, 1, 6);
B delete(s, 7, 5);
C Cả A, B
D Cả A, B sai
Câu 2: Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’; insert (s2 , s1 , 1); write(s1);
Kết in hình là: A ‘123abc’
B ‘abc’
C ‘123’
D ‘abc123’
Câu 3: Xâu rỗng xâu có độ dài bằng:
A
B
C
D
Câu 4: Cho đoạn chương trình sau:
(2)delete(s, 3, 2); insert(‘XYZ’, s, 4); 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(‘011’, 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)-1])); Kết in hình là: A ‘X’
B ‘U’
C ‘A’
(3)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:= ‘edcba’;
For i:= length(s) downto write(s[i]); Kết in hình là:
A ‘abcd’
B ‘dcba’
C ‘abcde’
D ‘edcba’
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 Thủ tục đóng tệp
D Khai báo biến 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:
A <biến tệp> := <tên tệp>;
(4)C assign(<biến tệp> , <tê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
Câu 15: Câu lệnh dùng để đóng tệp f2 là:
(5)B Stop(f2):
C Close(f2);
D Stop((f2);
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 Gắn tên tệp => Mở tệp => Đọc liệu từ tệp => Đóng tệp
C Mở tệp => Đọc liệu từ tệp => Gắn tên tệp => Đóng tệp
D Gắn tên tệp => Đọc liệu từ tệp => Mở 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 Tránh việc phải viết lặp lặp lại dãy lệnh
C Hỗ trợ việc viết chương trình có cấu trúc cấu trúc lặp, rẽ nhánh
D Khơng có lợi ích
Câu 18: Để khai báo thủ tục Pascal bắt đầu bằng:
A Procedure
B Program
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
C Hàm thủ tục
(6)Câu 20: Chương trình thực thao tác định không trả về 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 KQ.TXT biến C, V (sử dụng biến tệp f)
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ự số có xâu
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a)
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End
Đáp án & Thang điểm
(7)Phần II Tự luận
Bài
Assign(f,’KQ.TXT’);
Rewrite(f);
Write(f,C,V);
Close(f);
Bài 2.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a)
If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;
Writeln(Dem);
(8)