Họ tên học sinh : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Đề kiểm tra 1tiết
Lớp : . . . . . . . . . Môn : Tin Học khối 11
I. Phần trắc nghiệm ( 5đ): Tô đen vào đáp án mà em cho là đúng
1 ; / = ~ 2 ; / = ~ 3 ; / = ~ 4 ; / = ~
5 ; / = ~ 6 ; / = ~ 7 ; / = ~ 8 ; / = ~
9 ; / = ~ 10 ; / = ~
1. Phát biểu nào sau đây là sai:
A. Các biến được khai báo cho dữ liệu vào ra goi là tham số thực sự.
B. Trong chương trình con khi giá trò của các tham số hình thức thay đổi ta phải khai báo nó dưới
dạng tham biến. C. Tất cả đều đúng
D. Biến cục bộ là các biến được khai để dùng riêng trong chương trình con.
2. Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:
A. eoln(f) B. close(f) C. eof(f) D. eof(f, 'trai.txt')
3. Cho a là biến ngun a:=8 và Và đoạn chương trình con bàng thủ tục sau: " Procedure VD
(x:byte); Begin x := x + 3; write(x); end; " sau khi gọi thủ tục VD(a); thì ta nhận được giá tri trên
màn hình là:
A. 11 B. 8 C. 0 D.Tất cả đều sai
4. Trong Pascal mở tệp để ghi dữ liệu ta sử dụng thủ tục
A. rewrite(<tên tệp>); B. reset(<biến tệp>); C. rewrite(<biến tệp>); D. reset(<tên tệp>);
5. Muốn ghi dữ liệu vào tệp tha dùng thủ tục:
A. write(<biến tệp>, <danh sách kết quả>); B. rewrite(<biến tệp>, <danh sách kết quả>);
C. readln(<biến tệp>, <danh sách biến>); D. write(<tên tệp>, <danh sách kết qua>);
6. Hàm để tìm giá trị nhỏ nhất của hai số x, y, cách nào sau là dúng:
A. Function gtnn(x, y: integer); B. Function min(x, y) : integer;
C. Function min(x, y: integer) : integer; D. Function gtnn(x, y: integer) : boolean;
7. Trong Pascal để khai báo bên tệp văn bản ta sử dụng cú pháp:
A. Var <tên biến tệp> . Text; B. Var <tên tệp > : Text;
C. Var <tên biến tệp> : Text; D. Var <tên tệp> : String;
8. Trong Pascal vị trí của chương trình con được đặt ở :
A. Ở bất kỳ vị trí nào trong chương trình đều được. B. Trước phần khai báo của chương trình chính
C. Trong thân của chương trình chính (sau từ khố Begin của CT chính)

19. Procedure bac2(var n, m, z :byte);
20. Readln(a,b,c);
21. Bac2(a,b,c);
22. Program vd;
23. Writeln(‘pt co 2 nghiem x1’, x1,’x2= ‘,x2);

Caâu 2: viết chương trình nhập vào 3 số a,b,c. và cho biết a,b,c có phải là 3 cạnh cuartam giác hay
không,nếu đúng tính diện tích tam giác (sử dụng chương trình con hàm để viết)


6. Cho a là biến ngun a:=6 và Và đoạn chương trình con bàng thủ tục sau: " Procedure VD
(x:byte); Begin x := x + 3; write(x); end; " sau khi gọi thủ tục VD(a); thì ta nhận được giá tri
trên màn hình là:
A. 0 B. 6 C. 9 D.Tất cả đều sai
D. Lời gọi hàm phải có tham số thực sự còn lời gọi thủ tục khơng nhất thiết phải có tham số thực sự.
7. Trong Pascal mở tệp để ghi dữ liệu ta sử dụng thủ tục
A. rewrite(<tên tệp>); B. reset(<biến tệp>); C. rewrite(<biến tệp>); D. reset(<tên tệp>);
8. Trong Pascal vị trí của chương trình con được đặt ở :
A. Sau phần khai báo của chương trình chính (Trước từ khố Begin của CT chính)
B. Ở bất kỳ vị trí nào trong chương trình đều được. C. Trước phần khai báo của chương trình chính
D. Trong thân của chương trình chính (sau từ khố Begin của CT chính)
9. Kiểu dữ liệu của hàm
A. có thể là các kiểu integer, real, char, boolean; B. chỉ có thể là kiểu real
C. chỉ cổ thể là kiểu integer. D. có thể là integer, real, char, boolean, string, record, kiểu mảng
10. Cú pháp để gắn tên tệp 'bai1.txt' trong ổ đĩa D cho biến tệp f là:
A. Assign( f, "D:\bai1.txt" ); B. Assign( f, D:\ bai1.txt);
C. Assign( f, 'D:bai1.txt'); D. Assign( f, 'D:\bai1.txt' );
II. P hần tự luận (5 điểm);
Câu 1 : sắp xếp các câu lệnh sau theo thứ tự để thành môït chương trình hoàn chỉnh.
1. End;
2. Procedure bac2(var n, m, z :byte);
3. Readln(a,b,c);
4. Bac2(a,b,c);
5. Program vd;
6. Readln;
7. If DT > 0 then
8. Begin
9. x1:= (-m –sqrt(DT))/2*n;
10. x1, x2: real;
11. End.

