Ôn tập thi Học kì II (tiếp theo)

ÔN TẬP
ÔN TẬP
TIN HỌC 11 – THI HỌC KỲ 2
TIN HỌC 11 – THI HỌC KỲ 2
(Tiếp theo)
(Tiếp theo)


Câu hỏi 1: Trình bày các thao tác đọc tệp?
a. Gắn tên tệp
ASSIGN(<biến tệ p>,<tên tệp>);
b. Mở tệ p để g hi kết q uả:
REWRITE (<biế n tệp>);
c. Thủ tục đọ c dữ liệ u từ tệp:
READ(<biến tệp>, <Danh s ách b iến>);
READLN (<biế n tệp>, <Danh s ách b iế n>);
d. Thủ tục đóng tệp
CLOSE(< tên biến tệ p>)
Sai ở điểm nào?
Sai ở điểm nào?
Trả Lời:
Trả Lời:
b. Mở tệp đ ể đ ọc dữ liệ u:
RESET (<b iến tệp >);

Câu hỏi 2: Trình bày các thao tác ghi tệp?
a. Mở tệp đ ể ghi kết q uả:
REWRITE (<biế n tệp>);
b. Gắn tên tệp
ASSIGN(<b iến tệ p>,<tê n tệ p>);

c. Thủ tục ghi dữ liệu ra tệp
WRITE(<b iến tệp>, <Danh s ách kết quả>);
WRITELN (<b iến tệp >, <Danh s áchkế t q uả>);
d. Thủ tục đóng tệp
CLOSE(< tên biế n tệ p>)
Sai ở điểm nào?
Sai ở điểm nào?
Trả Lời:
Trả Lời:
b. Mở tệ p để ghi kết quả:
REWRITE (<b iến tệ p>);
a. Gắn tên tệ p
ASSIGN(<biến tệ p>,<tên tệp>);

Câu hỏi 3
Viết chươ ng trình có thủ tục hoán
đổi vị trí của 2 biến a và b thuộc kiểu s ố
nguyên
Sau khi chạy chươ ng trình cả 2
biến đều thay đổi

Program CT;
Var a,b :integer;
Procedure Hoan_Doi( );
Var TG: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;

Begin
a:=20 ; b:= 4;
Writeln( a : 6, b : 6);
Hoan_Doi(a,b);
Writeln(a: 6, b:6);
Readln;
End.
Khai báo biến toàn bộ
Khai báo biến toàn bộ
Viết chươ ng trình hoán đổi vị trí 2 biến x và y
Viết chươ ng trình hoán đổi vị trí 2 biến x và y
Khai báo biến tạm
Khai báo biến tạm
Khai báo biến cục bộ
Khai báo biến cục bộ
Xác định giá trị cho 2 biến toàn bộ
Xác định giá trị cho 2 biến toàn bộ
Hiện giá trị 2 biến toàn bộ lên màn hình
Hiện giá trị 2 biến toàn bộ lên màn hình
Gọi thủ tục Hoán đổi
Gọi thủ tục Hoán đổi
Xuất kết quả s au khi hoán đổi
Xuất kết quả s au khi hoán đổi
Dừng chươ ng trình xem kết quả
Dừng chươ ng trình xem kết quả
var x,y :integer

Program CT;
Var a,b :integer;
Begin

Procedure Hoan_Doi(var x,y :integer);
Var GT: integer;
Begin
TG : = x ;
x : = y ;
y : = TG ;
End;
a:=5; b:=10;
Writeln( a : 6 , b : 6);
HoanDoi(A,B);
Writeln(a : 6 , b : 6);
Readln;
End.
Tên biến s ai : là TG
Tên biến s ai : là TG
Tên thủ tục s ai, biến a, b không viết hoa
Tên thủ tục s ai, biến a, b không viết hoa
Var TG: integer;
Hoan_Doi(a,b);
Chương trình sai ở
Chương trình sai ở
đâu?
đâu?