Kiểm tra 15p-tin11-HK1

Trường THPT Nguyễn Thị Minh khai
Kiểm tra 2012-2013
Điểm

Họ tên:………………………………………...
Môn : Tin học 11


Lớp11A….
Thời gian : 15 phút


Đề 01: Hãy tô đậm vào ô đáp án đúng:










Câu 1: Cho biết kết quả của đoạn chương trình sau
N:=5;
tong:=0;
For i:=1 to n do
If ( i mod 3=0) then Tong:=tong+i; Write( ‘ tong la ’, tong);
A. 3 B. 15 C. 10 D. 5
Câu 2: cho biết kết quả chương trình sau ? (giả sử nhập vào dãy A : -2, 3, -4, 5, -6, 7, -8, 9, -10 )
tongchan:=0; tongle:=0;
For i:=1 to N do
If A[i] mod 2=0 then tongchan:=tongchan+A[i]
Else tongle:=tongle+A[i];
Write(‘tong chan: ‘, tongchan,’ tong le: ‘, tongle);
A. tong chan: -0 tong le: -24 B. tong chan: 30 tong le: -24
C. chương trình báo lỗi D. tong chan: -30 tong le: 24
Câu 3: cho biết đoạn chương trình sau thực hiện công việc gì?
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i]For i:=1 to N do write(A[i]:4);
A. Tráo đổi các phẩn tử của dãy N B. Tìm số lớn nhất trong dãy N
C. Sắp xếp dãy N thành một dãy không tăng D. Sắp xếp dãy N thành một dãy không giảm
Câu 4: Cho biết chương trình sau thực hiện công việc gì ?
Var I, s : byte ;
BEGIN
I:=10 ; s:=0;
While I > 0 do Begin if I mod 2 = 0 then s : =s+ I*I ; I :=I –1 ; end ;
Writeln (’ s = ’ , s );
END.
A. Tính s = (12+22+32+42+52+62+72+82+92+102)2 B. Tính s = 12+22+32+42+52+62+72+82+92+102
C. Tính s = 22 +42 +62 +82 +102 D. Tính s = 12+32 +52 +72 +92
Câu 5: cho biết ý nghĩa của đoạn chương trình sau?
For i:=1 to N do
Begin
ok:=True;
For j:=1 to i-1 do
If A[i]=A[j] then
ok:=False;
If ok then write (A[i]:4);
End;
A. không làm thay đổi mảng ban đầu B. tìm kiếm phần tử k trong mảng theo thuật
binary search
C. Loại bỏ những phần tử giống nhau ra khỏi mảng D. Hiện ra màn hình các phần tử giống nhau trong mảng
Câu 6: Hãy cho biết đâu là lệnh lặp bằng câu lệnh for - do để tính tổng: S=1+2+3+…+10?
A. S:=0;for i:=1 downto 10 do S:=S+i; B. S:=0; for i:=1 to 10 do begin S:=S+i; i:=i+1;
C. S:=0;for i:=1 to 10 do S:=i+1; D .S:=0;for i:=10 downto 1 do S:=S+i;




Câu 7: Cho biết kết quả của chương trình sau ?
Var I, s : byte ;
BEGIN
I:=10 ; s:=0;
While I > 0 do Begin if I mod 3 = 0 then s : =s+ I ; I :=I –1 ; end ;
Writeln (’ s = ’ , s );
END.
A. 6 B. 18 C. 9 D. 3
Câu 8: Khai báo mảng sau đây là đúng hay sai
Const n=100;
Var A=Array [1..n] of integer;
A. Đúng B. Sai
Câu 9: cho biết kết quả chương trình sau (giả sử nhập vào dãy A: 3 , 9, 8, 7, 9, 2)
Csmax:=1;
For i:=2 to N do