THI HỌC KÌ II ĐỀ 2 Môn: Tin học Năm học: 2008-2009 Thời gian: 20 phút(không kể thời gian phát đề) (Ghi chú phần thi lý thuyết tin học lớp 11) Họ tên:……………………………………. Lớp:……………………. Câu 1: Cho chương trình như sau: var a,b:integer {1} procedure baitap(var x:integer; y:integer) {2} begin x=x+2 {3} y:=y+2 {4} end; begin a=100;b:=150 {5} baitap(a,b) {6} writeln(a:6,b:6); readln; end. a. Chương trình trên có lỗi không ? nếu có hãy sửa lỗi (1.5 điểm). b. Cho biết chương trình trên in kết quả ra màn hình là bao nhiêu ?(1.5 điểm). Câu 2: Viết thủ tục đọc tệp văn bản và ghi tệp văn bản. Cho ví dụ minh họa. (2 điểm) Câu 3: Viết thủ tục tính diện tích hình tròn( biết S= Π .R 2 , lấy Π =3.14). (1 điểm) HẾT . THI HỌC KÌ II ĐỀ 2 Môn: Tin học Năm học: 20 08 -20 09 Thời gian: 20 phút(không kể thời gian phát đề) (Ghi chú phần thi lý thuyết tin học lớp 11) Họ. var a,b:integer {1} procedure baitap(var x:integer; y:integer) {2} begin x=x +2 {3} y:=y +2 {4} end; begin a=100;b:=150 {5} baitap(a,b) {6} writeln(a:6,b:6);