Ô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 đ ghi k t qu :ở ệ ể ế ả
REWRITE (<bi n t p>)ế ệ ;
c. Th t c đ c d li u t t p:ủ ụ ọ ữ ệ ừ ệ
READ(<bi n t p>, <Danh sách ế ệ
bi n>);ế
READLN (<bi n t p>, <Danh sách ế ệ
bi 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 (<bi 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 qu :ở ệ ể ế ả
REWRITE (<bi n t p>)ế ệ ;
b. G n tên t pắ ệ
ASSIGN(<bi n t p>,<tên t p>ế ệ ệ );
c. Th t c ghi d li u ra t pủ ụ ữ ệ ệ
WRITE(<bi n t p>, <Danh sách k t qu >)ế ệ ế ả ;
WRITELN (<bi n t p>, <Danh sáchk t ế ệ ế
qu >);ả
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 (<bi 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 ế ươ ổ ị ế
Vi t ch ng trình hoán đ i v trí 2 bi n x ế ươ ổ ị ế
và y
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 ị ị ế
Xác đ nh giá tr cho 2 bi n toàn ị ị ế
bộ
bộ
Hi n giá tr 2 bi n toàn b lên màn ệ ị ế ộ
Hi n giá tr 2 bi n toàn b lên màn ệ ị ế ộ
hình
hình
G i th t c Hoán đ iọ ủ ụ ổ
G i th t c Hoán đ iọ ủ ụ ổ
Xu t k t qu sau khi hoán đ iấ ế ả ổ
Xu t k t qu sau 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 sai : là TGế
Tên bi n sai : là TGế
Tên th t c sai, bi n a, b không vi t hoaủ ụ ế ế
Tên th t c sai, 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?ở