Bt pascal

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 02 trang – số câu hỏi 10 câu

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

TRẮC NGHIỆM KIỂU BẢN GHI
Câu 1: Chọn khai báo đúng :
a)Type  Phanso = Record
             Tu, Mau: Integer;
           end ;
b) Type  Phan  so = Record
           Tu  so, Mau  so : Integer;
          end;

c)Var  Phanso = Record ;
            Tu, Mau: Integer;
          end ;
d) Type  Record = Phanso ;
             Tu, Mau : Integer;
          end;


Câu 2: Chọn khai báo đúng :
a)Type DIEM = Record
              x,y : Real;

b)Type DIEM = Record
              x,y : Real;
            end;

c) Type  DIEM = Record
              x, y ;
            end;
d)DIEM = Record
           x, y : Real;
        end;


Câu 3: Cho khai báo :
    Type HS = Record
        Ten :String[20];
        Dtb:Real;
      end;
    Var X, Y : HS ;
    -Chọn câu đúng :
a) HS.Dtb:= 4.5 ; b) X.Dtb:=’ Nguyen An’;
c) X.Ten:=’Nhu Quynh’; d) X := Y.Dtb;

Câu 4: Cho khai báo :
    Type HS = Record
          Ten :String[20];
          Dtb:Real;
        end;
    Var X : HS ;
    -Chọn câu đúng :
a) With X do Dtb:= 4.5 ; b) Dtb:= 4.5 ;
c) With HS do Dtb:=4.5 ; d) X := 4.5 ;

Câu 5: Cho khai báo :
    Type HOCSINH = Record
          Ten, Maso : String[10];
         end;
    -Câu nào đúng :
a)Var A : array [1..10] of Record; b)Var A : array [1..10] of HOCSINH;
c)Var A: array[1..10] of Ten ; d)A: array[1..10] of Maso ;

Câu 6: Khi chạy chương trình :
    Type Vector = Record
           x, y : Integer;
         end;
    Var A, B : Vector ;
    Begin
      A.x := 2 ; A.y := 1;
      B.x := -1; B.y := -3 ;
      Write( A.x*B.x+A.y*B.y) ;
    End.
    -Kết qủa in ra là:
a)2 b)-5 c) -7 d) -3

Câu 7: Khi chạy chương trình :
    Type Vector = Record
            x, y : Integer;
         end;
    Var A, B : Vector ;
    Begin
      A.x := 2 ; A.y := 4;
      B.x := -1; B.y := 0 ;
      Write( Sqr( A.x-B.x) + Sqr(A.y-B.y) );
    End.
    -Kết qủa in ra là:
a) 5 b) 16 c) 9 d) 25

Câu 8: Cho khai báo :
    Type Vector = Record
            x, y : Integer;
          end;
    Var  S : Array[1..4] of Vector ;
      i : Integer ;
    -Lệnh nào đúng :
a) For i:=1 to 4 do S[i].x:= 3; y=4;
b) For i:=1 to 4 do With S[i] do x:= 3; y=4;
c) For i:=1 to 4 do begin S[i].x:= 3; S[i].y:=4; end ;
d) For i:=1 to 4 do begin S.x:= 3; S.y=4; end;

Câu 9: Cho khai báo :
    Type  Sach = Record
            Masach : String[4];
            Gia: Real;
          end;
    Var DS : Array[1..10] of Sach ;
        Tien: Real; i : Integer ;
    -Lệnh nào đúng :
a) For