Câu 1
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’
Đáp án và lời giải
Đáp án: D
2/22 câu đang cập nhật đáp án (ghi rõ ở từng câu), chưa tính điểm; điểm tính trên 20 câu còn lại.
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’
Đáp án: D
Xâu rỗng là xâu có độ dài bằng:
Đáp án: A
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s2 , s1 , 2);
write(s2);
Kết quả in ra màn hình là:
Đáp án: D
Cho đoạn chương trình sau:
s := ’ABCDEF’;
delete(s, 3, 2);
insert(‘XYZ’, s, 2);
write(s);
Kết quả in ra màn hình là:
Đáp án: D
Cho đoạn chương trình sau:
s := ‘1001010’;
write(pos(‘012’, s));
Kết quả in ra màn hình là:
Đáp án: A
Cho đoạn chương trình sau:
s := ‘Mua xuan’;
write(upcase(s[length(s)]));
Kết quả in ra màn hình là:
Đáp án: D
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 quả in ra màn hình là:
Đáp án: B
Cho đoạn chương trình sau:
s:= ‘54321’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
Đáp án: B
Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:
Đáp án: D
Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:
Đáp án: C
Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:
Đáp án: B
Câu lệnh Reset(<biến tệp>) ; có ý nghĩa gì?
Đáp án: C
Câu lệnh dùng để ghi kết quả vào tệp văn bản có dạng:
Đáp án: D
Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:
Đáp án: A
Câu lệnh dùng thủ tục để đóng tệp có dạng:
Đáp án: D
Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác đọc dữ liệu từ tệp :
Đáp án: B
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:
Đáp án: B
Để khai báo thủ tục trong Pascal bắt đầu bằng:
Đáp án: A
Chương trình con gồm có: (chọn câu trả lời đúng nhất)
Đáp án: C
Chương trình con thực hiện một số thao tác nào đó và trả về một giá trị qua tên của nó là:
Đáp án: A
Viết các câu lệnh để ghi dữ liệu vào tệp “ketqua.txt” 2 biến T, S (sử dụng biến tệp f2).
Lời giải của đề gốc để bạn tự đối chiếu; câu tự luận không tính điểm.
Assign(f2,’ketqua.txt’);
Rewrite(f2);
Write(f2,T,S);
Close(f2);
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.
Lời giải của đề gốc để bạn tự đối chiếu; câu tự luận không tính điểm.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.