Họ tên học sinh : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .Đề kiểm tra 1tiết
Lớp : . . . . . . . . . Môn : Tin Học khối 11
I. Phần trắc nghiệm ( 5đ): Tô đen vào đáp án mà em cho là đúng
1 ; / = ~ 2 ; / = ~ 3 ; / = ~ 4 ; / = ~
5 ; / = ~ 6 ; / = ~ 7 ; / = ~ 8 ; / = ~
9 ; / = ~ 10 ; / = ~
1. Để tính và in ra màn hìnhchu vi (C), diện tích (S) của hình chữ nhật có chiều dài, chiều rộng
lần lượt là a, b. trong các khai bao nào sau đây là đúng.
A. Procedure CV_DT(a, b : integer) : integer; B. Procedure CV_DT(C, S : integer);
C. Procedure CV_DT(a, b, C, S : integer) : integer; D. Procedure CV_DT(a, b : integer);
2. Tệp f có dữ liệu (5 6 8) để đọc 3 giá trị trên từ tệp f và ghi các giá trị này vào 3 biến x, y, z ta
sử dụng câu lệnh:

II. P hần tự luận (5 điểm);
Câu 1 : sắp xếp các câu lệnh sau theo thứ tự để thành môït chương trình hoàn chỉnh.
1. Writeln(‘phương trinh vo nghiem’);
3. Procedure bac2(var n, m, z :byte);
5. Readln(a,b,c);
7. Bac2(a,b,c);
9. Program vd;
11. Readln;
2. Var a,b,c:byte;
4. x1:= (-m –sqrt(DT))/2*n;
6. x1, x2: real;
8. x2:= (-m+sqrt(DT))/2*n;
10. Begin
13. Writeln(pt co nghiem kep x1=x2=, -m/2*n);
15. If DT > 0 then
17. Writeln(nhaọp vaứo 3 soỏ a,b,c );
19. Writeln(pt co 2 nghiem x1, x1,x2= ,x2);
21. End.
23. If DT = 0 then
12. Begin
14. Var DT:byte;
16. DT:= sqr(m) 4*n*z;
18. If DT<0 then
20. Begin
22. End;
Caõu 2: vit chng trỡnh nhp vo 3 s a,b,c. v cho bit a,b,c cú phi l 3 cnh ca tam giỏc hay
khụng,nu ỳng tớnh din tớch tam giỏc (s dng chng trỡnh con th tc vit)

Lớp : . . . . . . . . . Môn : Tin Học khối 11
I. Phần trắc nghiệm ( 5đ): Tô đen vào đáp án mà em cho là đúng
1 ; / = ~ 2 ; / = ~ 3 ; / = ~ 4 ; / = ~
5 ; / = ~ 6 ; / = ~ 7 ; / = ~ 8 ; / = ~
9 ; / = ~ 10 ; / = ~
1. Cho a là biến ngun a:=3 và Và đoạn chương trình con bàng thủ tục sau: " Procedure VD (x:byte);
Begin x := x + 3; write(x); end; " sau khi gọi thủ tục VD(a); thì ta nhận được giá tri trên màn hình là:
A. 3 B. 0 C. Tất cả đều sai D. 6
2. Nói về cấu trúc của một chương trình con, khẳng định nào sau đây là khơng đúng:
A. Phân đầu có thể có hoặc khêng có cũng được
B. Phần khai báo có thể có hoặc khơng có tuỳ thuộc vào từng chương trình cụ thể.
C. Phần đầu nhất thiết phải có để khai báo tên chương trình con.
D. Phần đầu và phần thân nhất thiết phai có, phần khai báo có thể có hoặc khơng.
3. Để tính và in ra màn hìnhchu vi (C), diện tích (S) của hình chữ nhật có chiều dài, chiều rộng
lần lượt là a, b. trong các khai bao nào sau đây là đúng.
A. Procedure CV_DT(a, b : integer) : integer; B. Procedure CV_DT(C, S : integer);
C. Procedure CV_DT(a, b : integer); D. Procedure CV_DT(a, b, C, S : integer) : integer;
4. Hàm để tìm giá trị nhỏ nhất của hai số x, y, cách nào sau là dúng:
A. Function gtnn(x, y: integer) : boolean; B. Function min(x, y: integer) : integer;
C. Function min(x, y) : integer; D. Function gtnn(x, y: integer);
5. Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:
A. close(f) B. eoln(f) C. eof(f, 'trai.txt') D. eof(f)
6. Trong Pascal vị trí của chương trình con được đặt ở :
A. Ở bất kỳ vị trí nào trong chương trình đều được.
B. Trong thân của chương trình chính (sau từ khố Begin của CT chính)
C. Sau phần khai báo của chương trình chính (Trước từ khố Begin của CT chính)
D. Trước phần khai báo của chương trình chính
7. Khẳng định nào sau đây là đúng:
A. Lời gọi thủ tục phải có tham số thực sự còn lời gọi hàm khơng nhất thiết phải có tham số thực sự.
B. Lời gọi hàm phải có tham số thực sự còn lời gọi thủ tục khơng nhất thiết phải có tham số thực sự.

18. x2:= (-m+sqrt(DT))/2*n;
19. DT:= sqr(m) – 4*n*z;
20. If DT<0 then
21. Readln(a,b,c);
22. Bac2(a,b,c);
23. Readln;

Caâu 2: viết chương trình tìm USCLN của 2 số nguyên dương a và b. (sử dụng chương trình con thủ tục để viết)