bé sủi của mấy em

Để gắn tên tệp cho biến tệp ta sử dụng câu lệnh:

• <biến tệp> :=<tên tệp>;

• <tên tệp> :=<biến tệp>;

• assign(<biến tệp> ,<tên tệp>);

• assign(<têntệp> ,<biến tệp>)'

Mở tệp để ghi dữ liệu, ta sử dụng thủ tục:

• rewrite(<tên tệp>);

• reset(<tên tệp>);

• reset(<biến tệp>);

• rewrite(<biến tệp>);

Để đọc dữ liệu từ tệp văn bản, ta có thể sử dụng thủ tục:

• real(<tên tệp> , < danh sách biến> );

• read(<biến tệp> , <danh sách biến> );

• read(<tên tệp> , < danh sách biến> );

• real(<biến tệp> , <danh sách biến> );

Để thao tác với tệp:

• Ta có thể gắn tên tệp cho biến tệp hoặc sử dụng trực tiếp tên tệp cũng được.

• Ta nhất thiết phải gắn tên tệp cho biến tệp.

• Ta nhất thiết phải sử dụng trực tiếp tên tệp trong chương trình.

• Ta nên sử dụng trực tiếp tên tệp trong chương trình.

Trong Pascal, để khai báo biến tệp văn bản ta sử dụng cú pháp:

• Var <tên tệp>: text;

• Var <biến tệp>: text;

• Var <biến tệp>: string;

• Var <tên tệp>: string;

Vị trí con trỏ tệp sau lời gọi thủ tục Reset:

• Nằm ngẫu nhiên ở bất cứ vị trí nào.

• Nằm ở giữa tệp

• Nằm ở cuối tệp

• Nằm đầu tệp.

Trong các cách sử dụng thủ tục sau, cách nào là phù hợp nhất?

• Chỉ cần khai báo;

• Khai báo thủ tục duy nhất một lần và gọi nó một lần duy nhất;

• Khai báo thủ tục một lần và gọi nó trong thân chương trình mỗi khi muốn sử dụng;

• Khai báo lại thủ tục và gọi nó mỗi khi cần sử dụng;

Mô tả nào dưới đây về chương trình có cấu trúc là phù hợp nhất?

• A. Được chia thành nhiều chương trình con;

• B.Sử dụng các hàm và thủ tục thư viện chuẩn;

• C. Cả A và B đều đúng

• D. Chương trình có sử dụng cấu trúc mảng và bản ghi;

Cho chương trình sau: Program Vidu;

Var s: string[50] ;

Procedure In(s: string);

Var i: integer;

Begin

i := 1;

while ( i <= length(s) ) do

begin

writeln( s[i] );

i := i + 1;

end;

end;

Begin

s := ‘tinhoc’;

In(s);

End .

• . 6 dòng;

• 7 dòng;

• . Vô số dòng;

• 50 dòng;

Cho chương trình sau:

Program Chuong_trinh;

Var a, b, s : byte;

Procedure TD(var x: byte ; y: byte);

var i: byte;

Begin

i := 5; writeln(x,‘ ’, y);

x := x + i ; y := y + i ;

S := x + y ; Writeln(x,‘ ’, y);

End;

Begin

Write(‘nhập a và b : ’);

Readln(a, b);

TD(a,b);

Writeln(a,‘ ’, b, ‘ ’, s);

Readln;

End.

• x và y

• . i

• . a, b và s

• a và b