Tải bản đầy đủ (.ppt) (19 trang)

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

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (524.08 KB, 19 trang )


Ô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?

×