Đề bài kiểm tra 1 tiết (lần 2)

1. PhÇn Tr¾c nghiÖm:

C©u 1: Trong NNLT Pascal, h·y chän c©u tr¶ lêi ®óng:

A)   C¸c phÇn tö cña m¶ng 1 chiÒu ®­îc s¾p xÕp thø tù theo chØ sè.

B)    C¸c phÇn tö cña m¶ng 1 chiÒu ®­îc s¾p xÕp thø tù theo gi¸ trÞ gi¶m dÇn.

C)    C¸c phÇn tö cña m¶ng 1 chiÒu ®­îc s¾p xÕp thø tù theo gi¸ trÞ t¨ng dÇn.

D)   C¸c phÇn tö cña m¶ng 1 chiÒu kh«ng s¾p xÕp thø tù.

C©u 2: Trong NNLT Pascal, ®Ó ®æi hai phÇn tö m¶ng 1 chiÒu A t¹i hai vÞ trÝ i, j ta viÕt m· lÖnh nh­ sau:

C©u 3: Cho ch­¬ng tr×nh ch­a hoµn thiÖn sau:

VAR   a: array[1..100, 1..100] of integer;

            i , j , n , m , dem , s : integer;

BEGIN

  write(’ Nhap vao so hang: ’); readln(n);

  write(’ Nhap vao so cot: ’); readln(m);

       for i:= 1 to n do

           for j:= 1 to m do

               Begin

                   write(’Gia tri A[’,i,’,’,j,’]: ’); readln(a[i,j]);

               End;

        …………….

        …………….

      writeln(’ Mang co ’, dem, ’ so am’);

       writeln(’tong cac so am la: ’,s);

    readln;

END.

Anh (chÞ) h·y viÕt thªm m· lÖnh vµo nh÷ng chç cßn thiÕu ®Ó ®­îc ch­¬ng tr×nh ®Õm xem trong m¶ng 2 chiÒu cã bao nhiªu sè ©m vµ tÝnh tæng cña chóng.

C©u 4: Trong NNLT Pascal, x©u kÝ tù kh«ng cã kÝ tù nµo gäi lµ?

 A) X©u kh«ng. B) X©u rçng.

 C) X©u tr¾ng. D) Kh«ng ph¶i x©u kÝ tù.

C©u 5: Trong NNLT Pascal, thñ tôc Delete(a,b,c) thùc hiÖn c«ng viÖc trong c¸c viÖc sau?

A)  Xo¸ trong x©u c ®i a kÝ tù, b¾t ®Çu tõ vÞ trÝ b.

B)   Xo¸ trong x©u a ®i c kÝ tù, b¾t ®Çu tõ vÞ trÝ b.

C)   Xo¸ trong x©u c ®i b kÝ tù, b¾t ®Çu tõ vÞ trÝ a.

D)  Xo¸ trong x©u b ®i c kÝ tù, b¾t ®Çu tõ vÞ trÝ a.

   C©u 6: Trong NNLT Pascal, phÇn tö ®Çu tiªn cña x©u kÝ tù mang chØ sè lµ:

 A) 0. B) do ng­êi lËp tr×nh khai b¸o.

 C) 1. D) kh«ng cã chØ sè.

    C©u 7: Ch­¬ng tr×nh sau thùc hiÖn nhiÖm vô g×?

    VAR   s : string;

               i , j , n : integer;

     BEGIN

        write(’ Nhap vao xau S: ’); readln(s);

            for i:= 1 to length(s) do

                 Begin

                     for j:= length(s) downto i + 1 do

                         if s[i] = s[j] then

                               delete(s,j,1);

                 End;

          for i:= 1 to length(s) do

            write(s[i]);

        readln;

     END.

A)  Xo¸ ®i c¸c kÝ tù trïng nhau liªn tiÕp trong x©u S.

B)   Xo¸ tÊt c¶ c¸c kÝ tù trïng nhau trong x©u S.

A)  C¸c kÝ tù trïng nhau, xo¸ hÕt chØ ®Ó l¹i 1 kÝ tù. X©u sau khi xö lý chøa c¸c kÝ tù kh¸c nhau.

B)   Xo¸ tÊt c¶ c¸c kÝ tù trïng nhau kh«ng liªn tiÕp.

1. PhÇn tù luËn:

C©u 8: Anh (chÞ) h·y viÕt ch­¬ng tr×nh: tÝnh diÖn tÝch h×nh thang ABCD (AB // CD). C¸c th«ng tin nhËp tõ bµn phÝm m¸y tÝnh. 

C©u 9: Anh (chÞ) h·y viÕt ch­¬ng tr×nh nhËp 1 x©u bÊt k× tõ bµn phÝm vµ ®­a ra mµn h×nh x©u thu ®­îc sau khi lo¹i bá c¸c dÊu c¸ch (nÕu cã).

VD:  input:  ’a   b     c’.

        output: ’abc’.

C©u 10: NhËp vµo tõ bµn phÝm m¸y tÝnh mét m¶ng hai chiÒu gåm n dßng vµ m cét. H·y viÕt ch­¬ng tr×nh tÝnh tæng cña c¸c cét trong m¶ng trªn.