Khai baïo Biãún HANG laì baín ghi cuía mäüt màût haìng gäöm coï tãn haìng, âån giaï , säú læåüng.. Khai baïo nhæ sau:?[r]
(1)Trường THPT Chu Văn An KIỂM TRA TIẾT
Họ tên: Môn: Tin học Lớp: 11……
I TRẮC NGHIỆM: (Khoanh tròn câu trả lời nhất)
1.Công thức sau đúng? (st1, st2 biến kiểu xâu m, n 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 in hình điểm tốn 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’ st2= ‘Hoang Van Huy’, sau thực lệnh Pos(st1,st2) kết quả bằng bao nhiêu?
a b c.9 d.10 4 Các khai báo sau, khai báo đú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 in sau thực lệnh:
While st [1 ]= ‘B’ Delete(st,1,1); Write(st);
a ABBA b.BBB c.BBABBA d AA
6 Cho st1=’Chu Van An’ st2:=copy(st1,pos(‘V’,st1),5), kết 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 hình 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ả câu 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 If A[i] < then S:=S+i; Write(S);
End
Kết in giá trị S là:
a b c d 9 Các khai báo sau khai báo đúng?
a Var st:string[150]; b Var st:string[257]; c Var st = string [10]; d Var st = string [[10];
10 Lệnh sau in hình điểm lớn điểm A đ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 ghi mặt hàng gồm có tên hàng, đơn giá , số lượng Khai báo sau:
a VAR HANG = RECORD b VAR HANG : RECORD
Ten: STRING[25]; Ten: STRING[25];
Gia, SL: Byte; END; Gia, SL: Byte; END;
c VAR HANG : RECORD d VAR HANG = RECORD
Ten = STRING[25]; Ten STRING[25]
Gia, SL = Byte; END; Gia, SL Byte END;
12 Cho khai báo:
Var A: array[1 10] of integer; i: integer;
Để in hình phần tử thứ mảng thực câu lệnh ?
a Write(‘Phan tu thu la:’,A[i]); b Write(‘Phan tu thu la:’,A[3]); c Write(‘Phan tu thu 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 st2 Kiểm tra ký tự thứ của xâu st1 có trùng với ký tự 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 mảng có số chẵn
b Tìm phần tử âm bé mảng