đề ktra lần 2

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');