ĐỀ CƯƠNG ÔN TẬP TIN HỌC 11 HKII
I. Trắc nghiệm
Câu 1. Cho chương trình sau: (Tính thành 5 câu)
Program kt;
Var m,n,T : integer;
Procedure TD(Var C: integer; x: byte);
Var i: Byte;
Begin
i:=3;
Writeln(C, ‘ ’,x);
x:=x+i;
C:=C+i;
S:=x+C;
Writeln(C, ‘ ’,x);
End;
Begin
Write(‘nhập m và n:’); Readln(m,n);
TD(m,n);
Writeln(m,’ ‘,n,’ ‘,T);
Readln;
End.
Câu 2: Cho chương trình sau:
Var f: text;
Begin
Assign(f,'Khoi11.txt');
Rewrite(f);
Write(f, 105*2-134);
Close(f);
End.
Câu 3: Cho chương trình sau:
Var g: text;

A. 510 702 792 B. 420
C. 510 + 702 - 792 D. 510702792
Hãy cho biết?
+ Biến toàn cục là: ……...........................
+ Biến cục bộ là: ………………..............
+ Tham số hình thức
- Tham số giá trị: ………...................
- Tham biến: ……………..................
+Tham số thực sự: ………………….............
+ Khi chạy chương trình, nhập m = 5, n = 7 thì kết quả:
A. B. C. D.

D. Có thể là integer, real, char, boolean, string, record, kiểu mảng.
Câu 9. Để ghi kết quả vào tệp văn bản ta có thể sử dụng thủ tục nào sau:
A. read(<tên tệp>,<danh sách kết quả>); B. read(<tên biến tệp>,<danh sách kết quả>);
C. write(<tên tệp>,<danh sách kết quả>); D. write(<tên biến tệp>,<danh sách kết quả>);
Câu 10. Để đọc dữ liệu từ tệp văn bản ta có thể sử dụng thủ tục nào sau:
A. read(<tên tệp>,<danh sách kết quả>); B. read(<tên biến tệp>,<danh sách kết quả>);
C. write(<tên tệp>,<danh sách kết quả>); D. write(<tên biến tệp>,<danh sách kết quả>);
Câu 11: Cho khai báo của một hàm:
Function F( k : Integer) : String ;
Begin
If k mod 2=0 then F:=’Chan’ else F:=’Le’;
End;
Muốn gán X:= F(5); thì biến X phải khai báo kiểu gì :
a) Var X: Real; b) Var X: String; c) Var X: Integer; d) Var X : Char;
Câu 12 Cho khai báo đầu của một hàm:
Function F( k : Integer) : String ;
Begin
If k mod 2=0 then F:=’Chan’ else F:=’Le’;

Procedure Doicho( Var a : Integer; b : Integer);
Var z : Integer;
Begin
z:=a; a:=b; b:=z;
End;
-Sau khi thực hiện các lệnh:
x:=7; y:=3;
Doicho(x, y);
thì giá trị của x, y là:
a) x=7, y=7 b) x=3, y=3 c) x=3, y=7 d) x=7, y=3
Câu 17 Cho khai báo hàm đệ quy :
Function F( a : Integer) : Integer;
Begin
If a=1 then F:=1 else F:= a*a+ F(a-1);
End;
Giá trị của hàm F(4) là:
a) 1 b) 25 c) 14 d) 30
Câu18: Khi chạy chương trình :
Var x : Integer;
Procedure TT ;
Begin
x:=4; x:= x+5;
End;
BEGIN
x:=0; TT; Write(x);
END.
-Kết quả in ra là:
a) 4 b) 5 c) 9 d) 0
Câu19: Khi chạy chương trình :
Var x : Integer;

A. Tô màu màn hình B. Đặt màu nền màn hình C. Xóa màn hình
D. Làm nhấp nháy màn hình
Câu 25: Thử tục nào sau đây không phải là thủ tục để vẽ đoạn thẳng
A. Line(x,y,x’,y’) B. LneRel(dx,dy). C. PutPixel(x,y,màu) D. LineTo(x,y).
II. Nội dung
Chương V: Tệp và thao tác với tệp
Chương VI: Chương trình con và lập trình có cấu trúc
III. Bài Tập
Bài 1: Cho kiểu dữ liệu được khai báo như sau:
Type Vector = Array [1..200] of real;
Các biến A,B thuộc kiểu Vector;
A=(a
1
,a
2
, ……, a
n
),
B= (b
1
,b
2
,……,b
n
) , 1
≤
n
≤
200.
Hãy viết hàm FUNCTION Tich_vo_huong(Var a, b: vector; n : Byte) : Real; tính tích vô hướng hai vector A

B
,Y
B
), (X
C
,Y
C
) ứng với tọa độ 3 điểm A, B, C
trong mặt phẳng. Hãy kiểm tra xem 3 điểm A,B,C có phải là 3 đỉnh của một tam giác vuông hay không? Đưa
kết quả kiểm tra CO hoặc KHONG ra màn hình.
Bài 5: Viết chương trình thực hiện việc rút gọn một phân số, trong đó có sử dụng hàm tính ước chung lớn nhất
của hai số nguyên UCLN (x, y:integer): integer;
Bài 6:Giả thiết tam giác được xác định bởi tọa độ của 3 đỉnh. Ta sử dụng kiểu bản ghi để mô tả một tam giác:
Type Diem = record
x, y: real;
end;
Tamgiac = record
A, B, C : Diem;
End;
Hãy xây dựng các hàm và thủ tục sau:
- Hàm tính khoảng cách giữa hai điểm P, Q : function khoang_cach(P, Q: Diem): real;
- Thủ tục nhân dữ liệu vào là biến mô tả tam giác R và dữ liệu ra là độ dài 3 cạnh a, b, c:
Procedure Dai_canh (Var R: Tamgiac; var a,b,c: real);
- Hàm tính chu vi tam giác R: Function Chu_vi(var R: Tamgiac):real;
- Hàm tính diện tích tam giác R: Function Dien_tich(var R: Tamgiac):real;
Bài 7: Sử dụng thủ tục:
Procedure Hoan_doi( var x,y: integer);
Var TG: integer;
Begin
TG:=x;