Ôn thi HK2 (Phần 2)

Ô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 Xác định giá trị cho 2 biến toàn bộ toàn 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 Dừng chương trình xem kết quả 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? Câu hỏi 4 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 chỉ có 1 biến biến thay đổi Program CT; Var a,b :integer; Begin Procedure Hoan_Doi(var x,y :integer); Var TG: integer; Begin TG : = x ; x : = y ; y : = TG ; End; a:=5; b:=10; Writeln( a : 6 , b : 6); Hoan_Doi(a,b); Writeln(a : 6 , b : 6); Readln; End. Program CT; Var a,b :integer; Begin Procedure Hoan_Doi(x, var y :integer); Var TG: integer; Begin TG : = x ; x : = y ; y : = TG ; End; a:=5; b:=10; Writeln( a : 6 , b : 6); Hoan_Doi(a,b); Writeln(a : 6 , b : 6); Readln; End. Chọn chương trình đúng. Giải thích vì Chọn chương trình đúng. Giải thích vì sao? sao? Chương trình này Chương trình này có gì cần lưu ý? có gì cần lưu ý? Biến x không đặt Biến x không đặt trong khai báo biến trong khai báo biến Var Var Kết quả Kết quả khi chạy khi chạy chương trình chương trình a ko đổi a ko đổi Nhập : Nhập : a = a = 5 5 và b = 10 và b = 10 Xuất : Xuất : a = a = 5 5 và b = và b = 5 5 Câu hỏi 5 Viết chương trình tính giai thừa (n!) có sử dụng hàm - Function [...]... chương trình xem kết Giai_thua(n); quả Readln; End Chương trình sai ở đâu? Program TínhGiaithua; Thi u khai báo biến Program TínhGiaithua; toàn bộ Var n : integer; Function Giai_thua (m : integer ) : Real; Thi u kiểu dữ liệu Var i : integer; trả về gt : real; Begin gt := 1; For i:=1 to m do gt := gt * i; Thi u trả về giá trị End; giaithua := gt; Begin End; Write(‘Ban nhap so n = ‘); Readln(n); hoặc... gt * i; Thi u trả về giá trị End; giaithua := gt; Begin End; Write(‘Ban nhap so n = ‘); Readln(n); hoặc Begin n:=10; Write(‘Ban nhap so n = ‘); Readln(n); hoặc n:=10; Readln; Giai_thua(n); Readln; End Thi u gọi hàm Giai End Readln; thừa End Câu 6 Viết chương trình nhập vào họ và tên của hai học sinh Sau đó in ra màn hình họ tên của học sinh có độ dài dài hơn Nếu độ dài hai xâu bằng nhau thì xuất ra... Readln; End Câu 7 : Viết chương trình nhập vào họ và tên của hai học sinh Kiểm tra kí tự đầu tiên của xâu thứ 1 và kí tự cuối cùng của xâu thứ 2 : - Nếu giống nhau thì xuất ra dòng chữ : Trùng nhau - Nếu không giống nhau thì xuất ra câu : Khác nhau Program bt; Var x : Byte; Khai báo biến a, b : String; Begin Writeln ( ‘Nhap xau thu nhat : ‘); Nhập vào họ tên học sinh thứ Readln (a); nhất Writeln ( ‘Nhap... nhau’); Dừng chương trình xem kết quả Readln; End Câu 8 : Viết chương trình nhập vào họ và tên của hai học sinh Kiểm tra 2 kí tự cuối của 2 xâu : - Nếu giống nhau thì xuất ra dòng chữ : Trùng nhau - Nếu không giống nhau thì xuất ra câu : Khác nhau Program bt; Var x,y : Byte; Khai báo biến a, b : String; Begin Writeln ( ‘Nhap xau thu nhat : ‘); Nhập vào họ tên học sinh thứ Readln (a); nhất Writeln ( ‘Nhap . đâu? đâu? Thi u khai báo biến Thi u khai báo biến toàn bộ toàn bộ Thi u kiểu dữ liệu Thi u kiểu dữ liệu trả về trả về Thi u trả về giá trị Thi u trả về giá trị Thi u gọi hàm Giai Thi u gọi. Ô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. sao? sao? Chương trình này Chương trình này có gì cần lưu ý? có gì cần lưu ý? Biến x không đặt Biến x không đặt trong khai báo biến trong khai báo biến Var Var Kết quả Kết quả khi chạy