Tiết dạy đạt GVDG cấp tỉnh Bắc Ninh năm 2011

BÀI TẬP TRẮC NGHIỆM
Câu 1: Chọn khai báo đúng :
a) Var A: array[1..10] of integer; c) Var A:= array[1..10] of integer;
b) Var A= array[1..10] of integer; d) Var A: array[1,10] of integer;
Câu 2: Cho khai báo
Var A: Array[1..4] of Real
i : Integer ;
Ðể nhập dữ liệu cho A, chọn câu nào :
a) Write(‘ Nhập A:’); Readln(A)
b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);
c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;
d) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);
Câu 3: Cho khai báo biến :
Var A : array[1..5] of Integer;
a) A[1] := 4/2 ;
b) A[2] := -6 ;
c) A(3) := 6 ;
d) A := 10 ;

Hãy chọn phép toán gán đúng?
Câu 4: Khai báo nào đúng :
a) Var A : array[1..n,1..m] of integer;
b) Const n=2; m=3; Var A: array[1..n,1..m] of integer;

c) Var A: array[3, 2] of Integer;
d) Var n, m : integer ; A: array[1..n,1..m] of integer;


Câu 5: Cho khai báo :
    Var A : array[1..2,1..3] of Real;
      i, j : integer;
    Ðể nhập dữ liệu cho ma trận A, chọn
a) Write(‘ Nhập A:’); Readln(A) ;
b) For i:=1 to 2 do Readln(A[i, j]);

c) For i:=1 to 2 do
     For j:=1 to 3 do
      begin
        write(‘Nhập A[‘, i, j, ‘]:’);
        readln(A[i, j]);
      end;
d) For i:=1 to 2 do
    For j:=1 to 3 do
       write(‘Nhập A[‘, i, j, ‘]:’);
       readln(A[i, j]);



Câu 6: Cho khai báo :
    Var A : array[1..2,1..3] of Real;
      i, j : integer; Max : Real;
    Ðể tìm số lớn nhất của ma trận A, chọn câu nào:
a) Max:=A[1,1];
    If Max < A[i,j] then Max:=A[i,j];
b) Max:=A[1,1];
    For i:=1 to 2 do
      if Max < A[i,j] then Max:=A[i,j];


c) A[1,1]:=Max ;
    For i:=1 to 2 do
    For j:=1 to 3 do
     if Max< A[i,j] then A[i,j]:=Max;

d) Max:=A[1,1];
     For i:=1 to 2 do
     For j:=1 to 3 do
       if Max < A[i,j] then Max:=A[i,j];



Câu 7: Cho biến SS kiểu lôgic. Lệnh nào làm SS có gía trị là TRUE :

a) SS := `a` < `A`;
b) SS := `A` = `a`;
c) SS := `an` < `a`;
d) SS := `PASCAL` < `pascal`;


Câu 8: Cho St là biến xâu, 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 9: Cho St là biến xâu, 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 10: