TRẮC NGHIỆM: Khoanh tròn những cđu trả lời đúng nhất 1.Công thức năo sau đđy lă đúng?. st1, st2 câc biến kiểu xđu vă m, n câc biến kiểu số nguyín.. Câc khai bâo sau, khai bâo năo lă đúng
Trang 1Trường THPT Chu Văn An KIỂM TRA 1 TIẾT
Họ vă tín: Môn: Tin học
Lớp: 11……
I TRẮC NGHIỆM: (Khoanh tròn những cđu trả lời đúng nhất)
1.Công thức năo sau đđy lă đúng? (st1, st2 câc biến kiểu xđu vă m, n câc biến kiểu số
nguyín).
a Delete(st1,st2,m); b Delete(st1,m,n); c Delete(m,st1,n) d Delete(m,n,st1)
2 Cho khai bâo: Type hocsinh = record
Toan,Van :Real;
end;
Var Lop : array [1 45] of hocsinh;
Lệnh năo dưới đđy lă đúng khi in ra măn hình điểm toân của học sinh thứ i?
a.Writeln(Lop); b.Write(Lop[i]);
c.Writeln(Lop[i].Toan); d.Write(Lop[i].T);
3 Cho st1=’Van’ vă st2= ‘Hoang Van Huy’, sau khi thực hiện lệnh Pos(st1,st2) thì kết quả
bằng bao nhiíu?
a 0 b 7 c.9 d.10
4 Câc khai bâo sau, khai bâo năo lă đúng?
a Var A:array[1 n] of readln; b Var A:array[1 10] of bytte;
c Var A:array[-10, ,10] of boolean; d Var A:array[‘a’ ’z’] of byte;
5 Cho chuỗi st:=’ BBBABBA’; Kết quả in ra lă gì sau khi thực hiện 2 lệnh:
While st [1 ]= ‘B’ do Delete(st,1,1);
Write(st);
6 Cho st1=’Chu Van An’ vă st2:=copy(st1,pos(‘V’,st1),5), kết quả xđu st2 lă:
a st2= ‘Chu Van’ b xt2=‘u Van an’
c st2= ‘Van An’ d st2= ‘Van A’
7 Đoạn chương trình sau, cho kết quả trín măn hình lă gì?
Var st:string;
Begin
St:=’Nguyen Van A’;
Delete(st,pos(‘V‘,st)-1,6);
Write(st);
End.
a Van A b Nguyen Van A c Nguyen d Cả 3 cđu đều đúng
8 Khi chạy chương trình :
Var A:array[1 3] of integer;
i, S : integer;
Begin A[1]:= 3; A[2]:= -1; A[3]:= -4;
S:= 0;
For i:=1 to 3 do If A[i] < 0 then S:=S+i;
Write(S);
End
Kết quả in ra giâ trị của S lă:
a 2 b 3 c 4 d 5
9 Câc khai bâo sau khai bâo năo lă đúng?
a Var st:string[150]; b Var st:string[257];
c Var st = string [10]; d Var st = string [[10];
10 Lệnh năo sau đđy in ra măn hình điểm lớn nhất giữa điểm A vă điểm B ?
a If A[i].DiemA>A[i].DiemB then write(A[i].DiemB) else write(A[i].DiemA);
b If A[i].DiemA>A[i].DiemB then write(A[i].DiemA) else write(A[i].DiemB);
c If A[i].DiemA>A[i].DiemB then readln(A[i].DiemA) else readln (A[i].DiemB);
d If A[i].DiemA>A[i].DiemB then Write(A[i].DiemA); else write(A[i].DiemB);
11 Khai báo Biến HANG là bản ghi của một mặt hàng gồm có tên hàng, đơn giá , số lượng Khai báo như sau:
Gia, SL: Byte; END; Gia, SL: Byte; END;
12 Cho khai bâo:
Var A: array[1 10] of integer;
i: integer;
Để in ra măn hình phần tử thứ 3 của mảng thực hiện cđu lệnh gì ?
a Write(‘Phan tu thu 3 la:’,A[i]); b Write(‘Phan tu thu 3 la:’,A[3]);
c Write(‘Phan tu thu 3 la:’’A [3]’); d Readln(A[3]);
II TỰ LUẬN: (4 điểm) Cđu 1: (2 điểm) Viết chương trình nhập văo hai xđu st1 vă st2 Kiểm tra ký tự thứ 5 của
xđu st1 có trùng với ký tự đầu tiín của xđu st2 không?
Cđu 2: (2 điểm) Viết chương trình nhập văo mảng A gồm có 50 phần tử kiểu nguyín
a Đếm xem trong mảng có bao nhiíu số chẵn
b Tìm phần tử đm bĩ nhất trong mảng
Đề A