Câu 1
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Trai’
Đáp án và lời giải
Đáp án: C
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ả ‘Trai’
Đáp án: C
Xâu rỗng là xâu có độ dài bằng:
Đáp án: B
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s1 , s2 , 2);
write(s1);
Kết quả in ra màn hình là:
Đáp án: C
Cho đoạn chương trình sau:
s := ’ABCDEF’;
delete(s, 3, 2);
insert(‘XYZ’, s, 1);
write(s);
Kết quả in ra màn hình là:
Đáp án: D
Cho đoạn chương trình sau:
s := ‘abcde’;
write(pos(‘cba’, 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)-2]));
Kết quả in ra màn hình là:
Đáp án: B
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
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:= ‘123456’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
Đáp án: D
Trong PASCAL, để khai báo biến tệp văn bản ta phải sử dụng cú pháp:
Đáp án: A
Câu lệnh Assign(<biến tệp> , <tên tệp) ; có ý nghĩa gì?
Đáp án: A
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 Rewrite(<biến tệp>) ; có ý nghĩa gì?
Đáp án: D
Câu lệnh dùng để đọc dữ liệu từ tệp văn bản có dạng:
Đáp án: B
Nếu hàm eoln( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:
Đáp án: C
Câu lệnh dùng để đóng tệp f1 là:
Đáp án: B
Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác ghi dữ liệu vào tệp :
Đáp án: C
C của việc sử dụng chương trình con:
Đáp án: D
Để khai báo hàm trong Pascal bắt đầu bằng từ khoá:
Đáp án: C
Chương trình con gồm có: (chọn câu trả lời đúng nhất)
Đáp án: C
Khi viết một chương trình muốn trả về một giá trị ta nên dùng:
Đáp án: A
Viết các câu lệnh để đọc dữ liệu từ tệp “dulieu.txt” 2 biến a, b (sử dụng biến tệp f1).
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(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);
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à dấu cách 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[i] =’ ‘ then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.