Violet
Sở GD & ĐT Hải Phòng
Trường THPT Trần Nhân Tông
Bộ Môn Tin Học

Bài kiểm tra
Môn: Tin học 11 – Trắc nghiệm
Thời gian: 15 phút
Đề gồm 01 trang – số câu hỏi 10 câu

Họ và tên:……………………………………………………….. Lớp:………

TRẮC NGHIỆM KIỂU XÂU:
Hãy chọn một câu trả lời thích hợp nhất
Câu 1: Cho biến SS kiểu lôgic. Lệnh nào làm SS có giá trị TRUE :
a) SS := `a` < `A`; b) SS := `A` = `a`;
c) SS := `an` < `a`; d) SS := `PASCAL` < `pascal`;
Câu 2: Cho khai báo :
    Var
      Ho, ten : String[15];
    -Lệnh nào sai :
a) Write(`Ho ten la : ` ; Ho ; Ten); b) Write(`Ho ten la : ` + Ho + Ten);
c) Write(`Ho ten la : `, Ho , Ten); d) Write(`Ho ten la : `, Ho + Ten);
Câu 3: Cho khai báo :
    Var
      Chuoi : string[10];
      x : real;
    -Lệnh nào đúng :
a) Chuoi := Str(x:5:2) ; b) Str(x:5:2, Chuoi);
c) Chuoi := x ; d) x := Chuoi ;
Câu 4: Cho St là biến chuỗi, sau khi thực hiện hai lệnh :
    St:= Copy( `PASCAL VERSION 5.5` , 8, 7) ;
    Write(St);
    -Kết qủa in lên màn hình là:
a)VERSION 5.5 b) VERSION c) PASCAL d) 5.5
Câu 5: Cho St là biến chuỗi, sau khi thực hiện bốn lệnh:
    St:=’ABCDEF’;
    Delete(St, 3, 2);
    Insert(‘XYZ’, St, 2);
    Write(St);
    -Kết qủa in lên màn hình là:
a) ABXYZEF b) AXYZBCDEF c) AXYZ d) AXYZBEF
Câu 6: Cho i và x là hai biến kiểu nguyên. Khi thực hiện lệnh :
    VAL(`1234`, x, i);
    -Gía trị của x và i là bao nhiêu :
a) x = 0 , i = 1234 b) x = 1234 , i = 4
c) x = 1234 , i = 0 d) x = 0 , i = 0
Câu 7: Cho các biến St chuỗi và k nguyên. Sau khi gán:
    St:=`Sinh vien Tin hoc hoc Tin hoc`;
    k := Pos(`Tin`, ST) ;
    -Giá trị của k là :
a) k=13 b) k=11 c) k=26 d) k=23

Câu 8: Khi chạy chương trình :
    Var
      St : string;
      i, L : integer;
    Begin
      St :=`Hoc thay khong tay hoc ban’; L:=Length(St);
      For i := 1 to L do
        If (St[i] >= `a`) and (St[i] <= `z`) then St[i]:= Upcase (St[i]);
      Write (St);
    End.
    -Chương trình in ra :
a) Hoc Thay Khong Tay Hoc Ban b) hoc thay khong tay hoc ban
c) Hoc thay khong tay hoc ban d) HOC THAY KHONG TAY HOC BAN

Câu 9: Khi chạy chương trình :
    Var
      St : String;
      i,L : integer;
    Begin
      St:=`ABCD`; L := Length(St);
      For i:= L Downto 1 do write (St[i]);
    End.
    -Chương trình in ra :
a) DCAB b) ABCD c) 4321 d) DCBA
Câu 10: Cho St là biến chuỗi và St:=’AAABAAB’;
    Sau khi thực hiện hai lệnh :
    While St[1]=’A’ do Delete(St,1,1);
    Write(St);
    Kết qủa in ra là:
a) AABAAB b) BAAB c) BB d) AAA