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

SỞ GD- ĐT NINH THUẬN
TRƯỜNG THPT TRƯỜNG CHINH
KIỂM TRA 15 PHÚT
MÔN TIN HỌC 11
HỌ VÀ 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 này. Viết chương trình chính có câu lệnh gọi chương trình con này, khai báo thê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 spt100) 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;