Đề Kiểm tra 1 tiết Kì 2-2011-Chuẩn

Điểm Lời phê của thầy, cô giáo





Đề 01:
I-TRẮC NGHIỆM: (3 điểm). Em hãy khoanh tròn vào đáp áp đúng nhất?
Câu 1: Trong ngôn ngữ Pascal, xâu là:  A. Mảng các kí tự  C. Tập hợp các chữ cái từ A đến Z  B. Tập hợp các chữ cái và chữ số  D. Dãy các kí tự trong bảng mã ASCII  Câu 2: Có thể xem kiểu dữ liệu xâu là mảng một chiều. khi đó một phần tử của mảng là một:
A. số B. xâu C. Kí tự D. Tất cả các câu trên
Câu 3: S sẽ có kết quả là gì trong đoạn chương trình sau: S:=`tuoi hoc tro`; delete(S,9,4);  A. xâu rỗng C. hoc tro  D. tuoi  B. tuoi hoc  Câu 4: Câu lệnh nào xóa kí tự cuối cùng của xâu a?  A. delete(a,1,255)  B. delete(a,length(a),1)  C. delete(a,255,1)  D. delete(a,1,length(a))  5: Công thức nào sau đây là đúng? (st1, st2 các biến kiểu xâu và m, n các biến kiểu số nguyên).
A. Delete(st2,m,n); B. Delete(st1,m,st2); C. Delete(m,st1,n) D. Delete(m,n,st2)
Câu 6: Giả sử trên đĩa đã tồn tại một tệp định kiểu F chứa các số nguyên có tên SN.DAT. Trong các thao tác sau đối với tệp F, thao tác nào sai:
A. Assign(F, `SN.DAT`); B. Reset(F); C. Readln(F,x); D. Close(F);
II. TỰ LUẬN: (7 điểm)
Câu 1: (2 điểm) Viết chương trình nhập vào hai xâu st1 và st2 có độ dài tối đa là 20 kí tự. Kiểm tra kí tự thứ 5 của xâu st1 có trùng với ký tự đầu tiên của xâu st2 không?
Câu 2: (3 điểm) Cho tệp ‘DULIEU.txt’ chứa 3 số thực a,b, c tương ứng với các cạnh của tam giác. Tính diện tích, chu vi của tam giác và ghi kết quả vào tệp ‘KQ.txt’.(Gợi ý sử dụng công thức hê- rông để tính diện tích tam giác).
Câu 3: (2 điểm) Cho thuật toán sau:
Hàm Tong( tham trị A: array[1..100] of real): real;
Var T: real;
Bắt đầu
T ( 0;
Với i từ 1 đến n làm
nếu (Ai >0) và (Ai chia hết cho 3) thì T (T+Ai;
Tong ( T;
kết thúc;
Hãy chuyển đổi thuật toán trên thành 1 chương trình con của PASCAL?
Bài làm
 Điểm Lời phê của thầy, cô giáo





Đề 02:
I-TRẮC NGHIỆM: (3 điểm). Em hãy khoanh tròn vào đáp áp đúng nhất?
Câu 1: Trong ngôn ngữ Pascal khai báo nào sau đây là đúng:
A. Var st: String[275]; C. Var Khoi 11: String[25];
B. Var ten: String; D. Var const: String[50];
Câu 2: Xâu không có kí tự nào gọi là:  A. Xâu không  C. Xâu rỗng  B. Xâu chứa khoảng trắng  D. Không có loại xâu này  Câu 3: S sẽ có kết quả là gì trong đoạn chương trình sau: S:=`tuoi hoc tro`; delete(S,1,5);  A. xâu rỗng B. hoc tro  C. tuoi  D. tuoi hoc  Câu 4: . Giả sử k là một biến có kiểu dữ liệu kí tự. Chọn câu đúng trong các câu sau:
A. k:= `hoc`; B. k:= `A`; C. k:= A; D. k:=1;
5: Công thức nào sau đây là đúng? (st1, st2 các biến kiểu xâu và m, n các biến kiểu số nguyên).
A. Delete(st1,st2,m); B. Delete(st1,m,n); C. Delete(m,