Đề thi Học kì 2 Tin học 11 có đáp án (Đề 4)
22 câu hỏi
Cho đoạn chương trình sau:
s1 := ‘abcd’; s2: ‘abab’;
if s1 > s2 then write(s1) else write(s2);
Kết quả in ra màn hình là:
‘abcd’
‘abab’
‘abcdabab’
‘abababcd’
Đáp án đúng : A
Cho s = ‘ABCDEF’, hàm copy (s, 4, 3) cho giá trị là:
‘ABC’
‘BCD’
‘CDE’
‘DEF’
Đáp án đúng : D
Cho s = ‘Xin chao Viet Nam’, hàm length(s) cho giá trị bằng:
15
16
17
18
Đáp án đúng : C
Cho đoạn chương trình sau:
s1 := ‘2345’; s2: ‘1234’;
if length(s1) > length(s2) then write(s1) else write(s2);
Kết quả in ra màn hình là:
‘2345’
‘1234’
‘23451234’
‘12342345’
Đáp án đúng : B
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Truyen Kieu’
copy(s, 12, 10);
copy(s, 13, 9);
delete(s, 12, 10);
delete(s,13, 9);
Đáp án đúng : C
Cho đoạn chương trình sau:
s1 := ‘123c’; s2 := ‘abcd’;
delete(s1, 1, 3);
write(pos (s1, s2));
Kết quả in ra màn hình là:
1
2
3
4
Đáp án đúng : C
Khai báo 2 biến xâu a, b nào sau đây là sai:
var a, b = string;
var a, b : string[15];
var a, b : string[25];
var a, b : string;
Đáp án đúng : A
Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:
Var f1. f2 : Text;
Var f1 ; f2 : Text;
Var f1 : f2 : Text;
Var f1 , f2 : Text;
Đáp án đúng : D
Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:
f1 := ‘DL.TXT’;
‘DL.TXT’ := f1;
Assign(f1, ‘DL.TXT’);
Assign(‘DL.TXT’, f1);
Đáp án đúng : C
Câu lệnh mở biến tệp f2 để ghi dữ liệu có dạng:
reset(f1);
rewrite(f1);
read(f1);
write(f1);
Đáp án đúng : B
Để ghi 2 biến CV và DT vào biến tệp f2 ta sử dụng câu lệnh:
write(f2, CV, DT);
read(f2, CV, DT);
writeln(CV, DT, f2);
readln(CV, DT, f2);
Đáp án đúng : A
Để biết con trỏ tệp đã ở cuối tệp f hay chưa, ta sử dụng hàm:
eof(f)
eoln(f)
Cả A, B đều đúng
Cả A, B đều sai
Đáp án đúng : A
Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f2 có dạng là 
ta sử dụng câu lệnh:
Read(f1, x, y, z);
Readln(x, y, z, f1);
write(f1, x, y, z);
writeln(x, y, z, f1);
Đáp án đúng : C
Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:
Tham số thực sự
Tham số giá trị
Tham số hình thức
Tham số biến
Đáp án đúng : A
Cho đoạn 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.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
2; 4; 6; 8; 10
1; 3; 5; 9
1; 3; 5; 7; 9
4; 6; 8; 10
Đáp án đúng : A
Tham số được khai báo trong chương trình chính được gọi là:
Tham số thực sự
Tham số hình thức
Tham số biến
Tham số giá trị
Đáp án đúng : B
Muốn khai báo y là tham số giá trị, x là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:
Procedure Hoan_doi (y : integer; Var x : integer);
Procedure Hoan_doi (x : integer; Var y : integer);
Procedure Hoan_doi (Var x, y : integer);
Procedure Hoan_doi (x, y : integer);
Đáp án đúng : A
Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:
Type
Begin
Var
Const
Đáp án đúng : C
Giả sử ta có hàm max(A, B: integer):integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?
max(A; B; c);
max(A; max(B, C);
max(A, B, C);
max(max(A, B),C);
Đáp án đúng : D
Cho chương trình sau:
procedure thutuc (a, b: integer);
Begin
…
End;
Trong chương trình chính có thể gọi lại chương trình con như thế nào:
thutuc;
thutuc(1, 2, 3);
thutuc (5, 10);
thutuc(5);
Đáp án đúng : C
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số chia hết cho 5 trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘hoc nua, hoc mai;
S2 := ‘hoc’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
a)
b)
