Ctcn

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: 45 phút
Đề gồm 04 trang


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

TRẮC NGHIỆM VỀ CHƯƠNG TRÌNH CON
Câu 1: Cho khai báo của một hàm:
    Function F( k : Integer) : String ;
      Begin
        If k mod 2=0 then F:=’Chan’ else F:=’Le’;
      End;
    Muốn gán X:= F(5); thì biến X phải khai báo kiểu gì :
a) Var X: Real; b) Var X: String; c) Var X: Integer; d) Var X : Char;
Câu 2: Cho khai báo đầu của một hàm:
    Function F( k : Integer) : String ;
      Begin
        If k mod 2=0 then F:=’Chan’ else F:=’Le’;
      End;
    Muốn in Write( F(y) ); thì biến y phải khai báo kiểu gì :
a) Var y : Real; b) Var y : String; c) Var y : Integer; d) Var y : Char;
Câu 3: Cho khai báo biến và khai báo đầu của thủ tục TT:
    Var
      x, y : Integer ; St :String ;
    Procedure TT( Var a : Integer ; b : String);
    -Lệnh nào đúng :
a) TT(x +1, St) ; b) TT(10, St) ; c) TT(x, St) ; d) y:= TT(St, x) ;
Câu 4: Khi chạy chương trình :
    Var x, y : Real;
    Function F(x, y:Real):Real;
      Begin
        F:=x;
        If x < y then F := y;
      End;
    BEGIN
      x:=10; y:=15;
      Write(F(x, y): 0:0);
    END.
    -Kết qủa in ra:
a) 10 b) 15 c) 0 d) F(x,y)
Câu 5: Cho a là biến nguyên a=3, và khai báo thủ tục :
    Procedure TT( x : Integer) ;
      Begin
        x:=x+2;
      End;
    Sau khi gọi thủ tục TT(a); thì Giá trị của biến a là :
a) 2 b) 5 c) 3 d) 0
Câu 6: Cho x, y là hai biến nguyên và khai báo thủ tục :
    Procedure Doicho( Var a : Integer; b : Integer);
    Var z : Integer;
    Begin
      z:=a; a:=b; b:=z;
    End;
    -Sau khi thực hiện các lệnh:
    x:=7; y:=3;
    Doicho(x, y);
thì giá trị của x, y là:
a) x=7, y=7 b) x=3, y=3 c) x=3, y=7 d) x=7, y=3
Câu 7: Cho khai báo hàm đệ quy :
    Function F( a : Integer) : Integer;
      Begin
        If a=1 then F:=1 else F:= a*a+ F(a-1);
      End;
    Giá trị của hàm F(4) là:
a) 1 b) 25 c) 14 d) 30
Câu 8: Khi chạy chương trình :
    Var x : Integer;
    Procedure TT ;
      Begin
      x:=4; x:= x+5;
      End;
    BEGIN
      x:=0; TT; Write(x);
    END.
    -Kết quả in ra là:
a) 4 b) 5 c) 9 d) 0
Câu 9: Khi chạy chương trình :
    Var x : Integer;
    Procedure TINH ;
      Var  x: Integer ;
      Begin
        x:=1; x:= x+12;
      End;
    BEGIN
      x:=10; TINH; Write(x);
    END.
    -Kết quả in ra là:
a) 10 b) 12 c) 22 d) 13
Câu 10: Khi chạy chương trình :
    Var x : Integer;
    Procedure TTA ;
      Var x : Integer;
      Begin
        x:= 7* 5; Write