Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 19 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
19
Dung lượng
1,24 MB
Nội dung
ÔNTẬPÔNTẬP TIN HỌC 11 – THIHỌC KỲ 2 TIN HỌC 11 – THIHỌC KỲ 2 (Tiếptheo)(Tiếptheo) 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? 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ì s ao? Chọn chươ ng trình đúng. Giải thích vì s ao? 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 trong Biến x không đặt trong khai báo biến Var khai báo biến 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 [...]... Dừ ng c hư ơ ng trình xe m kế t quả Readln; End Chư ơ ng trình s ai ở đâu? Pro g ram TínhGiaithua; Thi u khai báo biế n to àn bộ Pro g ram TínhGiaithua; Var n : integer; Func tio n Giai_thua (m : integer ) : Real; Thi u kiể u dữ liệ u trả về Var i : integer; gt : real; Begin gt :=1; For i:= to m do 1 Thi u trả về g iá trị gt :=gt * i; End; giaithua :=gt; End; Be g in Be g in Write(‘Ban nhap so n... về g iá trị gt :=gt * i; End; giaithua :=gt; End; Be g in Be g in Write(‘Ban nhap so n =‘); Readln(n); hoặc 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 thừ a End Readln; End Câu 6 Viế t chư ơ ng trình nhập vào họ và tên của hai họ c s inh Sau đó in ra màn hình họ tên của họ c s inh có độ dài dài hơ n Nế u độ dài hai xâu bằng nhau... Viế t chư ơ ng trình nhập vào họ và tê n c ủa hai họ c s inh 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 Pro g ram bt; Var x : Byte ; Khai báo biế n a, b : S tring ; Be g in Write ln ( ‘Nhap xau thu nhat : ‘); Nhập vào họ tê n họ c s inh thứ nhất Re adln (a); Write... adln;hư ơ ng trình xe m kế t quả End Câu 8 : Viế t c hư ơ ng trình nhập vào họ và tên c ủa hai họ c s inh 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 Pro g ram bt; Var x,y : Byte ; Khai báo biế n a, b : S tring ; Be g in Write ln ( ‘Nhap xau thu nhat : ‘); Nhập vào họ tê n họ c s inh thứ nhất Re adln (a); . Ô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. Thi u khai báo biến toàn bộ Thi u khai báo biến toàn bộ Thi u kiểu dữ liệu trả Thi u kiểu dữ liệu trả về về Thi u trả về giá trị Thi u trả về giá trị Thi u