THAM KHO - KIU XU-CHNG TRèNH CON Câu I: (Khoanh tròn câu trả lời đúng)- Trong ngôn ngữ lập trình Turbo Pascal 1.Trong ngôn ngữ Pascal khai báo nào sau đây là đúng: a. Var st: String[275]; c. Var Khoi 11: String[25]; b. Var ten: String; d. Var const: String[50]; 2. Trong các hàm sau, hàm nào cho kết quả là độ dài thực sự của xâu st a. Upcase(ch) b. Length(st) c. Pos(st1,st2) c. Copy(st1,m,n) 3. Chọn khai báo đúng: a. Type HS = Record; c. Type HS = Record; hoten: string[30]; hoten: string[30]; Diachi: String[50]; Diachi: String[50]; DTB: Real; DTB: Real; End; End; Var a: HS; Var a: HS; b. Type HS = Record d. Type HS = Record hoten: string[30]; hoten: string[30]; Diachi: String[50]; Diachi: String[50]; DTB: Real; DTB: Real; End; End; Var a: HS Var a: HS; 4. Giả sử có một biến bản ghi HS, đểtham chiếu đến trờng Hoten của biến bản ghi HS ta viết: a. HS.Hoten b. HS:Hoten c. Hoten. HS d. HS Hoten 5. Cho hai xâu 'Cong cha' . 'cong on'. Chọn dấu thích hợp điền vào dấu . a. > b. < c. = d. <> 6. Giả sử k là một biến có kiểu dữ liệu kí tự. Chọn câu đúng trong các câu sau: a. k:= 'hoc'; b. k:= 'A'; c. k:= A; d. k:=1; 7. Có thể xem kiểu dữ liệu xâu là mảng một chiều. khi đó một phần tử của mảng là một: a. số b. xâu c. Kí tự d. Tất cả các câu trên 8. Giả sử trên đĩa đã tồn tại một tệp F chứa các số nguyên có tên KQ.DAT, để đọc dữ liệu từ tệp ta lần lợt thực hiện các thao tác: 9. Giả sử trên đĩa đã tồn tại một tệp định kiểu F chứa các số nguyên có tên SN.DAT. Trong các thao tác sau đối với tệp F, thao tác nào sai: a. Assign(F, 'SN.DAT'); c. Readln(F,x); b. Reset(F); d. Close(F); a. Assign(F, 'KQ.DAT'); Reset(F); Read(F,x); Close(F); b. Reset(F); Read(F,x); Assign(F, 'KQ.DAT'); Close(F); d. Assign(F, 'KQ.DAT'); Reset(F); Readln(F,x); Close(F); c. Assign(F, 'KQ.DAT'); Rewrite(F); Read(F,x); Close(F); 10. Giả sử tệp định kiểu F có tên SOLIEU.DAT đang mở bởi thủ tục RESET(F); Muốn chuyển con trỏ tệp đến phần tử thứ 9 của tệp ta viết: a. Seek(F,10); c. Seek(F,9); b. Seek(F,8); d. Seek(F,0); 11. Trong các khai báo sau, khai báo nào sai: a. Procedure P (n:integer ; k:real); b. Procedure M (n:integer ; k:real); c. Procedure P (h:char ; n:integer); d. Procedure KT (M: Array[1 10] of Byte ; Var x: String[25]); 11.Chọn khai báo đúng: a. Procedure Loai bo (Var st: string); b. Function Chuvi (a,b: Real); c. Procedure P (Var x,y:integer) d. Function Tong (x,y: Real): Real; 12. Cho chơng trình sau: Program CT; Var M,N:Integer; Procedure HD (Var x:integer; y:integer); Var tg: Integer; Begin tg:= x; x:= y; y:= tg; end; Begin m:=7; n:=8; HD(m,n); Writeln(m:5,n:5); Readln; End. Trong chơng trình trên lời gọi thủ tục HD nào sau đây không hợp lệ: a. HD(m,10); c. HD(m,n+3); b. HD(10,n); d. HD(m,n); II. Điền vào dấu . Câu 1: Giá trị S1 Giái trị S2 Thao tác Kết quả ' Xanh' 'Truong em Sach Đep' . 'Truong em Xanh Sach Đep' Câu 2: Giá trị của St Thao tác Kết quả 'Chien thang Đien Bien Phu' Delete(St,13,13) . 'Hoc sinh' . 'Hoc' Câu 3: Giá trị của St Biểu thức Kết quả ' Khoi 11' Length(st) . 'Truong em co 38 lop' Pos('38',st) . 'Truong em co 38 lop' Copy(st, ., .) '38 lop' III. §äc ch¬ng tr×nh vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng tr×nh. (Ghi vµo dßng kÎ .) 1. §äc ch¬ng tr×nh sau vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng tr×nh. Program KTHK; Var x,y:integer; Procedure M(Var A:integer; B:integer); Begin A:=A*2; B:=B*B; Writeln(A,' ',B); end; Begin x:=4; y:=8; M(x,y); Writeln(x,' ',y); Readln; End. . . 2. §äc ch¬ng tr×nh sau vµ cho biÕt kÕt qu¶ hiÓn thÞ lªn mµn h×nh khi ch¹y ch¬ng tr×nh. Program vd; Var m:integer; Procedure vd1; Begin m:=100; end; Begin m:= 1; vd1; Writeln(m); Readln; End. . . . có kiểu dữ liệu kí tự. Chọn câu đúng trong các câu sau: a. k:= 'hoc'; b. k:= 'A'; c. k:= A; d. k:=1; 7. Có thể xem kiểu dữ liệu xâu là. DTB: Real; End; End; Var a: HS Var a: HS; 4. Giả sử có một biến bản ghi HS, để tham chiếu đến trờng Hoten của biến bản ghi HS ta viết: a. HS.Hoten b. HS:Hoten