bai trắc nghiệm 11

Phát biểu nào sau đây về mảng là không chính xác?

           

                   

• Chỉ số của mảng không nhất thiết bắt đầu từ 1   

• Không thể xây dựng mảng nhiều chiều

• Xâu kí tự cũng có thể xem như là một loại mảng

• Độ dài tối đa của mảng là hữu hạn

Cho khai báo mảng và đoạn chương trình như sau:

Var a : array[0..50] of real ;

…

k := 0 ;

for i := 1 to 50 do

if a[i] > a[k] then k := i ;

Đoạn chương trình trên thực hiện công việc gì dưới đây?

• Tìm phần tử nhỏ nhất trong mảng;               

• Tìm phần tử lớn nhất trong mảng;

• Tìm chỉ số của phần tử lớn nhất trong mảng                                              

• Tìm chỉ số của phần tử nhỏ nhất trong mảng   

Đoạn chương trình sau thực hiện công việc gì?

S:=0;

for i:=1 to n do  

if a[i] > 0 then S:=S+A[i];

• Đếm các phần tử không âm  

• Đếm các phần tử dương

• Tính tổng các phần tử dương 

• Tính tổng các phần tử không âm

Cho xâu S1= 'Hoc’ và S2= ‘Truong Hoc Than Thien', hàm Pos(S1,S2) kết quả là:

• 8    

• 0  

• 9     

• 10

Đoạn chương trình sau thực hiện công việc?

X:= length(S);

For i:= X downto 1 do

If S[i] = ' ' then Delete(S,i,1);

• Xóa hết dấu cách trong xâu S

• Xóa dấu cách cuối cùng trong xâu S  

• Xóa dấu cách đầu tiên trong xâu S

• Không Xóa dấu cách trong xâu S

Cho xâu S là ‘Hanoi-Vietnam ’. Kết quả của hàm Length(S) là:

• 12

• 13 

• 14   

• 15

Lệnh Reset(<tên biến tệp>) ; có ý nghĩa gì ?

• Thủ tục gán tên tệp cho tên biến tệp.   

• Khai báo biến tệp.  

• Thủ tục mở tên để đọc dữ liệu. 

• Thủ tục đóng tệp.

Đoạn chương trình dưới đây thực hiện công việc gì?

          Write(‘Nhap 2 so tu ban phim’); readln(a,b);

Assign(f, ‘BT.TXT ’) ;

Rewrite(f) ;

Write(f, a, ’   ‘, b) ;

Close(f) ;

• Đọc 2 số từ tệp BT.TXT ra hai biến a,b

• Ghi 2 số vừa nhập từ bàn phím vào tệp BT.TXT

• Hiển thị 2 số vừa nhập lên màn hình

• Tính tổng 2 số vừa nhập và lưu vào tệp BT.TXT

Khi chạy chương trình :

Var x : Integer;

    Procedure T;

      Begin

      x:=4; x:= x+5;

     end;

BEGIN

      x:=0;

      T;

      Write(x);

    END.

    -Kết quả in ra là gì?

• 4

• 9

• 5

• 0

Cho chương trình con sau:

Function Tong(x, y: byte): byte;

Begin

Tong:=x+y;

End;

Trong chương trình chính, lời gọi hàm nào sau đây là ĐÚNG? 

• Tong(-4,5);  

• Tong(3,4,5);   

• Tong(1,-2);    

• T:=Tong(5,5);