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

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.[r]

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 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