ky2

<span class='text_page_counter'>(1)</span>Sở GD& ĐT Quảng Trị Trường THPT Cam Lộ Tổ: Tin học. Kiểm tra học kì 2. Phần 1: Trắc nghiệm(5 điểm) Câu 1: Câu 9: các khai báo nào sau đây là đúng với cú pháp trong Pascal: a) Var a: arra[1..10] of integer; b) Var a: array[1…100] of integer; c) Var a: array[1..10] of real; d) Var a: array[1..100] of read; Câu 2: Câu 8: Chức năng của hàm EOF(Biến tệp) là: a) Đưa trỏ tệp về đầu dòng; b) Cho kết quả đúng khi con trỏ tệp ở cuối dòng; c) Là hàm lôgic cho kết quả đúng khi con trỏ ở cuối tệp; d) Đưa con trỏ tệp về cuối tệp; Câu 3: Cho biết chương trình tính trung bình các số chia hết cho 5 có trong dãy A sau đây:: Var a: array[1..100] of integer; Tg,tbc: real; N, i, dem:byte; Begin Write(‘nhap so phan tu’); readln(a[i]); For i:=1 to n do Begin Write(‘ gia tri phan tu thu’,i ,’ la’); readln(a[i]); End; dem:=0; For i:=1 to n do Begin if a[i] mod 5 = 0 then Tg:=tg+a[i]; Dem:=dem+a[i]; End; Tbc:=tg/dem; writeln(‘ trung bình cong la’,tbc:8:3); Readln; End. Chương trình trên bị lỗi: a) ngữ pháp; b) Ngữ pháp và ngữ nghĩa; c) Ngữ nghĩa. Câu 4: : Để truy xuất đến các trường của bản ghi thì người ta truy xuất như sau: a) <tenbanghi>.<tentruong>; b)<tenbienbanghi>.<tentruong>; c)< tentruong>.<tenbienbanghi>; Câu 5: để thực hiện quá trình đọc dữ liệu từ tệp thì ta thực hiện thứ tự các thao tác như sau: a) Assign()rewrite() xử lí read/readln()close(); b) Assign()reset() read/readln() xử líclose(); c) Assign()reset()write/writeln()xử líclose(); d) Assign()rewrite() read/readln() xử líclose(); Câu 6: cho st1=’viet’, st2=’nam’ thì kết quả của phép ghép xâu trên là st:=st1+st2 là: a) st=’viet nam’; b) st=’vietnam’; c) st=’ viet nam ’; Câu 7: em hãy có biết lỗi của chương trình sau: Var a=array [1..100] of byte; N,i: byte; Begin Write(‘ nhap vao so phan tu’); readln(n); For i:= n downto 1 do Begin Write(‘phan tu thu ’, I, ‘ la’); readln(a[i]); End; End. a) Line 1; b) Line 5; c) Line 6; d) kết quả khác. Câu 8: Độ dài lớn nhất của Xâu kí tự là: a) 255; b) 256; c) 1024; d) 100; Câu 9: Cho đoạn chương trình sau:.

<span class='text_page_counter'>(2)</span> Var a,b:string; N:byte; Begin Write(‘nhap xau ’); readln(a,b); N:=pos(a,b); writeln(n); Readln; End. với a=’abc’; b= ‘eragabcd’; thì kết quả in lên màn hình là: a) 3. b) 6. c) 8. d) 5; Câu 10: Để tạo 1 xâu st1 từ xâu st ta sử dụng hàm hay thủ tục sau: a)st1:= copy(s,vt,n); b) insert(st1,st,vt); c) pos(st1,st2); d) delete(st,vt,n); Phần 2: Tự luận(5 điểm) Câu 1: Viết hàm Ktra(n:byte): Booolean kiểm tra xem số n có phải là số nguyên tố hay không hay không? Câu 2: cho dãy A gồm có n phần tử viết chương trình đếm xem trong dãy A có bao nhiêu số nguyên tố Tiết 53 PPCT chuẩn.

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