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