Ky2
Chia sẻ bởi Nguyễn Công Quang |
Ngày 26/04/2019 |
51
Chia sẻ tài liệu: ky2 thuộc Tin học 11
Nội dung tài liệu:
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:
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 trỏ tệp về đầu dòng;
Cho kết quả đúng khi con trỏ tệp ở cuối dòng;
Là hàm lôgic cho kết quả đúng khi con trỏ ở cuối tệp;
Đư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).; b).; c)< tentruong>.;
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:
Assign()(rewrite()( xử lí( read/readln()(close();
Assign()(reset()( read/readln()( xử lí(close();
Assign()(reset()(write/writeln()(xử lí(close();
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:
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
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:
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 trỏ tệp về đầu dòng;
Cho kết quả đúng khi con trỏ tệp ở cuối dòng;
Là hàm lôgic cho kết quả đúng khi con trỏ ở cuối tệp;
Đư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)
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:
Assign()(rewrite()( xử lí( read/readln()(close();
Assign()(reset()( read/readln()( xử lí(close();
Assign()(reset()(write/writeln()(xử lí(close();
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:
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
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Công Quang
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)