Kiểm tra 15 phút môn Tin học 11

<span class='text_page_counter'>(1)</span>KIEÅM TRA 15 PHUÙT MOÂN TIN HOÏC 11. SỞ GD- ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH. HỌ VAØ TÊN :......................................................................LỚP:.................................... Câu 1 :Đọc chương trình sau đây và cho biết kết quả hiện trên màn hình Program cau_1; Var a,b : integer; Procedure P(var x : integer; y:integer); Begin Writeln(x,’ ‘,y); X:= x*x; Y:=y*10; Writeln(x,’ ‘,y); End; Begin A:=2; b:=10; P(a,b); Writeln(x,’ ‘,y); Readln; End. ............................................................... ............................................................... ............................................................... Câu 2:Đọc chương trình con sau đây và cho biết mục đích của đoạn chương trình naøy. Vieát chöông trình chính coù caâu leänh goïi chöông trình con naøy, khai baùo theâm các biến và sửa lỗi nếu cần. (Làm bài ở mặt sau). Program cau_2; Type xau = string[25]; Mang = array [1..100] of xau; Var M:mang; Procedure Timthuxem(Var ten:mang); Begin Write(‘Nhap so phan tu cua mang :’); Readln(spt); While spt<0) or (spt>100) do Begin Write(‘Nhap so ptu cua mang :’); Readln(spt); End; For i:=1 to spt do Begin Write(‘nhap xau thu ’, i , ‘ : ‘ ); Readln(ten[i]); End; End; Lop11.com.

<span class='text_page_counter'>(2)</span>