Sở GD – ĐT Bình Thuận KỲ THI HỌC KỲ II / 2008 - 2009 Trường PTDTNT Tỉnh Môn thi: Tin học - Lớp 11 Thời gian làm bài: 45 phút Họ và tên: . (Không kể thời gian giao đề) Lớp: . Phòng thi: . Giám thị: Câu 1 (2 điểm): Cho biết kết quả của chương trình sau? Câu 2 (1 điểm): Trong NNLT Pascal, đoạn chương trình sau thực hiện công việc gì? a) program cau_a; var i,j: byte; begin for i:=5 to 7 do begin for j:=1 to 3 do write(i:3,j); writeln; end; readln end . . . . . . . . . . . . . b) program cau_b; var a,b:byte; begin a:=10; b:=2; while a > 4 do begin b:=b+a; writeln(a:3,b:4); a:=a-2; end; readln end. . . . . . . . . . . . . . var A: array[1 100,1 100] of byte; N,i,j:byte; begin S:=0; for i:=1 to N do for j:=1 to N do if i = j then S:=S+A[i,j]; end. ĐỀ . . . . . . . Trang 1 (Đề thi gồm có 3 trang) Câu 3 (1 điểm): Tìm lỗi của chương trình sau và sửa lại cho đúng? Câu 4 (6 điểm): a) Viết chương trình nhập vào từ bàn phím xâu kí tự S1, tạo xâu S2 từ xâu S1 bằng cách lấy các kí tự in hoa của xâu S1. Xuất ra màn hình xâu S2. VD: Nhập xâu S1 = ‘TRuOngNoiTrU’ --> xuất ra xâu S2 = ‘TRONTU’ program kieu ban ghi; type diem = record x,y:real; begin write(‘Nhap toa do diem A: ‘); readln(x,y); write(’Toa do diem A la: ‘); write(A.x:6:2,A.y:6:2); end.  sửa lại là: . . . . . . . . . . . . . Trang 2 b) Viết chương trình nhập từ bàn phím dãy A gồm N phần tử là các số nguyên dương. Tạo ra dãy B từ dãy A bằng cách lấy các số chính phương của dãy A. Xuất ra màn hình dãy B. VD: Nhập dãy A là: 8 16 9 10 6 25  Xuất ra dãy B là: 16 9 25 Trang 3 . Sở GD – ĐT Bình Thuận KỲ THI HỌC KỲ II / 2008 - 2009 Trường PTDTNT Tỉnh Môn thi: Tin học - Lớp 11 Thời gian làm bài: 45 phút Họ và tên:. . (Không kể thời gian giao đề) Lớp: . Phòng thi: . Giám