Trang 1/5 - Mã đề: 182 Mã đề: 148 Câu Hãy chọn phương án ghép Để khai báo số phần tử mảng PASCAL, người lập trình cần A.khai báo số bắt đầu kết thúc mảng; B.khơng cần khai báo gì, hệ thống tự xác định; C.khai báo số số phần tử mảng; D.khai báo số kết thúc mảng; Câu Trong câu lệnh sau câu lệnh khai báo biến mảng chiều Turbor Pascal? A.VAR A: ARRAY[1 50] OF REAL; B.VAR A: ARRAY[1…50] OF REAL; C.VAR A: ARRAY[1 5.5] OF REAL; D.VAR A: ARRAY[1.5 50] OF REAL; Câu Trong PASCAL để khai báo biến tệp văn bản, ta sử dụng cú pháp: A.Var : Text; B.Var : Text; C.Var : test; D.Var : txt; Câu Phương án khai báo mảng hợp lệ ? A.mang : ARRAY[0 10] : INTEGER; B.mang : ARRAY(0 10) : INTEGER; C.mang : INTEGER OF ARRAY[0 10]; D.mang : ARRAY[0 10] OF INTEGER; Câu Phát biểu sau sai ? A.Sau mở tệp, trỏ tệp vị trí đầu tệp B.Muốn đọc / ghi liệu tệp, sau gắn biến tệp với tên tệp cần phải thực thao tác mở tệp đó; C.Trong lệnh gán tên tệp với biến tệp, cần khai báo tên tệp để xác định vị trí tệp đĩa D.Trong lệnh mở tệp, cần khai báo tên tệp để xác định vị trí tệp đĩa Câu Hãy chọn phương án ghép Cho xâu S 'Hanoi-Vietnam' Kết hàm Pos('Vietnam',S) là: A.7; B.8; C.5; D.6; Câu Hãy chọn thứ tự hợp lí thực thao tác đọc liệu từ tệp : A.Gán tên tệp với biến tệp => Mở tệp => Đọc liệu từ tệp => Đóng tệp B.Gán tên tệp với biến tệp => Đọc liệu từ tệp => Mở tệp => Đóng tệp C.Mở tệp => Gán tên tệp với biến tệp => Đọc liệu từ tệp => Đóng tệp D.Mở tệp => Đọc liệu từ tệp => Gán tên tệp với biến tệp => Đóng tệp Câu Cho khai báo sau : var a : array[1 20] of integer ; Câu lệnh nhập liệu vào từ bàn phím cho phần tử mảng ? A.for k := 20 down to real(a[k]); B.for k := to 20 read(a[k]); C.for k:= to 20 readln(a[k]); D.for k := downto 20 write(a[k]); Câu Cho khai báo sau : Var hoten : String; Phát biểu ? A.Xâu có độ dài lớn 0; B.Cần phải khai báo kích thước xâu sau đó; C.Câu lệnh sai thiếu độ dài tối đa xâu; D.Xâu có độ dài lớn 255; Câu 10 Hãy chọn phương án ghép Thủ tục chuẩn Insert(S1,S2,vt) thực A.chèn xâu S1 vào S2 vị trí vt ; (*) B.chèn xâu S2 vào S1 vị trí vt ; C.nối xâu S2 vào S1; D.sao chép vào cuối S1 phần S2 từ vị trí vt ; Câu 11 Cách thức truy cập tệp văn A.Truy cập ngẫu nhiên B.Truy cập C.Truy cập trực tiếp D.Vừa truy cập vừa truy cập trực tiếp Câu 12 Câu lệnh khai báo mảng chiều A gồm 50 phần tử kiểu liệu phần tử kiểu thực? A var A: array[1 50] of byte; B var A: array[1 50] of real; C var A: array[1…50] of real; D var A: array[1 50] of integer; Câu 13 Thế khai báo biến mảng gián tiếp ? A.Khai báo mảng hai chiều; B.Khai báo thông qua kiểu mảng có; C.Khai báo mảng xâu kí tự; D.Khai báo mảng ghi; Câu 14 Cho khai báo sau : var a : array[1 16] of integer ; Câu lệnh in tất phần tử mảng ? A.for k := downto 16 write(a[k]); C.for k := to 16 write(a[k]); B.for k := 16 down to write(a[k]); D.for k:= to 15 write(a[k]); Trang 1/5 - Mã đề: 182 Câu 15 Chương trình sau cho kết mành hình? Var a:array[1 5] of byte; I: byte; Begin for i:=1 to a[i]:= div I; For i:= to write( a[i]); End A.5 1 B.5 2 1 C.5 2 D.4 1 Câu 16 Phát biểu sau mảng khơng xác ? A.Độ dài tối đa mảng 255; B.Xâu kí tự xem loại mảng; C.Chỉ số mảng không thiết 1; D.Có thể xây dựng mảng nhiều chiều; Câu 17 Phát biểu số mảng phù hợp ? A.Dùng vòng lặp với mảng để quản lí kích thước mảng; B.Dùng để truy cập đến phần tử mảng; C.Dùng vịng lặp với mảng; D.Dùng để quản lí kích thước mảng; Câu 18 Cho tệp BAITAP.INP viết thủ tục gắn tệp BAITAP.INP cho biến tệp k A Assign(BAITAP,K); B Assign(k,BAITAP.INP); C Assign('BAITAP.INP',K); D Assign(k,'BAITAP.INP'); Câu 19 Để gán tệp kq.txt cho biến tệp f1 ta sử dụng câu lệnh A assign('kq.txt',f1); B kq.txt=f1; C assign(f1,'kq.txt'); ## f1:='kq.txt': Câu 20 Phát biểu kiểu mảng phù hợp ? A.Là dãy hữu hạn phần tử kiểu; B.Mảng khơng thể chứa kí tự; C.Độ dài tối đa mảng 255; D.Là tập hợp số nguyên; Câu 21 Nếu hàm EOF() cho kết TRUE, trỏ tệp nằm vị trí: A.Cuối dịng B.Đầu dịng C.Đầu tệp D.Cuối tệp Câu 22 Phát biểu sau sai ? A.Trong lập trình, muốn thao tác tệp liệu phải thao tác gián tiếp qua biến tệp B.Biến tệp biến kiểu xâu C.Trong chương trình, tên tệp biến xâu xâu D.Trong Pascal, biến tệp văn có kiểu text Câu 23 Cho khai báo mảng sau : Var m : array[1 10] of integer ; Phương án phần tử thứ 10 mảng ? A.a(10); B.a[10]; C.a[10); D.a[10]; Câu 24 Cho xâu S='ABCD e123fg' hàm copy(s,5,3) cho kết nào? A.'D e' B.'e12' C.'123' D.' e1' Câu 25 Dữ liệu kiểu tệp: A.Sẽ bị hểt tắt máy; B.Sẽ bị hết điện đột ngột; C.Không bị tắt máy điện; D.Vẫn giữ nguyên ROM tắt máy cúp điện; Câu 26 Hãy chọn phương án ghép Độ dài tối đa xâu kí tự PASCAL là: A.255; B.Tùy ý; C.65535; D.256; Câu 27 Trong chương trình chuẩn sau đây, chương trình chuẩn thủ tục chuẩn? A.Sqrt(x); B.Length(S); C.Delete(S,5,1); D.Sin(x); Câu 28 Chương trình sau cho kết hình? Var s:string; I:byte; Begin S:= 'le thi lan' For i:=1 to length(s) if s[i]= ' ' then s[i]:= '_'; Write (s); End A.le-thi-lan B.Le_thi_lan C.le thi lan D.le_thi lan Trang 1/5 - Mã đề: 182 Câu 29 Với khai báo biến sau VAR A:ARRAY[0 20] OF BYTE; Trong câu lệnh sau câu lệnh Turbor Pascal? A.A[0]:=10; B.A[15]:=6.5; C.A[20]:= -5; Câu 30 Câu lệnh để khai báo xâu s có độ dài tối đa 30 kí tự? A var s: string; B var s: string[30]; C var s: string[300]; Câu 31 s:= 'abc s1230' Cho biết xâu s có độ dài bao nhiêu? A.10 B.9 Câu 32 Dữ liệu kiểu Tệp: A.Được lưu trữ ROM C.Chỉ lưu trữ đĩa cứng C.7 D.A[20]:=270; D var s: string[3]; D.8 B.Được lưu trữ nhớ D.Được lưu trữ RAM I.Cho chương trình sau: Uses Crt; Type Mang=ARRAY[1 50] Of Integer; Var B:Mang; N:Byte; kt: boolean; Function KiemTra(x:Integer; n:Byte; var A:Mang):Boolean; Var i:Byte; Found:Boolean; Begin Found:=False; i:=1; While (iLength(st2) Then For i:=1 To Length(st1)-Length(st2) Do st2:='0'+st2 Else For i:=1 To Length(st2)-Length(st1) Do st1:='0'+st1; End; Begin Write('nhap xau so1'); readln(so1); Write('nhap xau so2'); readln(so2); lamDayxau(4,so1,so2); end Câu 45 Hãy cho biết biến tồn cục chương trình: A.i B.so1,so2,kqua C.st1,st2 Câu 46 Hãy cho biết tham biến chương trình: A.k,st1,st2 B.st1,st2 C.i Câu 47 Hãy cho biết biến cục chương trình: A.i B.k,st1,st2 C.so1,so2,kqua Câu 48 Hãy cho biết tham số thực chương trình: A.i B.k,so1,so2 C.so1,so2,kqua Câu 49 Hãy cho biết tham số hình thức chương trình: A.k,st1,st2 B.so1,so2,kqua C.i Câu 50 Hãy cho biết tham trị chương trình: A.k B.i C.k,st1,st2 D.k,st1,st2 D.so1,so2,kqua D.st1,st2 D.4,so1,so2 D.k D.so1,so2,kqua Trang 1/5 - Mã đề: 182 PHẦN TỰ LUẬN: Câu 1: Cho số nguyên dương n(n