Kiểm tra 1 tiết môn tin học 11

Kiểm tra một tiết môn tin học 11
Phần trắc nghiệm 2 Đ ( Khoanh tròn đáp án đúng)
Câu 1. Cú pháp khai báo mảng một chiều nào sau đây đúng?
A. Var Mang = array [1 .. 9] of real; C. Var B : array [1 ... 9] of real;
B. Var A: array [1,5 .. 1,9] of real; D. Var C : array [‘a’ .. ‘z’] of real;
Câu 2: Kiểu chỉ số của mảng một chiều không thể là kiểu nào?
A. Byte B. Integer C. Real; D. Boolean.
Câu 3. Số lượng kí tự tối đa của một xâu kí tự trong Pascal là bao nhiêu?
A. 1024 B. 512 C. 256 D. 255
Câu 4. Sau khi thực hiện lệnh: Insert (‘ABCD’, ‘M_N’, 2); sẽ cho kết quả là:
A. ‘AM_NBCD’ B. ‘ABM_NCD’
C. ‘MABCD_N’ D. ‘M_ABCDN’
Câu 5. Muốn ghi dữ liệu vào tệp ta dùng thủ tục:
A. Write,;
B. Rewrite(, );
C. Readln(, );
D. Write(, );
Câu 6. Trong Pascal để khai báo bên tệp văn bản ta sử dụng cú pháp:
A. Var . Text; B. Var : Text;
C. Var : Text; D. Var : String
Câu 7. Để khai báo hàm trong Pascal bắt đầu bằng từ khoá
A. Program. B. Function. C. Procedure. D. Var
Câu 8. Biến toàn cục là các biến được khai báo trong?
A. Phần khai báo của chương trình con B. Tựa đề chương trình chính
C. Phần khai báo của chương trình chính D. Phần khai báo của thủ
II- Phần tự luận (7đ)
Câu 1: Chương trình con là gì? Nêu các lợi ích của chương trình con? (2đ)
Câu 2: Viết chương trình nhập vào 2 xâu A, B và xuất ra màn hình xâu có độ dài ngắn hơn(3đ).
Câu 3: Viết chương trình con tính diện tích của tam giác có độ dài ba cạnh là a, b, c? (3 đ) ĐÁP ÁN VÀ THANG ĐIỂM CHẤM
I- Phần trắc nghiệm một đáp án đúng 0.25đ
Câu
1
2
3
4
5
6
7
8

Đ/A
C
D
D
C
A
C
B
C

II. Phần tự luận:
Câu
Nội dung
Điểm

1
KN: Chương trình con là một dãy lệnh mô tả một số thao tác nhất định và có thể được thực hiện( được gọi) từ nhiều vị trí trong chương trình.
(1đ)


 Các lợi ích của việc sử dụng chương trình con:
Tránh được việc phải viết lặp đi lặp lại cùng một dãy lệnh.
Hỗ trợ việc thực hiện các chương trình lớn.
Phục vụ cho quá trình trừu tượng hóa.
Mở rộng khả năng ngôn ngữ.
Thuận tiện cho phát triển, nâng cấp chương trình.

(1đ)

2
Program bai2;
Var A, B: String[50];

0,5 đ


Begin
Write(`Nhap vao xau A = `); readln(A);

0,5 đ


 Write(`Nhap vao xau B = `); readln(B);
0,5 đ


If Length(A) < Length(B) then wtire(A) else write(B);
1,0 đ


 Realn;
End.

0,5 đ

3
Function Dientichtamgiac(var R: Tamgiac): real;
0,5 đ


 Var a,b,c,p: real;
0,5 đ


 Begin
P:= (a+b+c)/2;
0,5 đ


 Dientich:=sqrt(p*(p –a)*(p – b)*( p – c));
1,0đ


End;
0.5đ