Type danhsach = record Tensach: string[30]; Tacgia: byte; Giatien: real; End; Var x,y,z: sach; S:= 'mua thu Ha Noi'; Delete(s, 8,7); Insert('Ha Noi ', s, 1); S:='Nguyen Hoang Vuong'; X:=''; I:= length(s); While S[i] <>' ' do BỘ GIÁO DỤC VÀ ĐÀO TẠO Trường THPT Nguyễn Thông ĐỀ THI TRẮC NGHIỆM MÔN TIN HỌC Thời gian làm bài: 15 phút; (10 câu trắc nghiệm) Mã đề thi:112 Họ, tên thí sinh: Số báo danh: . I. Phần trắc nghiệm: Câu 1: Một kiểu bản ghi được khai báo như sau: Câu lệnh nào dưới đây là không phù hợp: A. Readln(x,y,z); B. Readln(X.tensach); C. X:=Y; D. Y:=Z; Câu 2: Cho S:='abcdef'; Câu lệnh nào dưới đây để xoá các kí tự trong xâu S sao cho S còn nội dung 'abc': A. Delete(s,3,4); B. Delete(S, 4,3); C. Delete(S, 2, 4); D. Delete(S, 4,2); Câu 3: Trong ngôn ngữ LT Pascal, để tìm vị trí xuất hiện đầu tiên của xâu 'hoa' trong xâu S, câu lệnh nào dưới đây là ĐÚNG. A. i:=Pos(s,'hoa'); B. i:= Pos ('hoa', s); C. i:= pos('hoa', hoa'); D. pos ("hoa", s); Câu 4: Trong pascal, sau khi thực hiện xong đoạn chương trình sau giá trị của biến S là? A. Ha Noi mua thu B. Mua thu Ha Noi C. Mua thu Ha Noi mua thu D. Mua thu Câu 5: Trong Pascal, thủ tục chèn xâu S2 vào xâu S1 tại vị trí vt được viết: A. Insert(s2, s1, vt); B. Insert (S1, s2, vt); C. Insert (S1, vt, S2); D. Insert(S2, vt, S1); Câu 6: Trong pascal, gắn tên tệp VB cho biến tệp ta dùng cú pháp: A. Asign <tên biến tệp>, <tên tệp>; B. Var <tên biến tệp>: sring; C. Var <tên biến tệp>: Text; D. Assign(<tên biến tệp>, <tên tệp>); Câu 7: Trong pascal, S là 1 biến xâu, để truy xuất đến phần tử cuối của xâu S ta viết: A. S[i] B. S[length(s)] C. Length(s[i]) D. S(length (s)) Câu 8: Trong lập trình Pascal, cho đoạn chương trình: thực hiện xong đoạn chương trình trên biến X có giá trị là gì? A. Xâu rỗng. B. 'Nguyen' C. 'Vuong' D. 'gnouV' Trang 1/2 - Mã đề thi 112 Begin X: = X+S[i]; I:= i-1; End; {' ' là 1 khoảng trắng} Câu 9:Trong Pascal, để nhập n phần tử cho mảng A, câu lệnh nào dưới đây là đúng? A. For i:= 1 to n do B. For i:= 1 to n do Write(a[i]: 5); Begin Write('A[',I, ']= '); readln[a]; End; C. For i:= 1 to n do D. For i:= 1 to n do Begin Write('A[',I, ']= '); readln(a[i]); Write('A[',I, ']= '); readln(a[i]); End; Câu 10: Cho chương trình: Khi thực hiện xong chương trình trên giá trị của biến x, y là: A. s=123, y=345 B. s='123 345', y=0 C. s='123 3', y=45 D. s='123 3', y='345' II. Phần trả lời: 1 2 3 4 5 6 7 8 9 10 A A A A A A A A A A B B B B B B B B B B C C C C C C C C C C D D D D D D D D D D Trang 2/2 - Mã đề thi 112 Close(f1); Reset(f1); Readln(f1,s,y); Close(f1); End. Var f1: text; s:string[5]; y: byte; Begin Assign (f1,'vidu.txt'); Rewrite (f1); Writeln(f1,'123 345'); . thủ tục chèn xâu S2 vào xâu S1 tại vị trí vt được viết: A. Insert(s2, s1, vt); B. Insert (S1, s2, vt); C. Insert (S1, vt, S2); D. Insert(S2, vt, S1); Câu. là: A. s= 123 , y=345 B. s=' 123 345', y=0 C. s=' 123 3', y=45 D. s=' 123 3', y='345' II. Phần trả lời: 1 2 3 4 5 6