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: 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ả ‘Trai’
Đáp án: D
Xâu rỗng là xâu có độ dài bằng:
Đáp án: D
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s1 , s2 , 1);
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, 3);
write(s);
Kết quả in ra màn hình là:
Đáp án: A
Cho đoạn chương trình sau:
s:= ‘abcd’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
Đáp án: B
Cho đoạn chương trình sau:
s := ‘abcde’;
write(pos(‘aba’, 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)-3]));
Kết quả in ra màn hình là:
Đáp án: C
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: A
Trong PASCAL, cú pháp khai báo biến tệp văn bản là:
Đáp án: D
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 thủ tục để đóng tệp có dạng:
Đáp án: A
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
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 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 “DL.TXT” 2 biến x1, x2 (sử dụng biến tệp f).
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(f,’DL.TXT’);
Reset(f);
Read(f,x1,x2);
Close(f);
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ữ thường) 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’)
Dem:= Dem+1;
Writeln(Dem);
Readln
End.