Tính điểm trung bình của từng bảng ghi như sau: (điểm toán + điểm văn) /2.In ra danh sách lớp( mảng các bảng ghi học sinh) như sau: họ tên, điểm trung bình..[r]
(1)kiĨm tra TIẾT
M«n: Tin häc 11 – Tr¾c nghiƯm + Tù ln Thêi gian: 45 phút( A)
Họ tên: Lớp:11 I- Trắc nghiệm: Chọn phương án cho câu điền vào bảng đây:
1 2 3 4 5 6 7 8 9 10
Câu 1: S1= ‘chao bạn’; S2 = ‘Xin ’ Kết thủ tục Insert (S2,S1,1) là: a ‘hao ban’ b ‘ Xin chao ban’ c ‘ chao ban xin’ d kết khác
Câu 2: Cho khai báo: Var
A: Array[1 4] of Real; i: Integer ;
Ðể nhập liệu cho A, chọn câu :
a) For i:=1 to Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b) For i:=1 to Readln(‘ Nhập A[‘, i, ‘]:’);
c) For i:=1 to Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d) Write(‘ Nhập A:’); Readln(A);
Câu 3: Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh :
a) A[1]:= 4/2 ; b) A[2]:= -6 ; c) A(3):= ; d) A:= 10 ; Câu 4: Trong pascal, khai báo sau hợp lệ?
a)Var a: array[1 10] of integer; b)Var a = array[1 10] of integer; c)Var a:= array[1 10] of integer; d)Var a: array[1,10] of integer; Câu 5: Cho khai báo: (1đ)
Var A: Array[1 4] of Integer; i : Integer;
Sau thực lệnh :
For i:=1 to A[i]:= i; For i:=1 to A[i]:= A[i]+1; thì mảng A có gía trị :
a) A[1]=1, A[2]=2, A[3]=3, A[4]=4 b) A[1]=2, A[2]=3, A[3]=4, A[4]=5 c) A[1]=0, A[2]=1, A[3]=2, A[4]=3 d) A[1]=2, A[2]=4, A[3]=5, A[4]=6
Câu 6: Trong ngơn ngữ lập trình Pascal, với xâu kí tự có phép tốn là? A Phép cơng, trừ, nhân, chia B Chỉ có phép cộng
C.Phép cộng phép trừ D Phép ghép xâu phép so sánh Câu 7: Chương trình sau cho kết ?
Var a, b : String; Begin
Write(‘nhap xau ho ten thu nhat: ’); readln(a); Write(‘nhap xau ho ten thu hai : ’); readln(b); If length(a)> length(b) then write(a)
Else write(b); Readln
End.
(2)Câu 8: Trong ngơn ngữ lập trình Pasca,l đoạn chương trình sau đưa hình kết gì? For i:=10 to Write(i,’ ‘);
A 10 B Đưa 10 dấu cách C 10 D Khơng đưa kết gì
Câu 9: Cho xâu a:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(Pascal,a); Kết in giá trị b :
a) 4 b) 5 c) 11 d) 9
Câu 10: Cho khai báo sau: (1 đ)
Var A: array[0 16] of integer;
Câu lệnh in tất phần tử mảng trên
a) For k :=1 to 16 write(a[k]); b) For k :=16 down to write(a[k]); c For k :=0 to 15 write(a[k]); d) For k := 16 downto write(a[k]); II- Tự luận(4đ)
Em viết chương trình nhập vào mảng phần tử bảng ghi học sinh có thuộc tính sau: họ tên, điểm tốn , điểm văn, điểm trung bình với số lượng học sinh nhập từ bàn phím Tính điểm trung bình bảng ghi sau: (điểm toán + điểm văn) /2.In danh sách lớp( mảng bảng ghi học sinh) sau: họ tên, điểm trung bình.
kiĨm tra TIẾT
(3)Thêi gian: 45 phút( B)
Họ tên: Lớp:11 I- Trc nghiệm: Chọn phương án cho câu điền vào bảng đây:
1 2 3 4 5 6 7 8 9 10
Câu 1: Chọn khai báo :
a) Var A: array[1…10] of integer; b) Var A: array[1 10] of integer; c) Var A:= array[1 10] of integer; d) Var A: array[1,10] of integer; Câu 2: Cho khai báo:
Var
A: Array[1 4] of integer; i : Integer ;
Ðể nhập liệu cho A, chọn câu :
a) For i:=1 to Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b) For i:=1 to Readln(‘ Nhập A[‘, i, ‘]:’);
c) For i:=1 to Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d) Write(‘ Nhập A:’); Readln(A);
Câu 3: Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh sai :
a) A[1]:= ; b) A[2]:= -6 ; c) A[3]:= ; d) A[6]:= 4/2 ;
Câu 4: S1= ‘chao bạn’; S2 = ‘Xin ’ Kết thủ tục Insert (S2,S1,1) là: a ‘hao ban’ b ‘ Xin chao ban’ c ‘ chao ban xin’ d kết khác
Câu 5: Cho khai báo: ( đ) Var
A: Array[1 4] of Integer ; i: Integer ;
Sau thực lệnh :
A[1]:=1; For i:=1 to A[i]:= A[1]+i; thì mảng A có gía trị :
a) A[1]=1, A[2]=2, A[3]=3, A[4]=4 b) A[1]=2, A[2]=3, A[3]=4, A[4]=5 c) A[1]=0, A[2]=1, A[3]=2, A[4]=3 d) A[1]=2, A[2]=4, A[3]=5, A[4]=6
Câu 6: Trong ngơn ngữ lập trình Pascal, với xâu kí tự có phép tốn là? A Phép cơng, trừ, nhân, chia B Chỉ có phép cộng
C.Phép cộng phép trừ D Phép ghép xâu phép so sánh Câu 7: Chương trình sau cho kết ?
Var a, b : String; Begin
Write(‘nhap xau ho ten thu nhat: ’); readln(a); Write(‘nhap xau ho ten thu hai : ’); readln(b); If length(a)> length(b) then write(a)
Else write(b); Readln
End.
(4)Câu 8: Trong ngôn ngữ lập trình Pasca,l đoạn chương trình sau đưa hình kết gì? For i:=10 to Write(i,’ ‘);
A 10 B Đưa 10 dấu cách C 10 D Không đưa kết gì
Câu 9: Cho xâu a:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(trinh,a); Kết in giá trị b :
a) 4 b) 5 c) 11 d) 9
Câu 10: Cho khai báo sau: (1 đ)
Var A: array[0 16] of integer;
Câu lệnh in tất phần tử mảng trên
a) For k:=1 to 16 write(a[k]); b) For k:=16 down to write(a[k]); c) For k:=0 to 15 write(a[k]); d) For k:= 16 downto write(a[k]); II- Tự luận(4đ)