Ôn tập 11A6 HKII

Cho biết kết quả của đoạn chương trình sau

S:=0; 

For i:=1 to 5 do S:=S+i;

• 10

• 12

• 15

• 16

Hãy chọn phương án ĐÚNG về biểu thức điều kiện khi kiểm tra một phần tử thứ i của mảng A có chia hết cho 2 không?

      

• A(i) div 2 = 0

• A[i] div 2 = 0

• A[i] mod 2 = 0    

• A(i) mod 2 = 0

Cho xâu, S= ‘ THPT Bac Kan’.  Khi thực hiện hàm Copy(S, 7, 5) kết quả là

• ‘Bac K’

• ‘ac ka’

• ‘c ka’

• ‘c kan’

Var f: text;

       X,Y: integer;

Assign(f,’VD.TXT’);  

Reset(f);                       

Read(f,X,Y); 

Close(f);     

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

• Đọc giá trị của X và y

• Ghi giá trị của X và Y

• Mở tệp VD.TXT để đọc giá trị của X, Y

• Mở tệp VD.TXT để ghi giá trị của X, Y

Giả sử x = 15; y = 19; z = 5; để ghi các giá trị trên vào tệp f có dạng là  15 19 5 ta sử dụng thủ tục ghi:

• Write(x, ‘  ’, y, ‘  ’, z);           

• Write(f, x, ‘  ’, y, ‘  ’, z);             

• Write(x, y, z);

• Write(f,x, y, z);

Cho chương trình dưới đây:

var g: text; i: integer;

 begin

assign (g, ‘C:\KETQUA.txt’); rewrite (g);

for i:= 2 to 12 do

if i mod 2 = 1 then write(g, i, ‘ ’);

close(g);

 end.

Tệp KETQUA.txt lưu kết quả nào sau khi chạy chương trình trên?

• 357911

• 1357911

• 3 5 7 9 11

• 1 3 5 7 9 11

Var x : Integer;

 Procedure tinhtong;

 Begin

      x:=4; x:= x+8;

 End;

 BEGIN

      x:=10;       tinhtong;   Write(x);

  END.

• 10

• 11

• 12

• 13

Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng

• reset(f1);

• rewite(f1);

• write(f1);

• read(f1);

Hãy chọn phương án ghép ĐÚNG nhất .Cho mảng một chiều A gồm N phần tử, muốn in giá trị của mảng A ta dùng lệnh nào?

• For i := 1 to N do write(A[i]);

• For i := 1 to N do Readln(A[i]); 

• write(A[i]);

• Readln(A[i]); 

Cấu trúc của một hàm gồm mấy phần?

• 1

• 2

• 3

• 4