DE KT HK II TIN 11De 1

<span class='text_page_counter'>(1)</span>SỞ GIÁO DỤC VÀ ĐÀO TẠO HƯNG YÊN. ĐỀ KIỂM TRA TIN HỌC KHỐI 11. TRƯỜNG THPT NAM KHOÁI CHÂU. Năm học 2012 -2013 Thời gian làm bài: 45’. Họ và tên………………………………………………Lớp…………………………………… A.TRẮC NGHIỆM: Hãy chọn câu trả lời thích hợp nhất rồi điền vào bảng đáp án sau Câu 1. Câu 2. Câu 3. Câu 4. Câu 5. Câu 6. Câu 7. Câu 8. Câu 9. Câu 1: Phép so sánh xâu nào sau có giá trị TRUE : A. 'a' < 'A';. B. 'A' = 'a';. C. 'an' < 'a';. D. 'PASCAL' < 'pascal';. Câu 2: Cho khai báo : Var Ho, ten : String[15]; Lệnh nào sai? A. Write('Ho ten la : ' ; Ho ; Ten);. B. Write('Ho ten la : ' + Ho + Ten);. C. Write('Ho ten la : ', Ho , Ten);. D. Write('Ho ten la : ', Ho + Ten);. Câu 3: Cho St là biến chuỗi, sau khi thực hiện bốn lệnh: St:=’ABCDEF’; Delete(St, 3, 2); Insert(‘XYZ’, St, 2); Write(St); - Kết quả in lên màn hình là? A. ABXYZEF. B. AXYZBCDEF. C. AXYZ. D. AXYZBEF. Câu 4: Cho các biến St chuỗi và k nguyên. Sau khi gán: St:='Sinh vien Tin hoc hoc Tin hoc'; k := Pos('Tin', ST) ; - Giá trị của k là? A. k=13. B. k=11. C. k=26. D. k=23. Câu 5: Cho biết kết quả sau khi chạy chương trình sau? Var St : string;. Câu 10.

<span class='text_page_counter'>(2)</span> i, L : byte;; Begin St :='Hoc thay khong tay hoc ban’; L:=Length(St); For i := 1 to L do If (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]); Write (St); End. A. Hoc Thay Khong Tay Hoc Ban C. Hoc thay khong tay hoc ban. B. hoc thay khong tay hoc ban D. HOC THAY KHONG TAY HOC BAN. Câu 6: Cho biết kết quả sau khi chạy đoạn chương trình sau? Var St : String; i,L : integer; Begin St:='ABCD'; L := Length(St); For i:= L Downto 1 do write (St); End. A. DCAB. B. ABCDABCDABCDABCD. C. 4321. D. DCBA. Câu 7: Cho St là biến chuỗi và St:=’AAABAAB’; Sau khi thực hiện hai lệnh : While St[1]=’A’ do Delete(St,1,1); Write(St); Kết quả in ra là? A. AABAAB. B. BAAB. C. BB. D. AAA. Câu 8: Cho S và I là hai biến kiểu nguyên. Khi chạy đoạn chương trình S:=0; I:=1; While i<=6 do Begin. S:=S+I;. I:=i+2;. End;. Giá trị sau cùng của S là bao nhiêu? A. 6. B. 9. C. 11. D. 0. Câu 9: Trong các khai báo sau đây, khai báo nào đúng? A. Var A: aray[1..100] of integer;. B. Var A,B: array[1:100] of byte;. C. Var A= array[1..100] of byte;. D. Var C: array[1..10] of byte;.

<span class='text_page_counter'>(3)</span> Câu 10: Cho khai báo : Var a,b:string; I:byte; Begin a:=’Nguyen Thi Mai Lan’; b:=’’; for i:=1 to length(a) do if a[i]<>’ ’ then b:=b+a[i]; a:= Copy(b,10,6); write(a); end. Kết quả của a in ra màn hình là? A.Mai Lan. C. hi Mai. B. MaiLan. D. ThiMai. B. TỰ LUẬN Câu 11: Định nghĩa Var. name: string[80];. Và gán name:=’Nguyen Thi Phuong Thao’; Độ dài thực của name? name[30] bằng bao nhiêu? Tại sao? Câu 12: Viết chương trình nhập vào một xâu, sau đó đếm và đưa ra màn hình số lượng chữ “pascal” có trong xâu đó? Câu 13: Viết chương trình nhập vào một mảng gồm N số nguyên (N<=100), sau đó thực hiện các công việc sau và in ra màn hình: a. Đếm số lượng phần tử dương? b. Tính tổng các phần tử dương trong mảng? c. Tính trung bình của các phần tử dương trong mảng? d. Đếm số lần xuất hiện giá trị của x trong mảng. Với x nhập từ bàn phím?.

<span class='text_page_counter'>(4)</span> ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. ………………………………………………………………………………………………………….. SỞ GIÁO DỤC VÀ ĐÀO TẠO HƯNG YÊN. ĐÁP ÁN KIỂM TRA TIN HỌC KHỐI 11.

<span class='text_page_counter'>(5)</span> TRƯỜNG THPT NAM KHOÁI CHÂU. Năm học 2012 -2013. A. Phần trắc nghiệm: Mỗi câu trả lời đúng được 0.5 điểm Câu 1 2 Đáp án D A B. Phần tự luận. 3 D. 4 B. 5 D. 6 B. 7 B. 8 B. 9 D. 10 B. Câu 11: 1 điểm -. Độ dải thực của xâu name là 22 kí tự;. -. Phần tử name[30] có giá trị bằng khoảng trống bởi vì độ dài thực của xâu name là 22 kí tự.. Câu 12:1 điểm Program Dem_KT; Uses crt; Var a: string; i,k,dem:byte; Begin Write(‘Nhap gia tri cho xau a=’); Readln(a); K:=length(a); Dem:=0; For i:=1 to k do If copy(a,i,6) =’pascal’ then dem:=dem+1; Write(‘So luong chu Pascal co tronng xau a la:’,dem:3); Readln; End. Câu 13: 3 điểm Program Mang; Uses crt; Var A: array[1..100] of integer; I,k,x,dem,tong,n: integer; TB:real; Begin Clrscr; Write(‘Nhap so luong phan tu cua mang’); Readln(n); Write(‘Nhap gia tri cho cac phan tu cua mang’); For i:=1 to n do Begin Write(‘Nhap gia tri cho phan tu thu’,i); Readln (A[i]);end; {Dem so luong phan tu duong} Dem:=0; For i:= 1 to n do If a[i] >0 then dem:=dem+1;. 0.25 điểm. 0.25 điểm 0.25 điểm. 0.25 điểm. 0.5 điểm. 0.5 điểm.

<span class='text_page_counter'>(6)</span> Write(‘So luong phan tu duong cua mang la:’,dem:3); {Tinh tong cua cac phan tu duong} Tong:=0; For i:=1 to n do If a[i] >0 then tong:=tong+a[i]; Write(‘Tong cua cac phan tu duong trong mang la:’, tong:3); {Tinh trung binh cua cac phan tu duong} TB:=tong/dem; Write(‘Trung binh cua cac phan tu duong trong mang la:’, tb:5:2); {Dem so lan xuat hien cua gia tri x} Write(‘Nhap gia tri cho x=’); Readln(x); K:=0; For i:= 1 to n do If a[i] =x then k:=k+1; Write(‘So lan xuat hien cua’,x,’trong mang la:’,k:3); Readln; End.. 0.5 điểm. 0.5 điểm 0.5 điểm. 0.5 điểm.

<span class='text_page_counter'>(7)</span>