Ôn thi ký II

ÔN TẬP TIN HỌC 11 – THI HỌC KỲ (Tiếp theo) Câu hỏi 1: Trình bày thao tác đọc tệp? Trả Lời: a Gắn tên tệp ASSIGN(,); b Mở Mở tệp đọc dữkết liệu:quả: b tệpđểđể ghi RESET ();tệp>); REWRITE () Sai điểm nào? Câu hỏi 2: Trình bày thao tác ghi tệp? Trả Lời: a Mở ghi kết quả: Gắntệp tênđể tệp REWRITE (); ASSIGN(,); b Gắn tênđể tệp Mở tệp ghi kết quả: ASSIGN(); REWRITE tệp>,) Sai điểm nào? Câu hỏi Viết chương trình có thủ tục hốn đổi vị trí biến a b thuộc kiểu số nguyên Sau chạy chương trình biến thay đổi Program CT; Var a,b Khai báo:integer; biến toàn Procedure Hoan_Doi( var x,y biến :integer Khai báo cục ); Khai báo biến tạm Var TG: integer; Begin TG : trình = x ; hốn đổi vị trí biến x Viết chương x :=y; y y : = TG ; End; BeginXác định giá trị cho biến a:=20giá toàn ; b:= Hiện trị4; biến toàn lên Writeln( : 6,Hốn b : 6);đổi Gọi thủ atục hình Xuất kết sau hốn đổi Hoan_Doi(a,b); Dừng chương trình xem kết Writeln(a: 6, b:6); Readln; End Program CT; Var a,b :integer; Chương trình sai đâu? Begin Procedure Hoan_Doi(var x,y Var :integer); TG: integer; Tên biến sai : TG Var GT: integer; Begin TG : = x ; x :=y; y : = TG ; End; a:=5; b:=10; Hoan_Doi(a,b); Writeln( a : , b Tên : 6);thủ tục sai, biến a, b không viết h HoanDoi(A,B); Writeln(a : , b : 6); Readln; End Câu hỏi Viết chương trình có thủ tục hốn đổi vị trí biến a b thuộc kiểu số ngun Sau chạy chương trình có 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 : , b : 6); Hoan_Doi(a,b); Writeln(a : , b : 6); Readln; End Program CT; Var a,b :integer; Kết Begin khitrình chạy Procedure Chương Hoan_Doi(x, var chương trình có cần lưu ý? y :integer); a ko đổi Var TG: integer; Begin : = x ; đặt Biến xTG không x : báo = y ; biến khai y : = TG ; Var Nhập : End; a:=5; b:=10; a=5 ba = Writeln( : 10 , b : 6); Hoan_Doi(a,b); : , b : 6); XuấtWriteln(a : Readln; End a = b = Chọn chương trình Giải thích Câu hỏi Viết chương trình tính giai thừa (n!) có sử dụng hàm Function Program TínhGiaithua; Var n : integer; Khai báo biến toàn Function Giai_thua m : integer Khai báo biến cục ( ) : Real; Var i : integer; Khai báo biến chạy biến tính giai gt : real; thừa Begin gt := 1; For i:=1trình to m Viết chương tính giai thừa trả gt := gt * i; giá trị giaithua := gt; End; Begin Nhập hoặcnhap xác định giá cần tínhhoặc giai Write(‘Ban so n = ‘); trị Readln(n); thừa Gọi hàm tính Giai thừa n:=10; Dừng chương trình xem kết Giai_thua(n); Readln; End Chương trình sai đâu? Program TínhGiaithua; Thiếu khai báo biến Program TínhGiaithua; tồn Var n : integer; Function Giai_thua (m : integer ) : Real; Thiếu kiểu liệu Var i : integer; trả gt : real; Begin gt := 1; For i:=1 to m gt := gt * i; Thiếu trả giá trị End; giaithua := gt; Begin End; Write(‘Ban nhap so n = ‘); Readln(n); Begin n:=10; Write(‘Ban nhap so n = ‘); Readln(n); n:=10; Readln; Giai_thua(n); Readln; End Thiếu gọi hàm Giai End Readln; thừa End Câu Viết chương trình nhập vào họ tên hai học sinh Sau in hình họ tên học sinh có độ dài dài Nếu độ dài hai xâu xuất xâu nhập sau Program bt; Var a,b : String; BeginKhai báo biến Writeln (‘ Nhap xau ho ten thu nhat : ‘); Nhập vào họ tên học sinh thứ Readln(a); Writeln (‘ Nhap xau ho ten thu Nhập vào họ tên học sinh thứ hai : ‘); hai So sánh độ dài xâu Readln(b); If length(a) > length(b) then Xuất kết Writeln(‘ Ket qua : ‘,a) Else Writeln(b); Dừng chương trình xem kết Readln; End Câu : Viết chương trình nhập vào họ tên hai học sinh Kiểm tra kí tự xâu thứ kí tự cuối xâu thứ : - Nếu giống xuất dịng chữ : Trùng - Nếu khơng giống xuất câu : Khác 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); Writeln ( ‘Nhap xau thu hai : ‘); Nhập vào họ tên học sinh thứ Readln (b); hai Xác độ dài x :=định length (b);xâu để biết vị trí cuối xâu So sánh tự then đầu xâu kí tự cuối xâu If a[1] = kí b[x] Writeln (‘ Trung nhau’) Xuất kết else Writeln (‘Khac nhau’); Dừng chương trình xem kết Readln; End Câu : Viết chương trình nhập vào họ tên hai học sinh Kiểm tra kí tự cuối xâu : - Nếu giống xuất dịng chữ : Trùng - Nếu khơng giống xuất câu : Khác 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); Writeln ( ‘Nhap xau thu hai : ‘); Nhập vào họ tên học sinh thứ Readln (b); hai x := length (a); Xác định độ dài xâu để biết vị trí cuối y := length (b); xâu If a[x] So sánh=2b[y] kí tựthen cuối xâu Writeln (‘ Trung nhau’) Xuất kết else Writeln (‘Khac nhau’); Dừng chương trình xem kết Readln; End ... Chương trình sai đâu? Program TínhGiaithua; Thi? ??u khai báo biến Program TínhGiaithua; tồn Var n : integer; Function Giai_thua (m : integer ) : Real; Thi? ??u kiểu liệu Var i : integer; trả gt : real;... * i; Thi? ??u trả giá trị End; giaithua := gt; Begin End; Write(‘Ban nhap so n = ‘); Readln(n); Begin n:=10; Write(‘Ban nhap so n = ‘); Readln(n); n:=10; Readln; Giai_thua(n); Readln; End Thi? ??u... y : = TG ; End; a:=5; b:=10; Hoan_Doi(a,b); Writeln( a : , b Tên : 6);thủ tục sai, biến a, b không viết h HoanDoi(A,B); Writeln(a : , b : 6); Readln; End Câu hỏi Viết chương trình có thủ tục